DBLE — Double conversion function ¶DBLE(A) Converts A to double precision real type.
Fortran 77 and later
Elemental function
RESULT = DBLE(A)
| 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