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