+-------------------------------IBM Extension--------------------------------+

Convert to extended complex type.

**X**- must be of type integer, real, or complex.
**Y (optional)**- must be of type integer or real. It must not be present if X is of type complex.

**Class**

Elemental function

**Result Type and Attributes**

It is of type extended complex.

**Result Value**

- If Y is absent and X is not complex, it is as if Y were present with the value of zero.
- If Y is absent and X is complex, it is as if Y were present with the value AIMAG(X) and X were present with the value REAL(X).
- QCMPLX(X, Y) has the complex value whose real part is REAL(X, KIND=16) and whose imaginary part is REAL(Y, KIND=16).

**Examples**

QCMPLX (-3) has the value (-3.0Q0, 0.0Q0).

Specific Name | Argument Type | Result Type | Pass As Arg? |
---|---|---|---|

QCMPLX | REAL(16) | COMPLEX(16) | no |

**Related Information**

CMPLX(X, Y, KIND), DCMPLX(X, Y).

+----------------------------End of IBM Extension----------------------------+