[u/mrichter/AliRoot.git] / ISAJET / isadata / aldata.F

#include "isajet/pilot.h"
      BLOCK DATA ALDATA
C          INITIALIZE ALL COMMON BLOCKS
C.......................................................................
C          WARNINGS: MANY VARIABLES SET IN ALDATA ARE ALSO SET BY      .
C          SUBROUTINE RESET.                                           .
C                                                                      .
C          ALDATA SHOULD ALWAYS BE LOADED WHEN USING ISAJET OR WHEN    .
C          READING AN ISAJET TAPE.                                     .
C.......................................................................
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
#include "isajet/itapes.inc"
#include "isajet/pjets.inc"
#include "isajet/pinits.inc"
#include "isajet/lstprt.inc"
#include "isajet/dkytab.inc"
#include "isajet/dylim.inc"
#include "isajet/eepar.inc"
#include "isajet/frgpar.inc"
#include "isajet/idrun.inc"
#include "isajet/jetlim.inc"
#include "isajet/jetpar.inc"
#include "isajet/jetset.inc"
#include "isajet/jetsig.inc"
#include "isajet/limevl.inc"
#include "isajet/mbpar.inc"
#include "isajet/nodcay.inc"
#include "isajet/partcl.inc"
#include "isajet/primar.inc"
#include "isajet/prtout.inc"
#include "isajet/qcdpar.inc"
#include "isajet/qlmass.inc"
#include "isajet/q1q2.inc"
#include "isajet/seed.inc"
#include "isajet/sspar.inc"
#include "isajet/tcpar.inc"
#include "isajet/totals.inc"
#include "isajet/types.inc"
#include "isajet/wcon.inc"
#include "isajet/mbgen.inc"
#include "isajet/force.inc"
#include "isajet/zevel.inc"
#include "isajet/final.inc"
#include "isajet/keys.inc"
#include "isajet/hcon.inc"
#include "isajet/xmssm.inc"
#include "isajet/sugnu.inc"
#include "isajet/isapw.inc"
#include "isajet/sstype.inc"
#include "isajet/listss.inc"
C
      INTEGER III,JJJ
      INTEGER MXGOQJ
      PARAMETER (MXGOQJ=MXGOJ*MXGOQ)
      INTEGER MXGOWJ
      PARAMETER (MXGOWJ=25*MXGOJ)
      INTEGER MXT29
      PARAMETER (MXT29=29*MXTYPE)
C          SUSY IDENT codes from /SSTYPE/
      INTEGER MSUPL,MSDNL,MSSTL,MSCHL,MSBT1,MSTP1,
     $MSUPR,MSDNR,MSSTR,MSCHR,MSBT2,MSTP2,MSW1,MSW2,
     $MSNEL,MSEL,MSNML,MSMUL,MSNTL,MSTAU1,MSER,MSMUR,MSTAU2
      PARAMETER (MSUPL=-ISUPL)
      PARAMETER (MSDNL=-ISDNL)
      PARAMETER (MSSTL=-ISSTL)
      PARAMETER (MSCHL=-ISCHL)
      PARAMETER (MSBT1=-ISBT1)
      PARAMETER (MSTP1=-ISTP1)
      PARAMETER (MSUPR=-ISUPR)
      PARAMETER (MSDNR=-ISDNR)
      PARAMETER (MSSTR=-ISSTR)
      PARAMETER (MSCHR=-ISCHR)
      PARAMETER (MSBT2=-ISBT2)
      PARAMETER (MSTP2=-ISTP2)
      PARAMETER (MSW1=-ISW1)
      PARAMETER (MSW2=-ISW2)
      PARAMETER (MSNEL=-ISNEL)
      PARAMETER (MSEL=-ISEL)
      PARAMETER (MSNML=-ISNML)
      PARAMETER (MSMUL=-ISMUL)
      PARAMETER (MSNTL=-ISNTL)
      PARAMETER (MSTAU1=-ISTAU1)
      PARAMETER (MSER=-ISER)
      PARAMETER (MSMUR=-ISMUR)
      PARAMETER (MSTAU2=-ISTAU2)
C
C          DATA FOR IDRUN
C          IDVER=100*VERSION+CYCLE
C     DATA IDVER/600/
C
C          DATA FOR ITAPES
      DATA ITDKY,ITEVT,ITCOM,ITLIS/1,2,5,6/
