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	Intent	Optional	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