approx_ge Function

  1. fidasim.f90
  2. libfida
  3. approx_ge

public function approx_ge(x, y, tol) result(a)

Inexact greater than or equal to comparison: x >~= y

Arguments

Type IntentOptional AttributesName
real(kind=Float64), intent(in) :: x

First value in comparison
real(kind=Float64), intent(in) :: y

Second value in comparison
real(kind=Float64), intent(in) :: tol

Equality tolerance

Return Value logical


Calls

proc~~approx_ge~~CallsGraph proc~approx_ge approx_ge proc~approx_eq approx_eq proc~approx_ge->proc~approx_eq

Called by

proc~~approx_ge~~CalledByGraph proc~approx_ge approx_ge proc~in_passive_grid in_passive_grid proc~in_passive_grid->proc~approx_ge proc~in_grid in_grid proc~in_grid->proc~approx_ge proc~circle_grid_intersect circle_grid_intersect proc~circle_grid_intersect->proc~in_grid proc~grid_intersect grid_intersect proc~circle_grid_intersect->proc~grid_intersect proc~read_mc read_mc proc~read_mc->proc~in_grid proc~read_mc->proc~circle_grid_intersect proc~grid_intersect->proc~in_passive_grid proc~fida_weights_los fida_weights_los proc~fida_weights_los->proc~grid_intersect proc~mc_nbi mc_nbi proc~mc_nbi->proc~grid_intersect proc~read_distribution read_distribution proc~read_distribution->proc~read_mc proc~make_diagnostic_grids make_diagnostic_grids proc~make_diagnostic_grids->proc~grid_intersect proc~ndmc ndmc proc~ndmc->proc~mc_nbi program~fidasim fidasim program~fidasim->proc~fida_weights_los program~fidasim->proc~read_distribution program~fidasim->proc~make_diagnostic_grids program~fidasim->proc~ndmc

Contents

Source Code

approx_ge

Source Code

function approx_ge(x,y,tol) result(a)
    !+ Inexact greater than or equal to comparison: `x >~= y`
    real(Float64), intent(in) :: x
        !+First value in comparison
    real(Float64), intent(in) :: y
        !+Second value in comparison
    real(Float64), intent(in) :: tol
        !+Equality tolerance

    logical :: a

    a = (x.gt.y).or.(approx_eq(x,y,tol))

end function approx_ge