Double precision version of a function that returns the convergence criterium.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=dp) | :: | real_var | Any double precision variable. |
The double precision convergence criterium.
function eps_prec_d (real_var)
!! Double precision version of a function that returns the convergence
!! criterium.
real(dp) :: real_var
!! Any double precision variable.
real(dp) :: eps_prec_d
!! The double precision convergence criterium.
eps_prec_d = epsd
end function eps_prec_d