Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / ISAJET / isadata / aldata.F
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/MXDKY*0,MXDKY*0,MXDKY*0,MXDKY*0,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