d_imag.c 201 B

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