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