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

  DIMAG (imaginary)

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