approx – libPSML

private function approx(x, y, tol) result(is_close)

Arguments

Type	Intent		Name
real(kind=dp),	intent(in)	::	x
real(kind=dp),	intent(in)	::	y
real(kind=dp),	intent(in)	::	tol

Return Value logical

Source Code

approx

Source Code

     function approx(x,y,tol) result (is_close)
       real(dp), intent(in) :: x, y
       real(dp), intent(in) :: tol
       logical              :: is_close
       
       is_close = abs(x-y) < tol
     end function approx

approx Function

Contents

Source Code

private function approx(x, y, tol) result(is_close)

Arguments

Return Value logical

Contents

Source Code

Source Code