is_equal_dp Function

private elemental function is_equal_dp(a, b) result(res)

Arguments

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

Return Value logical


Called by

proc~~is_equal_dp~~CalledByGraph proc~is_equal_dp is_equal_dp interface~is_equal is_equal interface~is_equal->proc~is_equal_dp

Source Code

   elemental function is_equal_dp(a, b) result(res)
      real(dp), intent(in) :: a, b
      logical :: res

      res = abs(a - b) < tol_dp
   end function is_equal_dp