Moved from AliTransbit to AliL3Transbit.
[u/mrichter/AliRoot.git] / ALIROOT / ludata.F
CommitLineData
fe4da5cc 1
2C*********************************************************************
3
4 BLOCK DATA LUDATA
5
6C...Purpose: to give default values to parameters and particle and
7C...decay data.
8 COMMON/LUDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
9 COMMON/LUDAT2/KCHG(500,3),PMAS(500,4),PARF(2000),VCKM(4,4)
10 COMMON/LUDAT3/MDCY(500,3),MDME(2000,2),BRAT(2000),KFDP(2000,5)
11 COMMON/LUDAT4/CHAF(500)
12 CHARACTER CHAF*8
13 COMMON/LUDATR/MRLU(6),RRLU(100)
14 SAVE /LUDAT1/,/LUDAT2/,/LUDAT3/,/LUDAT4/,/LUDATR/
15
16C...LUDAT1, containing status codes and most parameters.
17 DATA MSTU/
18 & 0, 0, 0, 4000,10000, 500, 2000, 0, 0, 2,
19 1 6, 1, 1, 0, 1, 1, 0, 0, 0, 0,
20 2 2, 10, 0, 0, 1, 10, 0, 0, 0, 0,
21 3 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
22 4 2, 2, 1, 4, 2, 1, 1, 0, 0, 0,
23 5 25, 24, 0, 1, 0, 0, 0, 0, 0, 0,
24 6 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
25 7 30*0,
26 & 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
27 1 1, 5, 3, 5, 0, 0, 0, 0, 0, 0,
28 2 60*0,
29 8 7, 408, 1995, 08, 23, 700, 0, 0, 0, 0,
30 9 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/
31 DATA PARU/
32 & 3.1415927, 6.2831854, 0.1973, 5.068, 0.3894, 2.568, 4*0.,
33 1 0.001, 0.09, 0.01, 0., 0., 0., 0., 0., 0., 0.,
34 2 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
35 3 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
36 4 2.0, 1.0, 0.25, 2.5, 0.05, 0., 0., 0.0001, 0., 0.,
37 5 2.5, 1.5, 7.0, 1.0, 0.5, 2.0, 3.2, 0., 0., 0.,
38 6 40*0.,
39 & 0.00729735, 0.232, 0.007764, 1.0, 1.16639E-5, 0., 0., 0.,
40 & 0., 0.,
41 1 0.20, 0.25, 1.0, 4.0, 10., 0., 0., 0., 0., 0.,
42 2 -0.693, -1.0, 0.387, 1.0, -0.08, -1.0, 1.0, 1.0, 1.0, 0.,
43 3 1.0, -1.0, 1.0, -1.0, 1.0, 0., 0., 0., 0., 0.,
44 4 5.0, 1.0, 1.0, 0., 1.0, 1.0, 0., 0., 0., 0.,
45 5 1.0, 0., 0., 0., 1000., 1.0, 1.0, 1.0, 1.0, 0.,
46 6 1.0, 1.0, 1.0, 1.0, 1.0, 0., 0., 0., 0., 0.,
47 7 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 0., 0., 0.,
48 8 1.0, 1.0, 1.0, 0.0, 0.0, 1.0, 1.0, 0.0, 0.0, 0.,
49 9 0., 0., 0., 0., 1.0, 0., 0., 0., 0., 0./
50 DATA MSTJ/
51 & 1, 3, 0, 0, 0, 0, 0, 0, 0, 0,
52 1 4, 2, 0, 1, 0, 0, 0, 0, 0, 0,
53 2 2, 1, 1, 2, 1, 2, 2, 0, 0, 0,
54 3 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
55 4 2, 2, 4, 2, 5, 3, 3, 0, 0, 0,
56 5 0, 3, 0, 0, 0, 0, 0, 0, 0, 0,
57 6 40*0,
58 & 5, 2, 7, 5, 1, 1, 0, 2, 0, 2,
59 1 0, 0, 0, 0, 1, 1, 0, 0, 0, 0,
60 2 80*0/
61 DATA PARJ/
62 & 0.10, 0.30, 0.40, 0.05, 0.50, 0.50, 0.50, 0., 0., 0.,
63 1 0.50, 0.60, 0.75, 0., 0., 0., 0., 1.0, 1.0, 0.,
64 2 0.36, 1.0, 0.01, 2.0, 1.0, 0.4, 0., 0., 0., 0.,
65 3 0.10, 1.0, 0.8, 1.5, 0., 2.0, 0.2, 2.5, 0.6, 0.,
66 4 0.3, 0.58, 0.5, 0.9, 0.5, 1.0, 1.0, 1.0, 0., 0.,
67 5 0.77,0.77,0.77,-0.05,-0.005,-0.00001,-0.00001,-0.00001,1.0,0.,
68 6 4.5, 0.7, 0., 0.003, 0.5, 0.5, 0., 0., 0., 0.,
69 7 10., 1000., 100., 1000., 0., 0.7, 10., 0., 0., 0.,
70 8 0.29, 1.0, 1.0, 0., 10., 10., 0., 0., 0., 0.,
71 9 0.02, 1.0, 0.2, 0., 0., 0., 0., 0., 0., 0.,
72 & 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
73 1 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
74 2 1.0, 0.25,91.187,2.489, 0.01, 2.0, 1.0, 0.25,0.002, 0.,
75 3 0., 0., 0., 0., 0.01, 0.99, 0., 0., 0.2, 0.,
76 4 60*0./
77
78C...LUDAT2, with particle data and flavour treatment parameters.
79 DATA (KCHG(I,1),I= 1, 500)/-1,2,-1,2,-1,2,-1,2,2*0,-3,0,-3,0,
80 &-3,0,-3,6*0,3,9*0,3,2*0,3,0,-1,44*0,2,-1,2,-1,2,3,11*0,3,0,2*3,0,
81 &3,0,3,0,3,10*0,3,0,2*3,0,3,0,3,0,3,10*0,3,0,2*3,0,3,0,3,0,3,10*0,
82 &3,0,2*3,0,3,0,3,0,3,10*0,3,0,2*3,0,3,0,3,0,3,10*0,3,0,2*3,0,3,0,
83 &3,0,3,70*0,3,0,3,28*0,3,2*0,3,8*0,-3,8*0,3,0,-3,0,3,-3,3*0,3,6,0,
84 &3,5*0,-3,0,3,-3,0,-3,4*0,-3,0,3,6,-3,0,3,-3,0,-3,0,3,6,0,3,5*0,
85 &-3,0,3,-3,0,-3,114*0/
86 DATA (KCHG(I,2),I= 1, 500)/8*1,12*0,2,16*0,2,1,50*0,-1,410*0/
87 DATA (KCHG(I,3),I= 1, 500)/8*1,2*0,8*1,5*0,1,9*0,1,2*0,1,0,2*1,
88 &41*0,1,0,7*1,10*0,10*1,10*0,10*1,10*0,10*1,10*0,10*1,10*0,10*1,
89 &10*0,10*1,70*0,3*1,22*0,1,5*0,1,0,2*1,6*0,1,0,2*1,6*0,2*1,0,5*1,
90 &0,6*1,4*0,6*1,4*0,16*1,4*0,6*1,114*0/
91 DATA (PMAS(I,1),I= 1, 500)/0.0099,0.0056,0.199,1.35,5.,160.,
92 &2*250.,2*0.,0.00051,0.,0.1057,0.,1.777,0.,250.,5*0.,91.187,80.25,
93 &80.,6*0.,500.,900.,500.,3*300.,350.,200.,5000.,60*0.,0.1396,
94 &0.4977,0.4936,1.8693,1.8645,1.9688,5.2787,5.2786,5.47972,6.594,
95 &0.135,0.5475,0.9578,2.9788,9.4,320.,2*500.,2*0.,0.7669,0.8961,
96 &0.8916,2.0101,2.0071,2.11,2*5.325,5.5068,6.602,0.7683,0.782,
97 &1.0194,3.0969,9.4603,320.,2*500.,2*0.,1.232,2*1.29,2*2.424,2.536,
98 &2*5.73,5.97,7.3,1.232,1.17,1.4,3.46,9.875,320.,2*500.,2*0.,0.983,
99 &2*1.429,2*2.272,2.5,2*5.68,5.92,7.25,0.9827,1.,1.4,3.4151,9.8598,
100 &320.,2*500.,2*0.,1.26,2*1.402,2*2.372,2.56,2*5.78,6.02,7.3,1.26,
101 &1.282,1.42,3.5106,9.8919,320.,2*500.,2*0.,1.318,1.432,1.425,
102 &2*2.46,2.61,2*5.83,6.07,7.35,1.318,1.275,1.525,3.5562,9.9132,
103 &320.,2*500.,2*0.,2*0.4977,8*0.,3.686,3*0.,10.0233,70*0.,1.1156,
104 &5*0.,2.2849,0.,2.473,2.466,6*0.,5.641,0.,2*5.84,6*0.,0.9396,
105 &0.9383,0.,1.1974,1.1926,1.1894,1.3213,1.3149,0.,2.4525,2.4529,
106 &2.4527,2*2.55,2.73,4*0.,3*5.8,2*5.96,6.12,4*0.,1.234,1.233,1.232,
107 &1.231,1.3872,1.3837,1.3828,1.535,1.5318,1.6724,3*2.5,2*2.63,2.8,
108 &4*0.,3*5.81,2*5.97,6.13,114*0./
109 DATA (PMAS(I,2),I= 1, 500)/22*0.,2.489,2.066,88*0.,0.0002,
110 &0.001,6*0.,0.149,0.0505,0.0498,7*0.,0.151,0.00843,0.0044,7*0.,
111 &0.155,2*0.09,2*0.02,0.,4*0.05,0.155,0.36,0.08,2*0.01,5*0.,0.057,
112 &2*0.287,7*0.05,0.057,0.,0.25,0.014,6*0.,0.4,2*0.174,7*0.05,0.4,
113 &0.024,0.06,0.0009,6*0.,0.11,0.109,0.098,2*0.019,5*0.02,0.11,
114 &0.185,0.076,0.002,146*0.,4*0.12,0.0394,0.036,0.0358,0.0099,
115 &0.0091,131*0./
116 DATA (PMAS(I,3),I= 1, 500)/22*0.,2*20.,88*0.,0.002,0.005,6*0.,
117 &0.4,2*0.2,7*0.,0.4,0.1,0.015,7*0.,0.25,0.005,0.01,2*0.08,0.,
118 &4*0.1,0.25,0.2,0.001,2*0.02,5*0.,0.05,2*0.4,6*0.1,2*0.05,0.,0.35,
119 &0.05,6*0.,3*0.3,2*0.1,0.03,4*0.1,0.3,0.05,0.02,0.001,6*0.,0.25,
120 &4*0.12,5*0.05,0.25,0.17,0.2,0.01,146*0.,4*0.14,0.04,2*0.035,
121 &2*0.05,131*0./
122 DATA (PMAS(I,4),I= 1, 500)/12*0.,658650.,0.,0.0914,68*0.,0.1,
123 &0.387,15*0.,7804.,0.,3709.,0.32,0.1259,0.135,3*0.387,0.15,110*0.,
124 &15500.,26.75,83*0.,78.88,5*0.,0.057,0.,0.025,0.09,6*0.,0.387,0.,
125 &2*0.387,9*0.,44.3,0.,23.95,49.1,86.9,6*0.,0.13,9*0.,0.387,13*0.,
126 &24.60001,130*0./
127 DATA PARF/
128 & 0.5, 0.25, 0.5, 0.25, 1., 0.5, 0., 0., 0., 0.,
129 1 0.5, 0., 0.5, 0., 1., 1., 0., 0., 0., 0.,
130 2 0.5, 0., 0.5, 0., 1., 1., 0., 0., 0., 0.,
131 3 0.5, 0., 0.5, 0., 1., 1., 0., 0., 0., 0.,
132 4 0.5, 0., 0.5, 0., 1., 1., 0., 0., 0., 0.,
133 5 0.5, 0., 0.5, 0., 1., 1., 0., 0., 0., 0.,
134 6 0.75, 0.5, 0., 0.1667, 0.0833, 0.1667, 0., 0., 0., 0.,
135 7 0., 0., 1., 0.3333, 0.6667, 0.3333, 0., 0., 0., 0.,
136 8 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
137 9 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
138 & 0.325, 0.325, 0.5, 1.6, 5.0, 0., 0., 0., 0., 0.,
139 1 0., 0.11, 0.16, 0.048, 0.50, 0.45, 0.55, 0.60, 0., 0.,
140 2 0.2, 0.1, 0., 0., 0., 0., 0., 0., 0., 0.,
141 3 1870*0./
142 DATA ((VCKM(I,J),J=1,4),I=1,4)/
143 1 0.95113, 0.04884, 0.00003, 0.00000,
144 2 0.04884, 0.94940, 0.00176, 0.00000,
145 3 0.00003, 0.00176, 0.99821, 0.00000,
146 4 0.00000, 0.00000, 0.00000, 1.00000/
147
148C...LUDAT3, with particle decay parameters and data.
149 DATA (MDCY(I,1),I= 1, 500)/5*0,3*1,6*0,1,0,1,5*0,3*1,6*0,1,0,1,
150 &2*0,4*1,42*0,7*1,12*0,1,0,15*1,2*0,18*1,2*0,18*1,2*0,18*1,2*0,
151 &18*1,2*0,18*1,3*0,1,8*0,1,3*0,1,70*0,1,5*0,1,0,2*1,6*0,1,0,2*1,
152 &9*0,5*1,0,6*1,4*0,6*1,4*0,16*1,4*0,6*1,114*0/
153 DATA (MDCY(I,2),I= 1, 500)/1,9,17,25,33,41,50,60,2*0,70,74,76,
154 &81,83,124,126,132,2*0,135,144,156,172,192,6*0,209,0,231,254,274,
155 &292,301,304,305,42*0,314,315,319,328,331,336,338,11*0,358,359,
156 &361,367,430,491,524,560,596,635,666,668,675,681,682,683,684,685,
157 &2*0,686,688,691,694,697,699,700,701,702,703,704,708,713,721,724,
158 &733,734,735,2*0,736,737,742,747,749,751,753,755,757,759,761,762,
159 &765,769,770,771,772,773,2*0,774,775,777,779,781,783,785,787,789,
160 &791,793,794,799,804,806,808,809,810,2*0,811,813,815,817,819,821,
161 &823,825,827,829,831,833,846,850,852,854,855,856,2*0,857,863,873,
162 &884,892,900,904,912,920,924,928,936,945,951,953,955,956,957,2*0,
163 &958,966,8*0,968,3*0,979,70*0,993,5*0,997,0,1073,1074,6*0,1075,0,
164 &1092,1093,9*0,1094,1096,1097,1100,1101,0,1103,1104,1105,1106,
165 &1107,1108,4*0,1109,1110,1111,1112,1113,1114,4*0,1115,1116,1119,
166 &1122,1123,1126,1129,1132,1134,1136,1140,1141,1142,1143,1145,1147,
167 &4*0,1148,1149,1150,1151,1152,1153,114*0/
168 DATA (MDCY(I,3),I= 1, 500)/5*8,9,2*10,2*0,4,2,5,2,41,2,6,3,2*0,
169 &9,12,16,20,17,6*0,22,0,23,20,18,9,3,1,9,42*0,1,4,9,3,5,2,20,11*0,
170 &1,2,6,63,61,33,2*36,39,31,2,7,6,5*1,2*0,2,3*3,2,5*1,4,5,8,3,9,
171 &3*1,2*0,1,2*5,7*2,1,3,4,5*1,2*0,1,9*2,1,2*5,2*2,3*1,2*0,11*2,13,
172 &4,2*2,3*1,2*0,6,10,11,2*8,4,2*8,2*4,8,9,6,2*2,3*1,2*0,8,2,8*0,11,
173 &3*0,14,70*0,4,5*0,76,0,2*1,6*0,17,0,2*1,9*0,2,1,3,1,2,0,6*1,4*0,
174 &6*1,4*0,1,2*3,1,3*3,2*2,4,3*1,2*2,1,4*0,6*1,114*0/
175 DATA (MDME(I,1),I= 1,2000)/6*1,-1,7*1,-1,7*1,-1,7*1,-1,7*1,-1,
176 &7*1,-1,1,-1,8*1,2*-1,8*1,2*-1,61*1,-1,2*1,-1,6*1,2*-1,7*1,2*-1,
177 &3*1,-1,6*1,2*-1,6*1,2*-1,3*1,-1,3*1,-1,3*1,5*-1,3*1,-1,6*1,2*-1,
178 &3*1,-1,11*1,2*-1,6*1,8*-1,3*1,-1,3*1,-1,3*1,5*-1,3*1,4*-1,6*1,
179 &2*-1,3*1,-1,5*1,-1,8*1,2*-1,3*1,-1,9*1,-1,3*1,-1,9*1,2*-1,2*1,-1,
180 &16*1,-1,2*1,3*-1,1665*1/
181 DATA (MDME(I,2),I= 1,2000)/75*102,42,6*102,2*42,2*0,7*41,2*0,
182 &24*41,6*102,45,29*102,8*32,8*0,16*32,4*0,8*32,4*0,32,4*0,8*32,
183 &14*0,16*32,7*0,8*32,4*0,32,7*0,8*32,4*0,32,5*0,4*32,5*0,3*32,0,
184 &6*32,3*0,12,2*42,2*11,9*42,2*45,31,2*45,2*33,31,2*45,20*46,7*0,
185 &24*42,41*0,16*42,46*0,10*42,20*0,2*13,14*42,16*0,48,3*13,16*42,
186 &16*0,48,3*13,16*42,19*0,48,3*13,2*42,0,2*11,28*42,0,2,4*0,2,8*0,
187 &12,32,86,87,88,3,0,2*3,0,2*3,0,2*3,0,3,6*0,3,3*0,1,0,3,2*0,2*3,
188 &3*0,1,4*0,12,3*0,4*32,2*4,86,87,88,33*0,12,32,86,87,88,31*0,12,0,
189 &32,86,87,88,40*0,12,0,32,86,87,88,95*0,12,0,32,86,87,88,2*0,4*42,
190 &6*0,12,11*0,4*32,2*4,9*0,14*42,52*0,10*13,2*84,3*42,8*0,48,3*13,
191 &2*42,2*85,14*0,84,5*0,85,886*0/
192 DATA (BRAT(I) ,I= 1, 439)/75*0.,1.,6*0.,0.179,0.178,0.116,
193 &0.235,0.005,0.056,0.018,0.023,0.011,2*0.004,0.0067,0.014,2*0.002,
194 &2*0.001,0.0022,0.054,0.002,0.016,0.005,0.011,0.0101,5*0.006,
195 &0.002,2*0.001,5*0.002,6*0.,1.,29*0.,0.15394,0.11936,0.15394,
196 &0.11926,0.15254,3*0.,0.03368,0.06664,0.03368,0.06664,0.03368,
197 &0.06664,2*0.,0.3214,0.0165,2*0.,0.0165,0.3207,2*0.,0.00001,
198 &0.00059,6*0.,3*0.1081,3*0.,0.0003,0.048,0.8705,4*0.,0.0002,
199 &0.0603,0.,0.0199,0.0008,3*0.,0.143,0.111,0.143,0.111,0.143,0.085,
200 &2*0.,0.03,0.058,0.03,0.058,0.03,0.058,8*0.,0.25,0.01,2*0.,0.01,
201 &0.25,4*0.,0.24,5*0.,3*0.08,6*0.,0.01,0.08,0.82,5*0.,0.09,11*0.,
202 &0.01,0.08,0.82,5*0.,0.09,9*0.,1.,6*0.,0.01,0.98,0.01,1.,4*0.215,
203 &2*0.,2*0.07,0.,1.,2*0.08,0.76,0.08,2*0.105,0.04,0.5,0.08,0.14,
204 &0.01,0.015,0.005,1.,3*0.,1.,4*0.,1.,0.25,0.01,2*0.,0.01,0.25,
205 &4*0.,0.24,5*0.,3*0.08,0.,1.,2*0.5,0.635,0.212,0.056,0.017,0.048,
206 &0.032,0.07,0.065,2*0.005,2*0.011,5*0.001,0.07,0.065,2*0.005,
207 &2*0.011,5*0.001,0.026,0.019,0.066,0.041,0.045,0.076,0.0073,
208 &2*0.0047,0.026,0.001,0.0006,0.0066,0.005,2*0.003,2*0.0006,
209 &2*0.001,0.006,0.005,0.012,0.0057,0.067,0.008,0.0022,0.027,0.004,
210 &0.019,0.012,0.002,0.009,0.0218,0.001,0.022,0.087,0.001,0.0019,
211 &0.0015,0.0028,0.034,0.027,2*0.002,2*0.004,2*0.002,0.034,0.027/
212 DATA (BRAT(I) ,I= 440, 655)/2*0.002,2*0.004,2*0.002,0.0365,
213 &0.045,0.073,0.062,3*0.021,0.0061,0.015,0.025,0.0088,0.074,0.0109,
214 &0.0041,0.002,0.0035,0.0011,0.001,0.0027,2*0.0016,0.0018,0.011,
215 &0.0063,0.0052,0.018,0.016,0.0034,0.0036,0.0009,0.0006,0.015,
216 &0.0923,0.018,0.022,0.0077,0.009,0.0075,0.024,0.0085,0.067,0.0511,
217 &0.017,0.0004,0.0028,0.01,2*0.02,0.03,2*0.005,2*0.02,0.03,2*0.005,
218 &0.015,0.037,0.028,0.079,0.095,0.052,0.0078,4*0.001,0.028,0.033,
219 &0.026,0.05,0.01,4*0.005,0.25,0.0952,0.02,0.055,2*0.005,0.008,
220 &0.012,0.02,0.055,2*0.005,0.008,0.012,0.01,0.03,0.0035,0.011,
221 &0.0055,0.0042,0.009,0.018,0.015,0.0185,0.0135,0.025,0.0004,
222 &0.0007,0.0008,0.0014,0.0019,0.0025,0.4291,0.08,0.07,0.02,0.015,
223 &0.005,0.02,0.055,2*0.005,0.008,0.012,0.02,0.055,2*0.005,0.008,
224 &0.012,0.01,0.03,0.0035,0.011,0.0055,0.0042,0.009,0.018,0.015,
225 &0.0185,0.0135,0.025,0.0004,0.0007,0.0008,0.0014,0.0019,0.0025,
226 &0.4291,0.08,0.07,0.02,0.015,0.005,0.02,0.055,2*0.005,0.008,0.012,
227 &0.02,0.055,2*0.005,0.008,0.012,0.01,0.03,0.0035,0.011,0.0055,
228 &0.0042,0.009,0.018,0.015,0.0185,0.0135,0.025,2*0.0002,0.0007,
229 &2*0.0004,0.0014,0.001,0.0009,0.0025,0.4291,0.08,0.07,0.02,0.015,
230 &0.005,0.047,0.122,0.006,0.012,0.035,0.012,0.035,0.003,0.007,0.15,
231 &0.037,0.008,0.002,0.05,0.015,0.003,0.001,0.014,0.042,0.014,0.042/
232 DATA (BRAT(I) ,I= 656, 931)/0.24,0.065,0.012,0.003,0.001,0.002,
233 &0.001,0.002,0.014,0.003,0.988,0.012,0.389,0.319,0.2367,0.049,
234 &0.005,0.001,0.0003,0.441,0.206,0.3,0.03,0.022,0.001,5*1.,0.99955,
235 &0.00045,0.665,0.333,0.002,0.666,0.333,0.001,0.65,0.3,0.05,0.56,
236 &0.44,5*1.,0.99912,0.00079,0.00005,0.00004,0.888,0.085,0.021,
237 &2*0.003,0.49,0.344,3*0.043,0.023,0.013,0.001,0.0627,0.0597,
238 &0.8776,3*0.027,0.015,0.045,0.015,0.045,0.77,0.029,4*1.,0.28,0.14,
239 &0.313,0.157,0.11,0.28,0.14,0.313,0.157,0.11,0.667,0.333,0.667,
240 &0.333,2*0.5,0.667,0.333,0.667,0.333,4*0.5,1.,0.333,0.334,0.333,
241 &4*0.25,6*1.,0.667,0.333,0.667,0.333,0.667,0.333,0.667,0.333,
242 &2*0.5,0.667,0.333,0.667,0.333,4*0.5,1.,0.52,0.26,0.11,2*0.055,
243 &0.62,0.31,0.035,2*0.0175,0.007,0.993,0.02,0.98,3*1.,2*0.5,0.667,
244 &0.333,0.667,0.333,0.667,0.333,0.667,0.333,2*0.5,0.667,0.333,
245 &0.667,0.333,6*0.5,3*0.12,0.097,0.043,4*0.095,4*0.03,4*0.25,0.273,
246 &0.727,0.35,0.65,3*1.,2*0.35,0.144,0.105,0.048,0.003,0.333,0.166,
247 &0.168,0.084,0.087,0.043,0.059,2*0.029,0.002,0.332,0.166,0.168,
248 &0.084,0.086,0.043,0.059,2*0.029,2*0.002,0.3,0.15,0.16,0.08,0.13,
249 &0.06,0.08,0.04,0.3,0.15,0.16,0.08,0.13,0.06,0.08,0.04,2*0.3,
250 &2*0.2,0.3,0.15,0.16,0.08,0.13,0.06,0.08,0.04,0.3,0.15,0.16,0.08,
251 &0.13,0.06,0.08,0.04,2*0.3,2*0.2,2*0.3,2*0.2,2*0.35,0.144,0.105/
252 DATA (BRAT(I) ,I= 932,2000)/0.024,2*0.012,0.003,0.566,0.283,
253 &0.069,0.028,0.023,2*0.0115,0.005,0.003,0.356,2*0.178,0.28,
254 &2*0.004,0.135,0.865,0.22,0.78,3*1.,0.217,0.124,2*0.193,2*0.135,
255 &0.002,0.001,0.686,0.314,2*0.0083,0.1866,0.324,0.184,0.027,0.001,
256 &0.093,0.087,0.078,0.0028,3*0.014,0.008,0.024,0.008,0.024,0.425,
257 &0.02,0.185,0.088,0.043,0.067,0.066,0.641,0.357,2*0.001,0.018,
258 &2*0.005,0.003,0.002,2*0.006,0.018,2*0.005,0.003,0.002,2*0.006,
259 &0.0066,0.025,0.016,0.0088,2*0.005,0.0058,0.005,0.0055,4*0.004,
260 &2*0.002,2*0.004,0.003,0.002,2*0.003,3*0.002,2*0.001,0.002,
261 &2*0.001,2*0.002,0.0013,0.0018,5*0.001,4*0.003,2*0.005,2*0.002,
262 &2*0.001,2*0.002,2*0.001,0.2432,0.057,2*0.035,0.15,2*0.075,0.03,
263 &2*0.015,2*1.,2*0.105,0.04,0.0077,0.02,0.0235,0.0285,0.0435,
264 &0.0011,0.0022,0.0044,0.4291,0.08,0.07,0.02,0.015,0.005,2*1.,
265 &0.999,0.001,1.,0.516,0.483,0.001,1.,0.995,0.005,13*1.,0.331,
266 &0.663,0.006,0.663,0.331,0.006,1.,0.88,2*0.06,0.88,2*0.06,0.88,
267 &2*0.06,0.667,2*0.333,0.667,0.676,0.234,0.085,0.005,3*1.,4*0.5,
268 &7*1.,847*0./
269 DATA (KFDP(I,1),I= 1, 507)/21,22,23,4*-24,25,21,22,23,4*24,25,
270 &21,22,23,4*-24,25,21,22,23,4*24,25,21,22,23,4*-24,25,21,22,23,
271 &4*24,25,37,21,22,23,4*-24,25,2*-37,21,22,23,4*24,25,2*37,22,23,
272 &-24,25,23,24,-12,22,23,-24,25,23,24,-12,-14,35*16,22,23,-24,25,
273 &23,24,-89,22,23,-24,25,-37,23,24,37,1,2,3,4,5,6,7,8,21,1,2,3,4,5,
274 &6,7,8,11,13,15,17,1,2,3,4,5,6,7,8,11,12,13,14,15,16,17,18,4*-1,
275 &4*-3,4*-5,4*-7,-11,-13,-15,-17,1,2,3,4,5,6,7,8,11,13,15,17,21,
276 &2*22,23,24,1,2,3,4,5,6,7,8,11,12,13,14,15,16,17,18,24,37,2*23,25,
277 &35,4*-1,4*-3,4*-5,4*-7,-11,-13,-15,-17,3*24,1,2,3,4,5,6,7,8,11,
278 &13,15,17,21,2*22,23,24,23,25,36,1,2,3,4,5,6,7,8,11,13,15,17,21,
279 &2*22,23,24,23,-1,-3,-5,-7,-11,-13,-15,-17,24,5,6,21,2,1,2,3,4,5,
280 &6,11,13,15,82,-11,-13,2*2,-12,-14,-16,2*-2,2*-4,-2,-4,2*89,37,
281 &2*-89,2*5,-37,2*89,4*-1,4*-3,4*-5,4*-7,-11,-13,-15,-17,-13,130,
282 &310,-13,3*211,12,14,11*-11,11*-13,-311,-313,-311,-313,-20313,
283 &2*-311,-313,-311,-313,2*111,2*221,2*331,2*113,2*223,2*333,-311,
284 &-313,2*-321,211,-311,-321,333,-311,-313,-321,211,2*-321,2*-311,
285 &-321,211,113,8*-11,8*-13,-321,-323,-321,-323,-311,2*-313,-311,
286 &-313,2*-311,-321,-10323,-321,-323,-321,-311,2*-313,211,111,333,
287 &3*-321,-311,-313,-321,-313,310,333,211,2*-321,-311,-313,-311,211,
288 &-321,3*-311,211,113,321,-15,5*-11,5*-13,221,331,333,221,331,333/
289 DATA (KFDP(I,1),I= 508, 924)/10221,211,213,211,213,321,323,321,
290 &323,2212,221,331,333,221,2*2,6*12,6*14,2*16,3*-411,3*-413,2*-411,
291 &2*-413,2*441,2*443,2*20443,2*2,2*4,2,4,6*12,6*14,2*16,3*-421,
292 &3*-423,2*-421,2*-423,2*441,2*443,2*20443,2*2,2*4,2,4,6*12,6*14,
293 &2*16,3*-431,3*-433,2*-431,2*-433,3*441,3*443,3*20443,2*2,2*4,2,4,
294 &16,2*4,2*12,2*14,2*16,4*2,4*4,2*-11,2*-13,2*-1,2*-3,2*-11,2*-13,
295 &2*-1,3*22,111,211,2*22,211,22,211,111,3*22,111,82,21,3*0,2*211,
296 &321,3*311,2*321,421,2*411,2*421,431,511,521,531,541,211,111,13,
297 &11,211,22,211,2*111,321,130,-213,113,213,211,22,111,11,13,82,11,
298 &13,15,1,2,3,4,21,22,3*0,223,321,311,323,313,2*311,321,313,323,
299 &321,423,2*413,2*423,413,523,2*513,2*523,2*513,523,223,213,113,
300 &-213,313,-313,323,-323,82,21,3*0,221,321,2*311,321,421,2*411,421,
301 &411,421,521,2*511,2*521,2*511,521,221,211,111,321,130,310,211,
302 &111,321,130,310,443,82,553,21,3*0,113,213,323,2*313,323,423,
303 &2*413,2*423,413,523,2*513,2*523,2*513,523,213,-213,10211,10111,
304 &-10211,2*221,213,2*113,-213,2*321,2*311,313,-313,323,-323,443,82,
305 &553,21,3*0,213,113,221,223,321,211,321,311,323,313,323,313,321,
306 &4*311,321,313,323,313,323,311,4*321,421,411,423,413,423,413,421,
307 &2*411,421,413,423,413,423,411,2*421,411,423,413,521,511,523,513,
308 &523,513,521,2*511,521,513,523,513,523,511,2*521,511,523,513,511/
309 DATA (KFDP(I,1),I= 925,2000)/521,513,523,213,-213,221,223,321,
310 &130,310,111,211,111,2*211,321,130,310,221,111,321,130,310,221,
311 &211,111,443,82,553,21,3*0,111,211,-12,12,-14,14,211,111,211,111,
312 &11,13,82,4*443,10441,20443,445,441,11,13,15,1,2,3,4,21,22,2*553,
313 &10551,20553,555,2212,2*2112,-12,7*-11,7*-13,2*2224,2*2212,2*2214,
314 &2*3122,2*3212,2*3214,5*3222,4*3224,2*3322,3324,2*2224,7*2212,
315 &5*2214,2*2112,2*2114,2*3122,2*3212,2*3214,2*3222,2*3224,4*2,3,
316 &2*2,1,2*2,2*0,-12,-14,-16,5*4122,441,443,20443,2*-2,2*-4,-2,-4,
317 &2*0,2112,-12,3122,2212,2112,2212,3*3122,3*4122,4132,4232,0,
318 &3*5122,5132,5232,0,2112,2212,2*2112,2212,2112,2*2212,3122,3212,
319 &3112,3122,3222,3112,3122,3222,3212,3322,3312,3322,3312,3122,3322,
320 &3312,-12,3*4122,2*4132,2*4232,4332,3*5122,5132,5232,5332,847*0/
321 DATA (KFDP(I,2),I= 1, 476)/3*1,2,4,6,8,1,3*2,1,3,5,7,2,3*3,2,4,
322 &6,8,3,3*4,1,3,5,7,4,3*5,2,4,6,8,5,3*6,1,3,5,7,6,5,3*7,2,4,6,8,7,
323 &4,6,3*8,1,3,5,7,8,5,7,2*11,12,11,12,2*11,2*13,14,13,14,13,11,13,
324 &-211,-213,-211,-213,-211,-213,3*-211,-321,-323,-321,-323,3*-321,
325 &4*-211,-213,-211,-213,-211,-213,-211,-213,-211,-213,6*-211,2*15,
326 &16,15,16,15,18,2*17,18,17,2*18,2*17,-1,-2,-3,-4,-5,-6,-7,-8,21,
327 &-1,-2,-3,-4,-5,-6,-7,-8,-11,-13,-15,-17,-1,-2,-3,-4,-5,-6,-7,-8,
328 &-11,-12,-13,-14,-15,-16,-17,-18,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,
329 &12,14,16,18,-1,-2,-3,-4,-5,-6,-7,-8,-11,-13,-15,-17,21,22,2*23,
330 &-24,-1,-2,-3,-4,-5,-6,-7,-8,-11,-12,-13,-14,-15,-16,-17,-18,-24,
331 &-37,22,25,2*36,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,12,14,16,18,23,22,
332 &25,-1,-2,-3,-4,-5,-6,-7,-8,-11,-13,-15,-17,21,22,2*23,-24,2*25,
333 &36,-1,-2,-3,-4,-5,-6,-7,-8,-11,-13,-15,-17,21,22,2*23,-24,25,2,4,
334 &6,8,12,14,16,18,25,-5,-6,21,11,-3,-4,-5,-6,-7,-8,-13,-15,-17,-82,
335 &12,14,-1,-3,11,13,15,1,4,3,4,1,3,5,3,5,6,4,21,22,4,7,5,2,4,6,8,2,
336 &4,6,8,2,4,6,8,2,4,6,8,12,14,16,18,14,2*0,14,111,211,111,-11,-13,
337 &11*12,11*14,2*211,2*213,211,20213,2*321,2*323,211,213,211,213,
338 &211,213,211,213,211,213,211,213,3*211,213,211,2*321,8*211,2*113,
339 &2*211,8*12,8*14,2*211,2*213,2*111,221,2*113,223,333,20213,211,
340 &2*321,323,2*311,313,-211,111,113,2*211,321,2*211,311,321,310,211/
341 DATA (KFDP(I,2),I= 477, 857)/-211,4*211,321,4*211,113,2*211,-321,
342 &16,5*12,5*14,3*211,3*213,211,2*111,2*113,2*-311,2*-313,-2112,
343 &3*321,323,2*-1,6*-11,6*-13,2*-15,211,213,20213,211,213,20213,431,
344 &433,431,433,311,313,311,313,311,313,-1,-4,-3,-4,-1,-3,6*-11,
345 &6*-13,2*-15,211,213,20213,211,213,20213,431,433,431,433,321,323,
346 &321,323,321,323,-1,-4,-3,-4,-1,-3,6*-11,6*-13,2*-15,211,213,
347 &20213,211,213,20213,431,433,431,433,221,331,333,221,331,333,221,
348 &331,333,-1,-4,-3,-4,-1,-3,-15,-3,-1,2*-11,2*-13,2*-15,-1,-4,-3,
349 &-4,-3,-4,-1,-4,2*12,2*14,2,3,2,3,2*12,2*14,2,1,22,11,22,111,-211,
350 &211,11,-211,13,-211,111,113,223,22,111,-82,21,3*0,111,22,-211,
351 &111,22,211,111,22,211,111,22,111,6*22,-211,22,-13,-11,-211,111,
352 &-211,2*111,-321,310,211,111,2*-211,221,22,-11,-13,-82,-11,-13,
353 &-15,-1,-2,-3,-4,2*21,3*0,211,-213,113,-211,111,223,213,113,211,
354 &111,223,211,111,-211,111,321,311,-211,111,211,111,-321,-311,411,
355 &421,111,-211,111,211,-311,311,-321,321,-82,21,3*0,211,-211,111,
356 &211,111,211,111,-211,111,311,321,-211,111,211,111,-321,-311,411,
357 &421,111,-211,111,-321,130,310,-211,111,-321,130,310,22,-82,22,21,
358 &3*0,211,111,-211,111,211,111,211,111,-211,111,321,311,-211,111,
359 &211,111,-321,-311,411,421,-211,211,-211,111,2*211,111,-211,211,
360 &111,211,-321,2*-311,-321,-311,311,-321,321,22,-82,22,21,3*0,111/
361 DATA (KFDP(I,2),I= 858,2000)/3*211,-311,22,-211,111,-211,111,
362 &-211,211,-213,113,223,221,211,111,211,111,2*211,213,113,223,221,
363 &22,211,111,211,111,4*211,-211,111,-211,111,-211,211,-211,211,321,
364 &311,321,311,-211,111,-211,111,-211,211,-211,2*211,111,211,111,
365 &4*211,-321,-311,-321,-311,411,421,411,421,-211,211,111,211,-321,
366 &130,310,22,-211,111,2*-211,-321,130,310,221,111,-321,130,310,221,
367 &-211,111,22,-82,22,21,3*0,111,-211,11,-11,13,-13,-211,111,-211,
368 &111,-11,-13,-82,211,111,221,111,4*22,-11,-13,-15,-1,-2,-3,-4,
369 &2*21,211,111,3*22,-211,111,22,11,7*12,7*14,-321,-323,-311,-313,
370 &-311,-313,211,213,211,213,211,213,111,221,331,113,223,111,221,
371 &113,223,321,323,321,-211,-213,111,221,331,113,223,333,10221,111,
372 &221,331,113,223,211,213,211,213,321,323,321,323,321,323,311,313,
373 &311,313,2*-1,-3,-1,2203,3201,3203,2203,2101,2103,2*0,11,13,15,
374 &-211,-213,-20213,-431,-433,3*3122,1,4,3,4,1,3,2*0,-211,11,22,111,
375 &211,22,-211,111,22,-211,111,211,2*22,0,-211,111,211,2*22,0,
376 &2*-211,111,22,111,211,22,211,2*-211,2*111,-211,2*211,111,211,
377 &-211,2*111,211,-321,-211,111,11,-211,111,211,111,22,111,2*22,
378 &-211,111,211,3*22,847*0/
379 DATA (KFDP(I,3),I= 1, 944)/75*0,14,6*0,2*16,2*0,5*111,310,130,
380 &2*0,2*111,310,130,321,113,211,223,221,2*113,2*211,2*223,2*221,
381 &2*113,221,113,2*213,-213,195*0,4*3,4*4,1,4,3,2*2,10*81,25*0,-211,
382 &3*111,-311,-313,-311,-321,-313,-323,111,221,331,113,223,-311,
383 &-313,-311,-321,-313,-323,111,221,331,113,223,22*0,111,113,2*211,
384 &-211,-311,211,111,3*211,-211,7*211,-321,-323,-311,-321,-313,-323,
385 &-211,-213,-321,-323,-311,-321,-313,-323,-211,-213,22*0,111,113,
386 &-311,2*-211,211,-211,310,-211,2*111,211,2*-211,-321,-211,2*211,
387 &-211,111,-211,2*211,0,221,331,333,321,311,221,331,333,321,311,
388 &20*0,3,0,-411,-413,-10413,-10411,-20413,-415,-411,-413,-10413,
389 &-10411,-20413,-415,-411,-413,16*0,-4,-1,-4,-3,2*-2,-421,-423,
390 &-10423,-10421,-20423,-425,-421,-423,-10423,-10421,-20423,-425,
391 &-421,-423,16*0,-4,-1,-4,-3,2*-2,-431,-433,-10433,-10431,-20433,
392 &-435,-431,-433,-10433,-10431,-20433,-435,-431,-433,19*0,-4,-1,-4,
393 &-3,2*-2,3*0,441,443,441,443,441,443,-4,-1,-4,-3,-4,-3,-4,-1,531,
394 &533,531,533,3,2,3,2,511,513,511,513,1,2,0,-11,0,2*111,-211,-11,
395 &11,-13,2*221,3*0,111,27*0,111,2*0,22,111,5*0,111,12*0,2*21,103*0,
396 &-211,2*111,-211,3*111,-211,111,211,14*0,111,6*0,111,-211,8*0,111,
397 &-211,9*0,111,-211,111,-211,4*0,111,-211,111,-211,8*0,111,-211,
398 &111,-211,4*0,111,-211,111,-211,11*0,-211,6*0,111,211,4*0,111/
399 DATA (KFDP(I,3),I= 945,2000)/13*0,2*111,211,-211,211,-211,7*0,
400 &-211,111,13*0,2*21,-211,111,6*0,2212,3122,3212,3214,2112,2114,
401 &2212,2112,3122,3212,3214,2112,2114,2212,2112,52*0,3*3,1,8*0,
402 &3*4122,8*0,4,1,4,3,2*2,3*0,2112,43*0,3322,861*0/
403 DATA (KFDP(I,4),I= 1,2000)/88*0,3*111,8*0,-211,0,-211,3*0,111,
404 &2*-211,0,111,0,2*111,113,221,111,-213,-211,211,195*0,13*81,41*0,
405 &111,211,111,211,7*0,111,211,111,211,35*0,2*-211,2*111,211,111,
406 &-211,2*211,2*-211,2*0,-211,111,-211,111,4*0,-211,111,-211,111,
407 &34*0,111,-211,3*111,3*-211,2*111,3*-211,4*0,-321,-311,3*0,-321,
408 &-311,20*0,-3,31*0,6*1,30*0,6*2,33*0,6*3,9*0,8*4,4*0,4*-5,4*0,
409 &2*-5,7*0,-11,264*0,111,-211,4*0,111,57*0,-211,111,5*0,-211,111,
410 &52*0,2101,2103,2*2101,19*0,6*2101,909*0/
411 DATA (KFDP(I,5),I= 1,2000)/90*0,111,16*0,111,7*0,111,0,2*111,
412 &303*0,-211,2*111,-211,111,-211,111,54*0,111,-211,3*111,-211,111,
413 &1510*0/
414
415C...LUDAT4, with character strings.
416 DATA (CHAF(I) ,I= 1, 281)/'d','u','s','c','b','t','l','h',
417 &2*' ','e','nu_e','mu','nu_mu','tau','nu_tau','chi','nu_chi',
418 &2*' ','g','gamma','Z','W','H',2*' ','reggeon','pomeron',2*' ',
419 &'Z''','Z"','W''','H''','A','H','eta_tech','LQ_ue','R',40*' ',
420 &'specflav','rndmflav','phasespa','c-hadron','b-hadron',
421 &'t-hadron','l-hadron','h-hadron','Wvirt','diquark','cluster',
422 &'string','indep.','CMshower','SPHEaxis','THRUaxis','CLUSjet',
423 &'CELLjet','table',' ','pi',2*'K',2*'D','D_s',2*'B','B_s','B_c',
424 &'pi','eta','eta''','eta_c','eta_b','eta_t','eta_l','eta_h',2*' ',
425 &'rho',2*'K*',2*'D*','D*_s',2*'B*','B*_s','B*_c','rho','omega',
426 &'phi','J/psi','Upsilon','Theta','Theta_l','Theta_h',2*' ','b_1',
427 &2*'K_1',2*'D_1','D_1s',2*'B_1','B_1s','B_1c','b_1','h_1','h''_1',
428 &'h_1c','h_1b','h_1t','h_1l','h_1h',2*' ','a_0',2*'K*_0',2*'D*_0',
429 &'D*_0s',2*'B*_0','B*_0s','B*_0c','a_0','f_0','f''_0','chi_0c',
430 &'chi_0b','chi_0t','chi_0l','chi_0h',2*' ','a_1',2*'K*_1',
431 &2*'D*_1','D*_1s',2*'B*_1','B*_1s','B*_1c','a_1','f_1','f''_1',
432 &'chi_1c','chi_1b','chi_1t','chi_1l','chi_1h',2*' ','a_2',
433 &2*'K*_2',2*'D*_2','D*_2s',2*'B*_2','B*_2s','B*_2c','a_2','f_2',
434 &'f''_2','chi_2c','chi_2b','chi_2t','chi_2l','chi_2h',2*' ','K_L',
435 &'K_S',8*' ','psi''',3*' ','Upsilon''',45*' ','pi_diffr'/
436 DATA (CHAF(I) ,I= 282, 500)/'n_diffr','p_diffr','rho_diff',
437 &'omega_di','phi_diff','J/psi_di',18*' ','Lambda',5*' ',
438 &'Lambda_c',' ',2*'Xi_c',6*' ','Lambda_b',' ',2*'Xi_b',6*' ','n',
439 &'p',' ',3*'Sigma',2*'Xi',' ',3*'Sigma_c',2*'Xi''_c','Omega_c',
440 &4*' ',3*'Sigma_b',2*'Xi''_b','Omega_b',4*' ',4*'Delta',
441 &3*'Sigma*',2*'Xi*','Omega',3*'Sigma*_c',2*'Xi*_c','Omega*_c',
442 &4*' ',3*'Sigma*_b',2*'Xi*_b','Omega*_b',114*' '/
443
444C...LUDATR, with initial values for the random number generator.
445 DATA MRLU/19780503,0,0,97,33,0/
446
447 END