almost_zero_r32 Function

private elemental function almost_zero_r32(scalar, rtol, atol)

Uses

Is a scalar almost zero

Arguments

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

Return Value logical


Contents

Source Code

almost_zero_r32

Source Code

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

    almost_zero_r32 = almost_equal(scalar, 0.0_real32, rtol, &
         atol=get_option_with_default(atol, 0.0_real32))
  end function almost_zero_r32