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
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