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

  CMPLX (number [,number])

  A function that converts the argument(s) into a COMPLEX*8 value.
  If one argument is specified, the argument is converted into the
  real part of the complex value and the imaginary part becomes zero.
  If two arguments are specified, the first argument is converted
  into the real part of the complex value and the second argument is
  converted into the imaginary part of the complex value.  If two
  arguments are specified, they must have the same data type.

  +-------+---------+----------+------------+-------------+
  | Args  | Generic | Specific |  Argument  | Result Type |
  +-------+---------+----------+------------+-------------+
  | 1,2   |  CMPLX  | CMPLX    | INTEGER*2  | COMPLEX*8   |
  | 1,2   |         | CMPLX    | INTEGER*4  | COMPLEX*8   |
  | 1,2   |         | CMPLX    | REAL*4     | COMPLEX*8   |
  | 1,2   |         | CMPLX    | REAL*8     | COMPLEX*8   |
  | 1,2   |         | CMPLX    | REAL*16    | COMPLEX*8   |
  |  1    |         | CMPLX    | COMPLEX*8  | COMPLEX*8   |
  |  1    |         | CMPLX    | COMPLEX*16 | COMPLEX*8   |
  +-------+---------+----------+------------+-------------+