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