Next: DTIME, Previous: DPROD, Up: Intrinsic Procedures
DREAL — Double real part functionDREAL(Z) returns the real part of complex variable Z.
     RESULT = DREAL(Z)
     | Z | The type shall be COMPLEX(8). | 
REAL(8).
               program test_dreal
              complex(8) :: z = (1.3_8,7.2_8)
              print *, dreal(z)
          end program test_dreal