xref: /csrg-svn/usr.bin/f77/libF77/r_cnjg.c (revision 47940)
1*47940Sbostic /*-
2*47940Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*47940Sbostic  * All rights reserved.
422952Skre  *
5*47940Sbostic  * %sccs.include.proprietary.c%
610523Sdlw  */
710523Sdlw 
8*47940Sbostic #ifndef lint
9*47940Sbostic static char sccsid[] = "@(#)r_cnjg.c	5.2 (Berkeley) 04/12/91";
10*47940Sbostic #endif /* not lint */
11*47940Sbostic 
1210523Sdlw #include "complex"
1310523Sdlw 
r_cnjg(r,z)1410523Sdlw r_cnjg(r, z)
1510523Sdlw complex *r, *z;
1610523Sdlw {
1710523Sdlw r->real = z->real;
1810523Sdlw r->imag = - z->imag;
1910523Sdlw }
20