1*10459Sdlw /* 2*10459Sdlw * "@(#)d_imag.c 1.1" 3*10459Sdlw */ 4*10459Sdlw 5*10459Sdlw #include "complex" 6*10459Sdlw 7*10459Sdlw double d_imag(z) 8*10459Sdlw dcomplex *z; 9*10459Sdlw { 10*10459Sdlw return(z->dimag); 11*10459Sdlw } 12