"setZeros.MBparams" <-
function(x)
{
    x <- setValues(x,0)
    return(x)
}