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