110523Sdlw /* 2*22952Skre * Copyright (c) 1980 Regents of the University of California. 3*22952Skre * All rights reserved. The Berkeley software License Agreement 4*22952Skre * specifies the terms and conditions for redistribution. 5*22952Skre * 6*22952Skre * @(#)r_cnjg.c 5.1 06/07/85 710523Sdlw */ 810523Sdlw 910523Sdlw #include "complex" 1010523Sdlw 1110523Sdlw r_cnjg(r, z) 1210523Sdlw complex *r, *z; 1310523Sdlw { 1410523Sdlw r->real = z->real; 1510523Sdlw r->imag = - z->imag; 1610523Sdlw } 17