not_exactly_equal_r128 Function

private elemental function not_exactly_equal_r128(a, b)

Arguments

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

Return Value logical


Contents

Source Code

not_exactly_equal_r128

Source Code

  logical elemental function not_exactly_equal_r128(a, b)
    real(real128), intent(in) :: a, b
    not_exactly_equal_r128 = .not. exactly_equal(a, b)
  end function not_exactly_equal_r128