1 #include "v3p_f2c.h" 2 #ifdef __cplusplus 3 extern "C" { 4 #endif 5 6 VOID 7 #ifdef KR_headers d_cnjg(r,z)8d_cnjg(r, z) doublecomplex *r, *z; 9 #else 10 d_cnjg(doublecomplex *r, doublecomplex *z) 11 #endif 12 { 13 doublereal zi = z->i; 14 r->r = z->r; 15 r->i = -zi; 16 } 17 #ifdef __cplusplus 18 } 19 #endif 20