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