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