Single precision version of a function that returns the convergence criterium.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=sp) | :: | real_var | Any single precision variable. |
The single precision convergence criterium.
function eps_prec_s (real_var)
!! Single precision version of a function that returns the convergence
!! criterium.
real(sp) :: real_var
!! Any single precision variable.
real(sp) :: eps_prec_s
!! The single precision convergence criterium.
eps_prec_s = epss
end function eps_prec_s