Next: , Previous: COMMAND_ARGUMENT_COUNT, Up: Intrinsic Procedures


6.43 COMPLEX — Complex conversion function

Description:
COMPLEX(X, Y) returns a complex number where X is converted to the real component and Y is converted to the imaginary component.
Standard:
GNU extension
Class:
Elemental function
Syntax:
RESULT = COMPLEX(X, Y)
Arguments:

X The type may be INTEGER(*) or REAL(*).
Y The type may be INTEGER(*) or REAL(*).

Return value:
If X and Y are both of INTEGER type, then the return value is of default COMPLEX type.

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.

Example:
          program test_complex
              integer :: i = 42
              real :: x = 3.14
              print *, complex(i, x)
          end program test_complex
     

See also:
CMPLX