Section 11,17: CMPLX

 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    |   --     | INTEGER*1  | COMPLEX*8   |
 | 1,2  |           |   --     | INTEGER*2  | COMPLEX*8   |
 | 1,2  |           |   --     | INTEGER*4  | COMPLEX*8   |
 | 1,2  |see note 1 |   --     | INTEGER*8  | COMPLEX*8   |
 | 1,2  |           |   --     | REAL*4     | COMPLEX*8   |
 | 1,2  |           |   --     | REAL*8     | COMPLEX*8   |
 | 1,2  |see note 2 |   --     | REAL*16    | COMPLEX*8   |
 |  1   |           |   --     | COMPLEX*8  | COMPLEX*8   |
 |  1   |           |   --     | COMPLEX*16 | COMPLEX*8   |
 +------+-----------+----------+------------+-------------+

 NOTE 1: This argument type is only available on AXP systems.
 NOTE 2: This argument type is not available in DEC Fortran.

 The setting of -r8 affects CMPLX.