almost_equal_double Function

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

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

Arguments

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

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

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

relative tolerance
real(kind=DP) :: atol

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

Return Value logical


Calls

proc~~almost_equal_double~~CallsGraph proc~almost_equal_double almost_equal_double proc~get_stdout get_stdout proc~almost_equal_double->proc~get_stdout

Called by

proc~~almost_equal_double~~CalledByGraph proc~almost_equal_double almost_equal_double interface~almost_equal almost_equal interface~almost_equal->proc~almost_equal_double