1 /* 2 * "@(#)r_cnjg.c 1.1" 3 */ 4 5 #include "complex" 6 7 r_cnjg(r, z) 8 complex *r, *z; 9 { 10 r->real = z->real; 11 r->imag = - z->imag; 12 } 13