"setZero.MBparams" <-
function(x,pNum)
{
    x <- setValue(x,pNum,0)
    return(x)
}