C
C          DATA FOR QLMASS
C          AMLEP LABELED BY INDEX...SEE FLAVOR
C          SETW RESETS W+- AND Z0 MASSES
      DATA AMLEP/.3,.3,.5,1.6,5.0,175.,-1.,-1.,0.,0.,
     $0.,.511003E-3,0.,.105661,0.,1.777,3*-1.,.49767,.49767,
     $79*0./
      DATA NQLEP,NMES,NBARY/61,2,2/
C
C          DATA FOR PJETS
      DATA IDJETS/MXJETS*0/,IDENTW/0/
C
C          DATA FOR PINITS
      DATA IDINIT/2*0/
C
C          DATA FOR LSTPRT
      DATA LSTPRT/0/
C
C          DATA FOR MBPAR
      DATA PUD0/.45/,PJSPN,PISPN/2*.5/,SIGQT0/.35/,XGEN0/.9,1./,PMIX01/
     $.25,.25,.5,0.,.5,1./,PMIX02/.5,.5,1.,0.,0.,1./
      DATA PBARY0/.075/
C
C          DATA FOR MBGEN
      DATA MNPOM,MXPOM/1,LIMPOM/
C
C          DATA FOR SEED
      DATA XSEED/'0'/
C
C          DATA FOR TCPAR
      DATA TCMRHO,TCGRHO/1000.,100./
C
C          DATA FOR FRGPAR
C          F(X)=1-XGEN(1)+XGEN(1)*(XGEN(2)+1)*(1-X)**XGEN(2) FOR U,D,S
C          PETERSON FRAGMENTATION, EPSILON=XGEN(I)*M(I)**2 FOR C,B,T
      DATA PUD,PBARY/.43,.10/
      DATA SIGQT,PEND/.35,.14/
      DATA XGEN/.96,3.,0.,.8,.5,.5,.5,.5/
      DATA PSPIN1/.5,.5,.5,.75,.75,.75,.75,.75/
      DATA PMIX1/.25,.25,.5,0.,.5,1./,PMIX2/.5,.5,1.,0.,0.,1./
      DATA XGENSS/9*.5/
C
C          DATA FOR JETLIM
      DATA BLIMS/MXLX12*-1.E9/
C
C          DATA FOR NODCAY
      DATA NODCAY,NOETA,NOPI0,NONUNU,NOEVOL,NOHADR/6*.FALSE./
      DATA NOGRAV/.FALSE./
C
C          DATA FOR TYPES
      DATA LOC/100*0/,NTYP/100/
      DATA NJTTYP/MXTYPE*0/
      DATA (JETYP(1,JJJ),JJJ=1,MXTYPE)/MXTYPE*'ALL     '/,
     $((JETYP(III,JJJ),III=2,30),JJJ=1,MXTYPE)/MXT29*'        '/
      DATA NWWTYP/2*0/
      DATA (WWTYP(1,JJJ),JJJ=1,2)/2*'ALL     '/,
     $((WWTYP(III,JJJ),III=2,30),JJJ=1,2)/58*'        '/
      DATA JWTYP/4/
C
C          DATA FOR PRIMAR
      DATA IDIN/1120,1120/
      DATA NTRIES/1000/
      DATA NSIGMA/20/
C
C          DATA FOR DKYTAB
      DATA LOOK/MXLOOK*0/
      DATA CBR/MXDKY*0./
      DATA MODE/MXDKY*0,MXDKY*0,MXDKY*0,MXDKY*0,MXDKY*0/
C
C          DATA FOR Q1Q2
      DATA GOQ/MXGOQJ*.TRUE./
      DATA GOALL/MXGOJ*.TRUE./
      DATA GODY/.TRUE.,.FALSE.,.FALSE.,.TRUE./
      DATA GOWW/50*.TRUE./,ALLWW/2*.TRUE./
      DATA GOWMOD/MXGOWJ*.TRUE./
C
C          DATA FOR WCON
      DATA MATCH/
     $0,3,2,5,4,7,6,9,8,11,10,13,12,0,0,17,16,0,0,21,20,0,0,25,24,
     $0,5,0,0,2,0,8,7,0,0,12,11,0,17,0,0,14,21,0,0,18,25,0,0,22,
     $0,0,4,3,0,9,0,0,6,13,0,0,10,0,16,15,0,0,20,19,0,0,24,23,0,
     $0,3,2,5,4,7,6,9,8,11,10,13,12,15,14,17,16,19,18,21,20,23,22,25,24/
      DATA CUTOFF,CUTPOW/.200,1.0/
      DATA WMASS/0.,80.2,80.2,91.19/
      DATA WFUDGE/1.85/
