integer Max_Parm
integer MaxQ,MaxQ1
- integer MaxR,MaxT_h
+ integer MaxR,MaxT_h,maxHdim
integer MaxSlice
- parameter (Max_Parm=1)
- parameter (MaxQ=1,MaxQ1=MaxQ+2)
- parameter(MaxR=1,MaxT_h=32)
+ parameter (Max_Parm=5)
+ parameter (MaxQ=4,MaxQ1=MaxQ+2)
+ parameter(MaxR=8,MaxT_h=36)
parameter(MaxSlice=40)
+ parameter(maxHdim=200)
integer MaxN
parameter (MaxN=100)
integer MaxPrintConf