exactly_equal_r32 Function

private elemental function exactly_equal_r32(a, b)

Arguments

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

Return Value logical


Contents

Source Code

exactly_equal_r32

Source Code

  logical elemental function exactly_equal_r32(a, b)
    real(real32), intent(in) :: a, b
    exactly_equal_r32 = abs(a - b) <= 0.0
  end function exactly_equal_r32