00001 #include "f2c.h" 00002 #ifdef __cplusplus 00003 extern "C" { 00004 #endif 00005 00006 VOID 00007 #ifdef KR_headers 00008 d_cnjg(r, z) doublecomplex *r, *z; 00009 #else 00010 d_cnjg(doublecomplex *r, doublecomplex *z) 00011 #endif 00012 { 00013 doublereal zi = z->i; 00014 r->r = z->r; 00015 r->i = -zi; 00016 } 00017 #ifdef __cplusplus 00018 } 00019 #endif