COMPLEX(X, Y) returns a complex number where X is converted to the real component and Y is converted to the imaginary component.
RESULT = COMPLEX(X, Y)
|X||The type may be
|Y||The type may be
If X and Y are both of
INTEGER type, then the return value is of default
If X and Y are of
REAL type, or one is of
REAL type and one is of
INTEGER type, then the return value is of
COMPLEX type with a kind equal to that of the
REAL argument with the highest precision.
program test_complex integer :: i = 42 real :: x = 3.14 print *, complex(i, x) end program test_complex
© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.