Open Watcom FORTRAN 77 Language Reference

Functions and Subroutines
12.3.4 Type Conversion: Conversion to double precision
Name:
Usage:
DBLE (generic) D ←DBLE(I), D ←DBLE(R), D ←DBLE(D), D ←DBLE(C), D ←DBLE(Z) †
DREAL D ←DREAL(Z) †
DFLOAT D ←DFLOAT(I) †
Notes:
For X of type COMPLEX, DBLE(X) is the double precision representation of the real
part of X. For X of type COMPLEX*16, DBLE(X) is the real part of X.
† is an extension to FORTRAN 77.
12.3.5 Type Conversion: Conversion to complex
Name:
CMPLX (generic)
Usage:
C ←CMPLX(I), C ←CMPLX(I,I), C ←CMPLX(R), C ←CMPLX(R,R), C
←CMPLX(D), C ←CMPLX(D,D), C ←CMPLX(C), C ←CMPLX(Z) †
Notes: If X is of type COMPLEX, then CMPLX(X) is X. If X is of type COMPLEX*16,
then CMPLX(X) is a complex number whose real part is REAL(real part of X) and
imaginary part is REAL(imaginary part of X).
If X is not of type COMPLEX, then CMPLX(X) is the complex number whose real
part is REAL(X) and imaginary part is REAL(0). CMPLX(X,Y) is the complex
number whose real part is REAL(X) and whose imaginary part is REAL(Y) for X,Y
not of type COMPLEX.
† is an extension to FORTRAN 77.
12.3.6 Type Conversion: Conversion to double complex
Name:
Usage:
DCMPLX (generic) † Z ←DCMPLX(I), Z ←DCMPLX(I,I), Z ←DCMPLX(R), Z ←DCMPLX(R,R), Z
←DCMPLX(D), Z ←DCMPLX(D,D), Z ←DCMPLX(C), Z ←DCMPLX(Z)
Notes:
If X is of type COMPLEX*16, then DCMPLX(X) is X. If X is of type COMPLEX,
then DCMPLX(X) is a COMPLEX*16 number whose real part is DBLE(real part of
X) and imaginary part is DBLE(imaginary part of X).
If X is not of type COMPLEX*16, then DCMPLX(X) is the COMPLEX*16 number
whose real part is DBLE(X) and imaginary part is DBLE(0). DCMPLX(X,Y) is the
COMPLEX*16 number whose real part is DBLE(X) and whose imaginary part is
DBLE(Y) for X,Y not of type COMPLEX.
† is an extension to FORTRAN 77.
Intrinsic Functions 249