[unix-history] / lib / libF77 / d_cnjg.c

#include "f2c.h"

 VOID
#ifdef KR_headers
d_cnjg(r, z) doublecomplex *r, *z;
#else
d_cnjg(doublecomplex *r, doublecomplex *z)
#endif
{
r->r = z->r;
r->i = - z->i;
}
Commit	Line	Data
547779a8 WH	1	#include "f2c.h"
	2
	3	VOID
	4	#ifdef KR_headers
	5	d_cnjg(r, z) doublecomplex r, z;
	6	#else
	7	d_cnjg(doublecomplex r, doublecomplex z)
	8	#endif
	9	{
	10	r->r = z->r;
	11	r->i = - z->i;
	12	}