324
Appendix B
C
IS1=IB5+NTB
JB2=JB1+NHB
JE1=JB2+NCB
C WRAT, WCON, WLX, WLY, LEW, STEPW, SRAT, SCON, STEPS,
C DWR, DWC, DSR, DSC
C
C
IS2=IS1+NW*NTW
IS3=IS2+NW*NTW
IS4=IS3+NW
IS5=IS4+NW
IS6=IS5+NW
IS7=IS6+NTW
IS8=IS7+NS*NTS
IS9=IS8+NS*NTS
IS10=IS9+NTS
ISll=IS10+NP
IS12=ISll+NP
IS13=IS12+NP
IP1=IS13+NP
C ZTK, ZSE, ZPR, ZAL, ZAT, ZAD, DTK, DSE, DPR, DAL, DAT, DAD,
C PSE, PPR, PAD
C
C
IP2=IP1+NZON
IP3=IP2+NZON
IP4=IP3+NZON
IP5=IP4+NZON
IP6=IP5+NZON
IP7=IP6+NZON
IP8=IP7+NE
IP9=IP8+NE
IP10=IP9+NE
IPll=IP10+NE
IP12=IPll+NE
IP13=IP12+NE
IP14=IP13+NP
IP15=IP14+NP
IH1=IP15+NP
C HO, Hl, H2, CO, Cl, C2, HFOO, HFO, CFOO, CFO
C
C
IH2=IH1+NP
IH3=IH2+NP
IH4=IH3+NP
IH5=IH4+NP
IH6=IH5+NP
IH7=IH6+NP
IH8=IH7+NP
IH9=IH8+NP
IH10=IH9+NP
IE1=IH10+NP
C DXX, DXY, DYY, VX, vy, CFA, CFB, IE, IEE
C
IE2=IE1+NE
IE3=IE2+NE
IE4=IE3+NE
IE5=IE4+NE
IE6=IE5+NE
IE7=IE6+IH