Quad precision version of a function that returns the convergence criterium.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=qp) | :: | real_var | Any quad precision variable. |
The quad precision convergence criterium.
function eps_prec_q (real_var)
!! Quad precision version of a function that returns the convergence
!! criterium.
real(qp) :: real_var
!! Any quad precision variable.
real(qp) :: eps_prec_q
!! The quad precision convergence criterium.
eps_prec_q = epsq
end function eps_prec_q