parameter (maxvar = 40)    !variables
  	parameter (maxmlvl = 10)    !mean levels
  	parameter (maxplvl = 10)    !prob levels
  	parameter (maxtlvl = 10)    !threshold levels