00001 #include "f2c.h" 00002 00003 #ifdef KR_headers 00004 VOID r_cnjg(r, z) complex *r, *z; 00005 #else 00006 VOID r_cnjg(complex *r, complex *z) 00007 #endif 00008 { 00009 r->r = z->r; 00010 r->i = - z->i; 00011 }
This site conforms to the following standards: