Next: DFLOAT, Previous: DBLE, Up: Intrinsic Procedures
DCMPLX
— Double complex conversion functionDCMPLX(X [,Y])
returns a double complex number where X is
converted to the real component. If Y is present it is converted to the
imaginary component. If Y is not present then the imaginary component is
set to 0.0. If X is complex then Y must not be present.
C = DCMPLX(X)
C = DCMPLX(X,Y)
X | The type may be INTEGER(*) , REAL(*) , or COMPLEX(*) .
|
Y | Optional if X is not COMPLEX(*) . May be INTEGER(*) or REAL(*) .
|
COMPLEX(8)
program test_dcmplx integer :: i = 42 real :: x = 3.14 complex :: z z = cmplx(i, x) print *, dcmplx(i) print *, dcmplx(x) print *, dcmplx(z) print *, dcmplx(x,i) end program test_dcmplx