integer Max_Parm
      integer MaxQ,MaxQ1
      integer MaxR,MaxT_h
      integer MaxSlice
      parameter (Max_Parm=32)
      parameter (MaxQ=4,MaxQ1=MaxQ+2)
      parameter(MaxR=10,MaxT_h=36)
      parameter(MaxSlice=20)
      integer MaxN
      parameter (MaxN=100)
      integer MaxPrintConf
      parameter (MaxPrintConf=1000)
      integer Max_GridT
      parameter (Max_GridT=400)