almost_equal_single Function

public function almost_equal_single(a, b, rtol, atol) result(res)

Checks whether (a-b) / max(a,eps) within tolerance

Arguments

Type IntentOptional Attributes Name
real(kind=SP), intent(in) :: a

values to be compared
real(kind=SP), intent(in) :: b

values to be compared
real(kind=SP) :: rtol

relative tolerance
real(kind=SP) :: atol

minumum value for normalisation (~absolute tolerance for rtol=0)

Return Value logical


Calls

proc~~almost_equal_single~~CallsGraph proc~almost_equal_single almost_equal_single proc~get_stdout get_stdout proc~almost_equal_single->proc~get_stdout

Called by

proc~~almost_equal_single~~CalledByGraph proc~almost_equal_single almost_equal_single interface~almost_equal almost_equal interface~almost_equal->proc~almost_equal_single