HP Fortran Programmer's Reference (September 2007)

Intrinsic procedures
Intrinsic procedure specifications
Chapter 11542
Result type/
type parameters
Double precision real.
Result value
Case 1 If A is of type double precision real, DBLE(A) = A.
Case 2 If A is of type integer or real, the result is as much precision of the
significant part of A as a double precision real datum can contain.
Case 3 If A is of type complex, the result is as much precision of the significant part
of the real part of A as a double precision real datum can contain.
Specific forms
DBLEQ.
DCMPLX(X,Y)
Optional argument
Y
Description
Convert to double precision complex type.
Class
Elemental nonstandard function.
Arguments
X must be of type integer, real, or complex.
Y must not be supplied if X is of type complex; otherwise is optional and must
be of the same type and kind type parameter as X.
Result type/
type parameters
Double precision complex.