110459Sdlw /* 2*22856Skre * Copyright (c) 1980 Regents of the University of California. 3*22856Skre * All rights reserved. The Berkeley software License Agreement 4*22856Skre * specifies the terms and conditions for redistribution. 5*22856Skre * 6*22856Skre * @(#)d_imag.c 5.1 06/07/85 710459Sdlw */ 810459Sdlw 910459Sdlw #include "complex" 1010459Sdlw 1110459Sdlw double d_imag(z) 1210459Sdlw dcomplex *z; 1310459Sdlw { 1410459Sdlw return(z->dimag); 1510459Sdlw } 16