almost_zero_r64 Function

private elemental function almost_zero_r64(scalar, rtol, atol)

Uses

Arguments

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

Return Value logical


Contents

Source Code

almost_zero_r64

Source Code

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

    almost_zero_r64 = almost_equal(scalar, 0.0_real64, rtol, &
         atol=get_option_with_default(atol, 0.0_real64))
  end function almost_zero_r64