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