is_equal_sp Function

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

Arguments

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

Return Value logical


Called by

proc~~is_equal_sp~~CalledByGraph proc~is_equal_sp is_equal_sp interface~is_equal is_equal interface~is_equal->proc~is_equal_sp

Source Code

   elemental function is_equal_sp(a, b) result(res)
      real(sp), intent(in) :: a, b
      logical :: res

      res = abs(a - b) < tol_sp
   end function is_equal_sp