zero_minus_start_double Function

private function zero_minus_start_double(weights, bVal, negSwitches, posSwitches) result(prob)

Arguments

Type IntentOptional Attributes Name
type(WeightObj_t), intent(in) :: weights
real(kind=dp), intent(in) :: bVal
real(kind=dp), intent(in) :: negSwitches
real(kind=dp), intent(in) :: posSwitches

Return Value real(kind=dp)


Contents

Source Code

zero_minus_start_double

Source Code

    function zero_minus_start_double(weights, bVal, negSwitches, posSwitches) result(prob)
        type(WeightObj_t), intent(in) :: weights
        real(dp), intent(in) :: bVal, negSwitches, posSwitches
        real(dp) :: prob

        real(dp) :: zero, minus

        zero = weights%proc%zero(negSwitches, posSwitches, bVal, weights%dat)
        minus = weights%proc%minus(negSwitches, bVal, weights%dat)

        prob = zero / (zero + minus)

    end function zero_minus_start_double