C
C          DATA FOR TOTALS
      DATA NKINPT,NWGEN,NKEEP/3*0/,SUMWT/0./
C
C          DATA FOR DYLIM
      DATA BLIM1/12*-1.E9/
C
C          DATA FOR EEPAR
      DATA PLEP/0./,PLEM/0./,IBREM/.FALSE./,IBEAM/.FALSE./
C
C          DATA FOR PARTCL
      DATA NPTCL/0/
C
C            DATA FOR PRTOUT
      DATA NEVPRT,NJUMP/1,1/
C
C          DATA FOR JETSET
      DATA NJSET/0/
C
C          DATA FOR QCDPAR
      DATA ALAM,ALAM2/.2,.04/,CUTJET/6./,ISTRUC/6/
C
C          DATA FOR FORCE
      DATA NFORCE/0/
C
C          DATA FOR NRECS
      DATA NRECS/0/
C
C          DATA FOR KEYS
      DATA KEYS/MXKEYS*.FALSE./
C
C          DATA FOR MATCHH
      DATA MATCHH/
     $1,3,2,5,4,7,6,9,8,11,10,13,12,
     $15,14,17,16,19,18,21,20,23,22,25,24,
     $26,28,27,29/
      DATA USELIM/.FALSE./
      DATA CONCUT/1.0/
C
C          DATA FOR SSPAR
      DATA AMGVSS/1.E20/
C
C          DATA FOR XMSSM
      DATA GOMSSM/.FALSE./,GOSUG/.FALSE./,GOGMSB/.FALSE./
      DATA GOAMSB/.FALSE./
      DATA AL3UNI/.FALSE./
      DATA XM1SS,XM2SS/1.E20,1.E20/
      DATA XMGVTO/1.E20/
      DATA XQ2SS,XSRSS,XCRSS,XL2SS,XMRSS/1.E20,1.E20,1.E20,1.E20,1.E20/
      DATA XRSLGM,XDHDGM,XDHUGM,XDYGM/1.,0.,0.,0./
      DATA XN51GM,XN52GM,XN53GM/0.,0.,0./
      DATA XMN3NR/0./,XMAJNR/1.E20/,XANSS/0./,XNRSS/0./,XSBCS/0./
C          DATA FOR SUGNU
      DATA XNUSUG/18*1.E20/
C
C          DATA FOR ISAPW
      DATA ISAPW1/'ALDATA REQUIRED BY FORTRAN G,H'/
C
C          DATA FOR LISTSS
      DATA LISTSS/ISGL,
     $ISUPL,MSUPL,ISDNL,MSDNL,ISSTL,MSSTL,ISCHL,MSCHL,ISBT1,MSBT1,
     $ISTP1,MSTP1,
     $ISUPR,MSUPR,ISDNR,MSDNR,ISSTR,MSSTR,ISCHR,MSCHR,ISBT2,MSBT2,
     $ISTP2,MSTP2,
     $ISW1,MSW1,ISW2,MSW2,ISZ1,ISZ2,ISZ3,ISZ4,
     $ISNEL,MSNEL,ISEL,MSEL,ISNML,MSNML,ISMUL,MSMUL,ISNTL,MSNTL,
     $ISTAU1,MSTAU1,ISER,MSER,ISMUR,MSMUR,ISTAU2,MSTAU2,
     $9,1,-1,2,-2,3,-3,4,-4,5,-5,6,-6,11,-11,12,-12,13,-13,
     $14,-14,15,-15,16,-16,10,80,-80,90,82,83,84,86,-86/
C
      END
