AIMAG (complex-number)

  Class:  Elemental function - Generic

  Returns the imaginary part of a complex number.  If Z has the value
  (x, y), the result has the value "y".  This function can also be
  specified as IMAG.

  +------+---------+----------+------------+-------------+
  | Args | Generic | Specific |  Argument  | Result Type |
  +------+---------+----------+------------+-------------+
  |  1   | AIMAG   | AIMAG    | COMPLEX*8  | REAL*4      |
  |      |         | DIMAG    | COMPLEX*16 | REAL*8      |
  |      |         | QIMAG    | COMPLEX*32 | REAL*16     |
  +------+---------+----------+------------+-------------+

  Note: The setting of compiler options specifying real
        size can affect AIMAG.