[unix-history] / usr / src / usr.bin / f77 / libF77 / d_cnjg.c

/*
 *	"@(#)d_cnjg.c	1.1"
 */

#include "complex"

d_cnjg(r, z)
dcomplex *r, *z;
{
r->dreal = z->dreal;
r->dimag = - z->dimag;
}
Commit	Line	Data
ceb0890f DW	1	/*
	2	* "@(#)d_cnjg.c 1.1"
	3	*/
	4
	5	#include "complex"
	6
	7	d_cnjg(r, z)
	8	dcomplex r, z;
	9	{
	10	r->dreal = z->dreal;
	11	r->dimag = - z->dimag;
	12	}