Commit	Line	Data
0795afa3	1	#include "isajet/pilot.h"
	2	BLOCK DATA ALDATA
	3	C INITIALIZE ALL COMMON BLOCKS
	4	C.......................................................................
	5	C WARNINGS: MANY VARIABLES SET IN ALDATA ARE ALSO SET BY .
	6	C SUBROUTINE RESET. .
	7	C .
	8	C ALDATA SHOULD ALWAYS BE LOADED WHEN USING ISAJET OR WHEN .
	9	C READING AN ISAJET TAPE. .
	10	C.......................................................................
	11	#if defined(CERNLIB_IMPNONE)
	12	IMPLICIT NONE
	13	#endif
	14	#include "isajet/itapes.inc"
	15	#include "isajet/pjets.inc"
	16	#include "isajet/pinits.inc"
	17	#include "isajet/lstprt.inc"
	18	#include "isajet/dkytab.inc"
	19	#include "isajet/dylim.inc"
	20	#include "isajet/eepar.inc"
	21	#include "isajet/frgpar.inc"
	22	#include "isajet/idrun.inc"
	23	#include "isajet/jetlim.inc"
	24	#include "isajet/jetpar.inc"
	25	#include "isajet/jetset.inc"
	26	#include "isajet/jetsig.inc"
	27	#include "isajet/limevl.inc"
	28	#include "isajet/mbpar.inc"
	29	#include "isajet/nodcay.inc"
	30	#include "isajet/partcl.inc"
	31	#include "isajet/primar.inc"
	32	#include "isajet/prtout.inc"
	33	#include "isajet/qcdpar.inc"
	34	#include "isajet/qlmass.inc"
	35	#include "isajet/q1q2.inc"
	36	#include "isajet/seed.inc"
	37	#include "isajet/sspar.inc"
	38	#include "isajet/tcpar.inc"
	39	#include "isajet/totals.inc"
	40	#include "isajet/types.inc"
	41	#include "isajet/wcon.inc"
	42	#include "isajet/mbgen.inc"
	43	#include "isajet/force.inc"
	44	#include "isajet/zevel.inc"
	45	#include "isajet/final.inc"
	46	#include "isajet/keys.inc"
	47	#include "isajet/hcon.inc"
	48	#include "isajet/xmssm.inc"
	49	#include "isajet/sugnu.inc"
	50	#include "isajet/isapw.inc"
	51	#include "isajet/sstype.inc"
	52	#include "isajet/listss.inc"
	53	C
	54	INTEGER III,JJJ
	55	INTEGER MXGOQJ
	56	PARAMETER (MXGOQJ=MXGOJ*MXGOQ)
	57	INTEGER MXGOWJ
	58	PARAMETER (MXGOWJ=25*MXGOJ)
	59	INTEGER MXT29
	60	PARAMETER (MXT29=29*MXTYPE)
	61	C SUSY IDENT codes from /SSTYPE/
	62	INTEGER MSUPL,MSDNL,MSSTL,MSCHL,MSBT1,MSTP1,
	63	$MSUPR,MSDNR,MSSTR,MSCHR,MSBT2,MSTP2,MSW1,MSW2,
	64	$MSNEL,MSEL,MSNML,MSMUL,MSNTL,MSTAU1,MSER,MSMUR,MSTAU2
