DREAL — Double real part function ¶DREAL(Z) returns the real part of complex variable Z.
GNU extension
Elemental function
RESULT = DREAL(A)
| A | The type shall be COMPLEX(8). |
The return value is of type REAL(8).
program test_dreal
complex(8) :: z = (1.3_8,7.2_8)
print *, dreal(z)
end program test_dreal