1#include "f2c.h"
2
3 VOID
4#ifdef KR_headers
5d_cnjg(r, z) doublecomplex *r, *z;
6#else
7d_cnjg(doublecomplex *r, doublecomplex *z)
8#endif
9{
10	doublereal zi = z->i;
11	r->r = z->r;
12	r->i = -zi;
13	}
14