65	PARAMETER (MSUPL=-ISUPL)
66	PARAMETER (MSDNL=-ISDNL)
67	PARAMETER (MSSTL=-ISSTL)
68	PARAMETER (MSCHL=-ISCHL)
69	PARAMETER (MSBT1=-ISBT1)
70	PARAMETER (MSTP1=-ISTP1)
71	PARAMETER (MSUPR=-ISUPR)
72	PARAMETER (MSDNR=-ISDNR)
73	PARAMETER (MSSTR=-ISSTR)
74	PARAMETER (MSCHR=-ISCHR)
75	PARAMETER (MSBT2=-ISBT2)
76	PARAMETER (MSTP2=-ISTP2)
77	PARAMETER (MSW1=-ISW1)
78	PARAMETER (MSW2=-ISW2)
79	PARAMETER (MSNEL=-ISNEL)
80	PARAMETER (MSEL=-ISEL)
81	PARAMETER (MSNML=-ISNML)
82	PARAMETER (MSMUL=-ISMUL)
83	PARAMETER (MSNTL=-ISNTL)
84	PARAMETER (MSTAU1=-ISTAU1)
85	PARAMETER (MSER=-ISER)
86	PARAMETER (MSMUR=-ISMUR)
87	PARAMETER (MSTAU2=-ISTAU2)
88	C
89	C DATA FOR IDRUN
90	C IDVER=100*VERSION+CYCLE
91	C DATA IDVER/600/
92	C
93	C DATA FOR ITAPES
94	DATA ITDKY,ITEVT,ITCOM,ITLIS/1,2,5,6/
95	C
96	C DATA FOR QLMASS
97	C AMLEP LABELED BY INDEX...SEE FLAVOR
98	C SETW RESETS W+- AND Z0 MASSES
99	DATA AMLEP/.3,.3,.5,1.6,5.0,175.,-1.,-1.,0.,0.,
100	$0.,.511003E-3,0.,.105661,0.,1.777,3*-1.,.49767,.49767,
101	$79*0./
102	DATA NQLEP,NMES,NBARY/61,2,2/
103	C
104	C DATA FOR PJETS
105	DATA IDJETS/MXJETS*0/,IDENTW/0/
106	C
107	C DATA FOR PINITS
108	DATA IDINIT/2*0/
109	C
110	C DATA FOR LSTPRT
111	DATA LSTPRT/0/
112	C
113	C DATA FOR MBPAR
114	DATA PUD0/.45/,PJSPN,PISPN/2*.5/,SIGQT0/.35/,XGEN0/.9,1./,PMIX01/
115	$.25,.25,.5,0.,.5,1./,PMIX02/.5,.5,1.,0.,0.,1./
116	DATA PBARY0/.075/
117	C
118	C DATA FOR MBGEN
119	DATA MNPOM,MXPOM/1,LIMPOM/
120	C
121	C DATA FOR SEED
122	DATA XSEED/'0'/
123	C
124	C DATA FOR TCPAR
125	DATA TCMRHO,TCGRHO/1000.,100./
126	C
127	C DATA FOR FRGPAR
128	C F(X)=1-XGEN(1)+XGEN(1)(XGEN(2)+1)(1-X)**XGEN(2) FOR U,D,S
129	C PETERSON FRAGMENTATION, EPSILON=XGEN(I)M(I)*2 FOR C,B,T
130	DATA PUD,PBARY/.43,.10/
131	DATA SIGQT,PEND/.35,.14/
132	DATA XGEN/.96,3.,0.,.8,.5,.5,.5,.5/
133	DATA PSPIN1/.5,.5,.5,.75,.75,.75,.75,.75/
134	DATA PMIX1/.25,.25,.5,0.,.5,1./,PMIX2/.5,.5,1.,0.,0.,1./
135	DATA XGENSS/9*.5/
136	C
137	C DATA FOR JETLIM
138	DATA BLIMS/MXLX12*-1.E9/
139	C
140	C DATA FOR NODCAY
141	DATA NODCAY,NOETA,NOPI0,NONUNU,NOEVOL,NOHADR/6*.FALSE./
142	DATA NOGRAV/.FALSE./
143	C
144	C DATA FOR TYPES
145	DATA LOC/100*0/,NTYP/100/
146	DATA NJTTYP/MXTYPE*0/
147	DATA (JETYP(1,JJJ),JJJ=1,MXTYPE)/MXTYPE*'ALL '/,
148	$((JETYP(III,JJJ),III=2,30),JJJ=1,MXTYPE)/MXT29*' '/
149	DATA NWWTYP/2*0/
150	DATA (WWTYP(1,JJJ),JJJ=1,2)/2*'ALL '/,
151	$((WWTYP(III,JJJ),III=2,30),JJJ=1,2)/58*' '/
152	DATA JWTYP/4/
153	C
154	C DATA FOR PRIMAR
155	DATA IDIN/1120,1120/
156	DATA NTRIES/1000/
157	DATA NSIGMA/20/
158	C
159	C DATA FOR DKYTAB
160	DATA LOOK/MXLOOK*0/
161	DATA CBR/MXDKY*0./
162	DATA MODE/MXDKY0,MXDKY0,MXDKY0,MXDKY0,MXDKY*0/
163	C
164	C DATA FOR Q1Q2
165	DATA GOQ/MXGOQJ*.TRUE./
166	DATA GOALL/MXGOJ*.TRUE./
167	DATA GODY/.TRUE.,.FALSE.,.FALSE.,.TRUE./
168	DATA GOWW/50.TRUE./,ALLWW/2.TRUE./
169	DATA GOWMOD/MXGOWJ*.TRUE./
170	C
171	C DATA FOR WCON
172	DATA MATCH/
173	$0,3,2,5,4,7,6,9,8,11,10,13,12,0,0,17,16,0,0,21,20,0,0,25,24,
174	$0,5,0,0,2,0,8,7,0,0,12,11,0,17,0,0,14,21,0,0,18,25,0,0,22,
175	$0,0,4,3,0,9,0,0,6,13,0,0,10,0,16,15,0,0,20,19,0,0,24,23,0,
176	$0,3,2,5,4,7,6,9,8,11,10,13,12,15,14,17,16,19,18,21,20,23,22,25,24/
177	DATA CUTOFF,CUTPOW/.200,1.0/
178	DATA WMASS/0.,80.2,80.2,91.19/
179	DATA WFUDGE/1.85/
180	C
181	C DATA FOR TOTALS
182	DATA NKINPT,NWGEN,NKEEP/3*0/,SUMWT/0./
183	C
184	C DATA FOR DYLIM
185	DATA BLIM1/12*-1.E9/
186	C
187	C DATA FOR EEPAR
188	DATA PLEP/0./,PLEM/0./,IBREM/.FALSE./,IBEAM/.FALSE./
189	C
190	C DATA FOR PARTCL
191	DATA NPTCL/0/
192	C
193	C DATA FOR PRTOUT
194	DATA NEVPRT,NJUMP/1,1/
195	C
196	C DATA FOR JETSET
197	DATA NJSET/0/
198	C
199	C DATA FOR QCDPAR
200	DATA ALAM,ALAM2/.2,.04/,CUTJET/6./,ISTRUC/6/
201	C
202	C DATA FOR FORCE
203	DATA NFORCE/0/
204	C
205	C DATA FOR NRECS
206	DATA NRECS/0/
207	C
208	C DATA FOR KEYS
209	DATA KEYS/MXKEYS*.FALSE./
210	C
211	C DATA FOR MATCHH
212	DATA MATCHH/
213	$1,3,2,5,4,7,6,9,8,11,10,13,12,
214	$15,14,17,16,19,18,21,20,23,22,25,24,
215	$26,28,27,29/
216	DATA USELIM/.FALSE./
217	DATA CONCUT/1.0/
218	C
219	C DATA FOR SSPAR
220	DATA AMGVSS/1.E20/
221	C
222	C DATA FOR XMSSM
223	DATA GOMSSM/.FALSE./,GOSUG/.FALSE./,GOGMSB/.FALSE./
224	DATA GOAMSB/.FALSE./
225	DATA AL3UNI/.FALSE./
226	DATA XM1SS,XM2SS/1.E20,1.E20/
227	DATA XMGVTO/1.E20/
228	DATA XQ2SS,XSRSS,XCRSS,XL2SS,XMRSS/1.E20,1.E20,1.E20,1.E20,1.E20/
229	DATA XRSLGM,XDHDGM,XDHUGM,XDYGM/1.,0.,0.,0./
230	DATA XN51GM,XN52GM,XN53GM/0.,0.,0./
231	DATA XMN3NR/0./,XMAJNR/1.E20/,XANSS/0./,XNRSS/0./,XSBCS/0./
232	C DATA FOR SUGNU
233	DATA XNUSUG/18*1.E20/
234	C
235	C DATA FOR ISAPW
236	DATA ISAPW1/'ALDATA REQUIRED BY FORTRAN G,H'/
237	C
238	C DATA FOR LISTSS
239	DATA LISTSS/ISGL,
240	$ISUPL,MSUPL,ISDNL,MSDNL,ISSTL,MSSTL,ISCHL,MSCHL,ISBT1,MSBT1,
241	$ISTP1,MSTP1,
242	$ISUPR,MSUPR,ISDNR,MSDNR,ISSTR,MSSTR,ISCHR,MSCHR,ISBT2,MSBT2,
243	$ISTP2,MSTP2,
244	$ISW1,MSW1,ISW2,MSW2,ISZ1,ISZ2,ISZ3,ISZ4,
245	$ISNEL,MSNEL,ISEL,MSEL,ISNML,MSNML,ISMUL,MSMUL,ISNTL,MSNTL,
246	$ISTAU1,MSTAU1,ISER,MSER,ISMUR,MSMUR,ISTAU2,MSTAU2,
247	$9,1,-1,2,-2,3,-3,4,-4,5,-5,6,-6,11,-11,12,-12,13,-13,
248	$14,-14,15,-15,16,-16,10,80,-80,90,82,83,84,86,-86/
249	C
250	END