110528Sdlw /* 222958Skre * Copyright (c) 1980 Regents of the University of California. 322958Skre * All rights reserved. The Berkeley software License Agreement 422958Skre * specifies the terms and conditions for redistribution. 522958Skre * 6*23854Sjerry * @(#)r_imag.c 5.2 07/08/85 710528Sdlw */ 810528Sdlw 910528Sdlw #include "complex" 1010528Sdlw 11*23854Sjerry float r_imag(z) 1210528Sdlw complex *z; 1310528Sdlw { 1410528Sdlw return(z->imag); 1510528Sdlw } 16