Next: COMMAND_ARGUMENT_COUNT, Previous: CHMOD, Up: Intrinsic Procedures

`CMPLX`

— Complex conversion function*Description*:`CMPLX(X [, Y [, KIND]])`

returns a 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.*Standard*:- F77 and later
*Class*:- Elemental function
*Syntax*:`RESULT = CMPLX(X [, Y [, KIND]])`

*Arguments*:-
`X`The type may be `INTEGER(*)`

,`REAL(*)`

, or`COMPLEX(*)`

.`Y`(Optional; only allowed if `X`is not`COMPLEX(*)`

.) May be`INTEGER(*)`

or`REAL(*)`

.`KIND`(Optional) An `INTEGER(*)`

initialization expression indicating the kind parameter of the result. *Return value*:- The return value is of
`COMPLEX`

type, with a kind equal to`KIND`if it is specified. If`KIND`is not specified, the result is of the default`COMPLEX`

kind, regardless of the kinds of`X`and`Y`. *Example*:-
program test_cmplx integer :: i = 42 real :: x = 3.14 complex :: z z = cmplx(i, x) print *, z, cmplx(x) end program test_cmplx

*See also*:- COMPLEX