integer Max_Parm
      integer MaxQ,MaxQ1
      integer MaxR,MaxT_h
      integer MaxSlice
      parameter (Max_Parm=1)
      parameter (MaxQ=1,MaxQ1=MaxQ+2)
      parameter(MaxR=1,MaxT_h=36)
      parameter(MaxSlice=20)
      integer MaxN
      parameter (MaxN=100)
      integer MaxPrintConf
      parameter (MaxPrintConf=1000)