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

#include "f2c.h"

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