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

  AIMAG (complex-number)

  A function that returns the imaginary part of a complex number.
  The argument must be a COMPLEX*8 data type.  The result is a REAL*4
  data type.