1 #include "f2c.h" 2 3 #ifdef KR_headers d_imag(z)4 double d_imag(z) doublecomplex *z; 5 #else 6 double d_imag(doublecomplex *z) 7 #endif 8 { 9 return(z->i); 10 } 11