Portability Function: Converts a COMPLEX(4) argument to double-precision real type.
USE IFPORT
result = CDFLOAT (input)
input
(Input) COMPLEX(4). The value to be converted.
The result type is REAL(8).