probability_one Function

private function probability_one(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)


Source Code

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

        unused_var(weights)
        unused_var(bVal)
        unused_var(negSwitches)
        unused_var(posSwitches)

        prob = 1.0_dp

    end function probability_one