dble(a) Converts a to double precision real type.
FORTRAN 77 and later
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