getMinus_double Function

    function getMinus_double(nSwitches, bVal, double) result(minusWeight)
        real(dp), intent(in) :: nSwitches, bVal
        type(WeightData_t), intent(in) :: double
        real(dp) :: minusWeight
        character(*), parameter :: this_routine = "getMinus_double"
        ASSERT(nSwitches >= 0.0_dp)

        minusWeight = double%F + nSwitches / max(1.0_dp, bVal)

        ASSERT(minusWeight >= 0.0_dp)
    end function getMinus_double