almost_zero_r128 Function

private elemental function almost_zero_r128(scalar, rtol, atol)

Uses

Arguments

Type IntentOptional Attributes Name
real(kind=real128), intent(in) :: scalar
real(kind=real128), intent(in), optional :: rtol
real(kind=real128), intent(in), optional :: atol

Return Value logical


Contents

Source Code

almost_zero_r128

Source Code

  logical elemental function almost_zero_r128(scalar, rtol, atol)
    use optionals, only: get_option_with_default
    real(real128), intent(in) :: scalar
    real(real128), intent(in), optional :: rtol
    real(real128), intent(in), optional :: atol

    almost_zero_r128 = almost_equal(scalar, 0.0_real128, rtol, &
         atol=get_option_with_default(atol, 0.0_real128))
  end function almost_zero_r128