integer MaxQ,MaxQ1
integer MaxR,MaxT_h
integer MaxSlice
- parameter (Max_Parm=128)
+ parameter (Max_Parm=32)
parameter (MaxQ=4,MaxQ1=MaxQ+2)
- parameter(MaxR=1,MaxT_h=32)
- parameter(MaxSlice=40)
+ parameter(MaxR=10,MaxT_h=36)
+ parameter(MaxSlice=20)
integer MaxN
parameter (MaxN=100)
integer MaxPrintConf