src-M/DIMENSIONS.FREE.old

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