integer Max_Parm
      integer MaxQ,MaxQ1
      integer MaxR,MaxT_h,maxHdim
      integer MaxSlice
      parameter (Max_Parm=5)
      parameter (MaxQ=4,MaxQ1=MaxQ+6)
      parameter(MaxR=8,MaxT_h=36)
      parameter(MaxSlice=40)
      parameter(maxHdim=200)
      integer MaxN
      parameter (MaxN=100)
      integer MaxPrintConf
      parameter (MaxPrintConf=1000)