110528Sdlw /* 2*22958Skre * Copyright (c) 1980 Regents of the University of California. 3*22958Skre * All rights reserved. The Berkeley software License Agreement 4*22958Skre * specifies the terms and conditions for redistribution. 5*22958Skre * 6*22958Skre * @(#)r_imag.c 5.1 06/07/85 710528Sdlw */ 810528Sdlw 910528Sdlw #include "complex" 1010528Sdlw 1110528Sdlw double r_imag(z) 1210528Sdlw complex *z; 1310528Sdlw { 1410528Sdlw return(z->imag); 1510528Sdlw } 16