VMS Help FORTRAN, Intrinsic Procedures, IMAG  *Conan The Librarian (sorry for the slow response - running on an old VAX)

  IMAG (complex-number)

  A function that returns the imaginary part of a complex number.
  +------+-----------+----------+------------+-------------+
  | Args | Generic   | Specific |  Argument  | Result Type |
  +------+-----------+----------+------------+-------------+
  |  1   |  IMAG     |  AIMAG   | COMPLEX*8  | REAL*4      |
  |      |           |  DIMAG   | COMPLEX*16 | REAL*8      |
  +--------------------------------------------------------+