DIMENSIONS.FREE

   1       integer Max_Parm
   2       integer MaxQ,MaxQ1
   3       integer MaxR,MaxT_h
   4       integer MaxSlice
   5       parameter (Max_Parm=16)
   6       parameter (MaxQ=4,MaxQ1=MaxQ+2)
   7       parameter(MaxR=16,MaxT_h=36)
   8       parameter(MaxSlice=40)
   9       integer MaxN
  10       parameter (MaxN=100)
  11       integer MaxPrintConf
  12       parameter (MaxPrintConf=1000)
  13       integer Max_GridT
  14       parameter (Max_GridT=400)