Elemental Intrinsic Function (Specific): Converts the real part of a COMPLEX(16) argument to REAL(16) type. This is a specific function that has no generic function associated with it. It cannot be passed as an actual argument.
result = QREAL (a)
a
(Input) Must be of type COMPLEX(16) (or COMPLEX*32).
Results
The result type is quad-precision real (REAL(16) or REAL*16).