DBLE — Double conversion function ¶RESULT = DBLE(A)
DBLE(A) Converts A to double precision real type.
Elemental function
| A | The type shall be INTEGER, REAL,
or COMPLEX. |
The return value is of type double precision real.
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
Fortran 77 and later