Next: DCMPLX, Previous: DATE_AND_TIME, Up: Intrinsic Procedures
DBLE — Double conversion functionDBLE(X) Converts X to double precision real type.
RESULT = DBLE(X)
| X | The type shall be INTEGER(*), REAL(*),
or COMPLEX(*).
|
program test_dble
real :: x = 2.18
integer :: i = 5
complex :: z = (2.3,1.14)
print *, dble(x), dble(i), dble(z)
end program test_dble