Inexact less then or equal to comparison: x <~= y
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=Float64), | intent(in) | :: | x | First value in comparison |
||
real(kind=Float64), | intent(in) | :: | y | Second value in comparison |
||
real(kind=Float64), | intent(in) | :: | tol | Equality tolerance |
function approx_le(x,y,tol) result(a)
!+ Inexact less then or equal to comparison: `x <~= y`
real(Float64), intent(in) :: x
!+First value in comparison
real(Float64), intent(in) :: y
!+Second value in comparison
real(Float64), intent(in) :: tol
!+Equality tolerance
logical :: a
a = (x.lt.y).or.(approx_eq(x,y,tol))
end function approx_le