1 #include "f2c.h" 2 3 void r_cnjg(complex * r,complex * z)4 r_cnjg (complex * r, complex * z) 5 { 6 real zi = z->i; 7 r->r = z->r; 8 r->i = -zi; 9 } 10