Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / ISAJET / isadata / aldata.F
CommitLineData
0795afa3 1#include "isajet/pilot.h"
2 BLOCK DATA ALDATA
3C INITIALIZE ALL COMMON BLOCKS
4C.......................................................................
5C WARNINGS: MANY VARIABLES SET IN ALDATA ARE ALSO SET BY .
6C SUBROUTINE RESET. .
7C .
8C ALDATA SHOULD ALWAYS BE LOADED WHEN USING ISAJET OR WHEN .
9C READING AN ISAJET TAPE. .
10C.......................................................................
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"
53C
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)
61C 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)
88C
89C DATA FOR IDRUN
90C IDVER=100*VERSION+CYCLE
91C DATA IDVER/600/
92C
93C DATA FOR ITAPES
94 DATA ITDKY,ITEVT,ITCOM,ITLIS/1,2,5,6/
95C
96C DATA FOR QLMASS
97C AMLEP LABELED BY INDEX...SEE FLAVOR
98C 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/
103C
104C DATA FOR PJETS
105 DATA IDJETS/MXJETS*0/,IDENTW/0/
106C
107C DATA FOR PINITS
108 DATA IDINIT/2*0/
109C
110C DATA FOR LSTPRT
111 DATA LSTPRT/0/
112C
113C 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/
117C
118C DATA FOR MBGEN
119 DATA MNPOM,MXPOM/1,LIMPOM/
120C
121C DATA FOR SEED
122 DATA XSEED/'0'/
123C
124C DATA FOR TCPAR
125 DATA TCMRHO,TCGRHO/1000.,100./
126C
127C DATA FOR FRGPAR
128C F(X)=1-XGEN(1)+XGEN(1)*(XGEN(2)+1)*(1-X)**XGEN(2) FOR U,D,S
129C 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/
136C
137C DATA FOR JETLIM
138 DATA BLIMS/MXLX12*-1.E9/
139C
140C DATA FOR NODCAY
141 DATA NODCAY,NOETA,NOPI0,NONUNU,NOEVOL,NOHADR/6*.FALSE./
142 DATA NOGRAV/.FALSE./
143C
144C 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/
153C
154C DATA FOR PRIMAR
155 DATA IDIN/1120,1120/
156 DATA NTRIES/1000/
157 DATA NSIGMA/20/
158C
159C 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/
163C
164C 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./
170C
171C 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/
180C
181C DATA FOR TOTALS
182 DATA NKINPT,NWGEN,NKEEP/3*0/,SUMWT/0./
183C
184C DATA FOR DYLIM
185 DATA BLIM1/12*-1.E9/
186C
187C DATA FOR EEPAR
188 DATA PLEP/0./,PLEM/0./,IBREM/.FALSE./,IBEAM/.FALSE./
189C
190C DATA FOR PARTCL
191 DATA NPTCL/0/
192C
193C DATA FOR PRTOUT
194 DATA NEVPRT,NJUMP/1,1/
195C
196C DATA FOR JETSET
197 DATA NJSET/0/
198C
199C DATA FOR QCDPAR
200 DATA ALAM,ALAM2/.2,.04/,CUTJET/6./,ISTRUC/6/
201C
202C DATA FOR FORCE
203 DATA NFORCE/0/
204C
205C DATA FOR NRECS
206 DATA NRECS/0/
207C
208C DATA FOR KEYS
209 DATA KEYS/MXKEYS*.FALSE./
210C
211C 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/
218C
219C DATA FOR SSPAR
220 DATA AMGVSS/1.E20/
221C
222C 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./
232C DATA FOR SUGNU
233 DATA XNUSUG/18*1.E20/
234C
235C DATA FOR ISAPW
236 DATA ISAPW1/'ALDATA REQUIRED BY FORTRAN G,H'/
237C
238C 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/
249C
250 END