5 * Revision 1.1.1.1 1995/10/24 10:19:36 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.45 by S.Giani
15 *=== blkdt6 ===========================================================*
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
22 *---Block Data 6 (ex 1) *
23 #include "geant321/part.inc"
24 #include "geant321/qquark.inc"
25 CHARACTER*8 ANAME1(IDMAX8)
26 DIMENSION AM1(IDMAX8),GA1(IDMAX8),TAU1(IDMAX8),
27 & ICH1(IDMAX8),IBAR1(IDMAX8),K11(IDMAX8),K21(IDMAX8),
28 & KPTIP1(IDMAX8),IPTKP1(39),
29 & IQECH1(-6:6),IQBCH1(-6:6),IQICH1(-6:6),IQSCH1(-6:6),
30 & IQCCH1(-6:6),IQUCH1(-6:6),IQTCH1(-6:6),MQUAR1(3,39)
33 * datas datas datas datas datas *
34 * --------------------------------------------- *
38 DATA ( AM1 ( I ), I = 1, 54 ) /
39 & 9.38272310000000D-01, 9.38272310000000D-01, AMELCT ,
40 & AMELCT , 0.00000000000000D+00, 0.00000000000000D+00,
41 & 0.00000000000000D+00, 9.39565630000000D-01, 9.39565630000000D-01,
42 & AMMUON , AMMUON , 4.97671000000000D-01,
43 & 1.39567500000000D-01, 1.39567500000000D-01, 4.93646000000000D-01,
44 & 4.93646000000000D-01, 1.11563000000000D+00, 1.11563000000000D+00,
45 & 4.97671000000000D-01, 1.19743000000000D+00, 1.18937000000000D+00,
46 & 1.19255000000000D+00, 1.34973900000000D-01, 4.97671000000000D-01,
47 & 4.97671000000000D-01, 1.34973900000000D-01, 0.00000000000000D+00,
48 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
49 & 5.48800000000000D-01, 7.68300000000000D-01, 7.68300000000000D-01,
50 & 7.68300000000000D-01, 7.81950000000000D-01, 8.91830000000000D-01,
51 & 8.96100000000000D-01, 8.91830000000000D-01, 8.96100000000000D-01,
52 & 1.25000000000000D+00, 1.25000000000000D+00, 1.25000000000000D+00,
53 & 1.25000000000000D+00, 1.42100000000000D+00, 1.42100000000000D+00,
54 & 1.42100000000000D+00, 1.42100000000000D+00, 1.38280000000000D+00,
55 & 1.38370000000000D+00, 1.38720000000000D+00, 1.82000000000000D+00,
56 & 2.03000000000000D+00, 1.23200000000000D+00, 1.23200000000000D+00/
57 DATA ( AM1 ( I ), I = 55,108 ) /
58 & 1.23200000000000D+00, 1.23200000000000D+00, 1.67500000000000D+00,
59 & 1.67500000000000D+00, 1.67500000000000D+00, 1.67500000000000D+00,
60 & 1.44000000000000D+00, 1.44000000000000D+00, 1.52000000000000D+00,
61 & 1.52000000000000D+00, 1.77500000000000D+00, 1.77500000000000D+00,
62 & 1.23200000000000D+00, 1.23200000000000D+00, 1.23200000000000D+00,
63 & 1.23200000000000D+00, 1.67500000000000D+00, 1.67500000000000D+00,
64 & 1.67500000000000D+00, 1.67500000000000D+00, 1.52000000000000D+00,
65 & 1.52000000000000D+00, 2.40000000000000D+00, 4.89000000000000D-01,
66 & 4.89000000000000D-01, 4.89000000000000D-01, 1.30000000000000D+00,
67 & 1.30000000000000D+00, 1.30000000000000D+00, 1.30000000000000D+00,
68 & 2.20000000000000D+00, 2.20000000000000D+00, 2.20000000000000D+00,
69 & 2.20000000000000D+00, 1.70000000000000D+00, 1.70000000000000D+00,
70 & 1.70000000000000D+00, 1.70000000000000D+00, 1.82000000000000D+00,
71 & 2.03000000000000D+00, 9.57500000000000D-01, 1.01941200000000D+00,
72 & 1.31490000000000D+00, 1.32132000000000D+00, 1.18937000000000D+00,
73 & 1.19255000000000D+00, 1.19743000000000D+00, 1.31490000000000D+00,
74 & 1.32132000000000D+00, 1.38280000000000D+00, 1.38370000000000D+00,
75 & 1.38720000000000D+00, 1.53180000000000D+00, 1.53500000000000D+00/
76 DATA ( AM1 ( I ), I = 109,162 ) /
77 & 1.67243000000000D+00, 1.38280000000000D+00, 1.38370000000000D+00,
78 & 1.38720000000000D+00, 1.53180000000000D+00, 1.53500000000000D+00,
79 & 1.67243000000000D+00, 1.86450000000000D+00, 1.86930000000000D+00,
80 & 1.86930000000000D+00, 1.86450000000000D+00, 1.96880000000000D+00,
81 & 1.96880000000000D+00, 2.03000000000000D+00, 2.00710000000000D+00,
82 & 2.01010000000000D+00, 2.01010000000000D+00, 2.00710000000000D+00,
83 & 2.11030000000000D+00, 2.11030000000000D+00, 3.68600000000000D+00,
84 & 3.09693000000000D+00, 1.78410000000000D+00, 1.78410000000000D+00,
85 & 3.50000000000000D-02, 3.50000000000000D-02, 2.70000000000000D-04,
86 & 2.70000000000000D-04, 2.26000000000000D+00, 2.47000000000000D+00,
87 & 2.47000000000000D+00, 2.41000000000000D+00, 2.42000000000000D+00,
88 & 2.41000000000000D+00, 2.56000000000000D+00, 2.56000000000000D+00,
89 & 2.73000000000000D+00, 3.61000000000000D+00, 3.61000000000000D+00,
90 & 3.79000000000000D+00, 2.26000000000000D+00, 2.47000000000000D+00,
91 & 2.47000000000000D+00, 2.41000000000000D+00, 2.42000000000000D+00,
92 & 2.41000000000000D+00, 2.56000000000000D+00, 2.56000000000000D+00,
93 & 2.73000000000000D+00, 3.61000000000000D+00, 3.61000000000000D+00,
94 & 3.79000000000000D+00, 2.49000000000000D+00, 2.49000000000000D+00/
95 DATA ( AM1 ( I ), I = 163,183 ) /
96 & 2.49000000000000D+00, 2.61000000000000D+00, 2.61000000000000D+00,
97 & 2.77000000000000D+00, 3.67000000000000D+00, 3.67000000000000D+00,
98 & 3.85000000000000D+00, 4.89000000000000D+00, 2.49000000000000D+00,
99 & 2.49000000000000D+00, 2.49000000000000D+00, 2.61000000000000D+00,
100 & 2.61000000000000D+00, 2.77000000000000D+00, 3.67000000000000D+00,
101 & 3.67000000000000D+00, 3.85000000000000D+00, 4.89000000000000D+00,
102 & 1.25000000000000D+00, 1.25000000000000D+00, 1.25000000000000D+00/
104 * Particle mean lives *
106 DATA ( TAU1 ( I ), I = 1, 54 ) /
107 & 1.00000000000000D+18, 1.00000000000000D+18, 1.00000000000000D+18,
108 & 1.00000000000000D+18, 1.00000000000000D+18, 1.00000000000000D+18,
109 & 1.00000000000000D+18, 8.88600000000000D+02, 8.88600000000000D+02,
110 & 2.19703000000000D-06, 2.19703000000000D-06, 5.17000000000000D-08,
111 & 2.60300000000000D-08, 2.60300000000000D-08, 1.23710000000000D-08,
112 & 1.23710000000000D-08, 2.63200000000000D-10, 2.63200000000000D-10,
113 & 8.92200010000000D-11, 1.47900000000000D-10, 7.99000000000000D-11,
114 & 7.40000000000000D-20, 8.40000000000000D-17, 0.00000000000000D+00,
115 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
116 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
117 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
118 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
119 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
120 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
121 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
122 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
123 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
124 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00/
125 DATA ( TAU1 ( I ), I = 55,108 ) /
126 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
127 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
128 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
129 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
130 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
131 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
132 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
133 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
134 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
135 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
136 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
137 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
138 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
139 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
140 & 2.90000000000000D-10, 1.63900000000000D-10, 7.99000000000000D-11,
141 & 7.40000000000000D-20, 1.47900000000000D-10, 2.90000000000000D-10,
142 & 1.63900000000000D-10, 0.00000000000000D+00, 0.00000000000000D+00,
143 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00/
144 DATA ( TAU1 ( I ), I = 109,162 ) /
145 & 8.22000000000000D-11, 0.00000000000000D+00, 0.00000000000000D+00,
146 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
147 & 8.22000000000000D-11, 0.00000000000000D+00, 0.00000000000000D+00,
148 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
149 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
150 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
151 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
152 & 0.00000000000000D+00, 3.03000000000000D-13, 3.03000000000000D-13,
153 & 1.00000000000000D+18, 1.00000000000000D+18, 1.00000000000000D+18,
154 & 1.00000000000000D+18, 0.00000000000000D+00, 0.00000000000000D+00,
155 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
156 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
157 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
158 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
159 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
160 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
161 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
162 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00/
163 DATA ( TAU1 ( I ), I = 163,183 ) /
164 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
165 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
166 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
167 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
168 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
169 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
170 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00/
172 * Resonance width Gamma in GeV *
174 DATA ( GA1 ( I ), I = 1, 54 ) /
175 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
176 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
177 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
178 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
179 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
180 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
181 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
182 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
183 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
184 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
185 & 1.19000000000000D-06, 1.49100000000000D-01, 1.49100000000000D-01,
186 & 1.49100000000000D-01, 8.43000000000000D-03, 4.98000000000000D-02,
187 & 4.98000000000000D-02, 4.98000000000000D-02, 4.98000000000000D-02,
188 & 4.50000000000000D-01, 4.50000000000000D-01, 4.50000000000000D-01,
189 & 4.50000000000000D-01, 1.08000000000000D-01, 1.08000000000000D-01,
190 & 1.08000000000000D-01, 1.08000000000000D-01, 3.58000000000000D-02,
191 & 3.65000000000000D-02, 3.94000000000000D-02, 8.50000000000000D-02,
192 & 1.80000000000000D-01, 1.15000000000000D-01, 1.15000000000000D-01/
193 DATA ( GA1 ( I ), I = 55,108 ) /
194 & 1.15000000000000D-01, 1.15000000000000D-01, 2.00000000000000D-01,
195 & 2.00000000000000D-01, 2.00000000000000D-01, 2.00000000000000D-01,
196 & 2.00000000000000D-01, 2.00000000000000D-01, 1.00000000000000D-01,
197 & 1.00000000000000D-01, 2.00000000000000D-01, 2.00000000000000D-01,
198 & 1.15000000000000D-01, 1.15000000000000D-01, 1.15000000000000D-01,
199 & 1.15000000000000D-01, 2.00000000000000D-01, 2.00000000000000D-01,
200 & 2.00000000000000D-01, 2.00000000000000D-01, 1.00000000000000D-01,
201 & 1.00000000000000D-01, 2.00000000000000D-01, 1.00000000000000D-01,
202 & 1.00000000000000D-01, 1.00000000000000D-01, 1.00000000000000D-01,
203 & 1.00000000000000D-01, 1.00000000000000D-01, 1.00000000000000D-01,
204 & 2.00000000000000D-01, 2.00000000000000D-01, 2.00000000000000D-01,
205 & 2.00000000000000D-01, 1.50000000000000D-01, 1.50000000000000D-01,
206 & 1.50000000000000D-01, 1.50000000000000D-01, 8.50000000000000D-02,
207 & 1.80000000000000D-01, 2.08000000000000D-04, 4.41000000000000D-03,
208 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
209 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
210 & 0.00000000000000D+00, 3.58000000000000D-02, 3.65000000000000D-02,
211 & 3.94000000000000D-02, 9.10000000000000D-03, 9.90000000000000D-03/
212 DATA ( GA1 ( I ), I = 109,162 ) /
213 & 0.00000000000000D+00, 3.40000000000000D-02, 3.40000000000000D-02,
214 & 3.60000000000000D-02, 9.10000000000000D-03, 9.90000000000000D-03,
215 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
216 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
217 & 0.00000000000000D+00, 0.00000000000000D+00, 2.10000000000000D-03,
218 & 1.10000000000000D-03, 1.10000000000000D-03, 5.00000000000000D-03,
219 & 2.00000000000000D-03, 2.00000000000000D-03, 2.43000000000000D-04,
220 & 6.80000000000000D-05, 0.00000000000000D+00, 0.00000000000000D+00,
221 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
222 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
223 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
224 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
225 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
226 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
227 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
228 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
229 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
230 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00/
231 DATA ( GA1 ( I ), I = 163,183 ) /
232 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
233 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
234 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
235 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
236 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
237 & 0.00000000000000D+00, 0.00000000000000D+00, 0.00000000000000D+00,
238 & 3.00000000000000D-01, 3.00000000000000D-01, 3.00000000000000D-01/
242 * S+1385+Sigma+(1385) L02030+Lambda0(2030) *
243 * Rho77=Rho(770) Om783=Omega(783) K*14=K*(1420) and so on *
244 * designation N*@@ means N*@1(@2) *
247 DATA ( ANAME1 ( I ), I = 1,108 ) /
248 &'P ','AP ','E- ','E+ ','NUE ','ANUE ',
249 &'GAM ','NEU ','ANEU ','MUE+ ','MUE- ','K0L ',
250 &'PI+ ','PI- ','K+ ','K- ','LAM ','ALAM ',
251 &'K0S ','SIGM- ','SIGM+ ','SIGM0 ','PI0 ','K0 ',
252 &'AK0 ','BLANK ','BLANK ','BLANK ','BLANK ','BLANK ',
253 &'ETA550 ','RHO+77 ','RHO077 ','RHO-77 ','OM0783 ','K*+892 ',
254 &'K*0892 ','K*-892 ','AK*089 ','KA+125 ','KA0125 ','KA-125 ',
255 &'AKA012 ','K*+142 ','K*0142 ','K*-142 ','AK*014 ','S+1385 ',
256 &'S01385 ','S-1385 ','L01820 ','L02030 ','DE++12 ','DEL+12 ',
257 &'DEL012 ','DEL-12 ','N*++16 ','N*+16 ','N*016 ','N*-16 ',
258 &'N*+14 ','N*014 ','N*+15 ','N*015 ','N*+18 ','N*018 ',
259 &'AD--12 ','ADE-12 ','ADE012 ','ADE+12 ','AN--16 ','AN*-16 ',
260 &'AN*016 ','AN*+16 ','AN*-15 ','AN*015 ','DE*=24 ','RPI+49 ',
261 &'RPI049 ','RPI-49 ','PIN++ ','PIN+0 ','PIN+- ','PIN-0 ',
262 &'PPPI ','PNPI ','APPPI ','APNPI ','K+PPI ','K-PPI ',
263 &'K+NPI ','K-NPI ','S+1820 ','S-2030 ','ETA* ','PHI ',
264 &'XSI0 ','XSI- ','ASIG- ','ASIG0 ','ASIG+ ','AXSI0 ',
265 &'AXSI+ ','SIG*+ ','SIG*0 ','SIG*- ','XSI*0 ','XSI*- '/
266 DATA ( ANAME1 ( I ), I = 109,183 ) /
267 &'OMEGA- ','ASIG*- ','ASIG*0 ','ASIG*+ ','AXSI*0 ','AXSI*+ ',
268 &'OMEGA+ ','D0 ','D+ ','D- ','AD0 ','DS+ ',
269 &'DS- ','ETAC ','D*0 ','D*+ ','D*- ','AD*0 ',
270 &'DS*+ ','DS*- ','PSI ','JPSI ','TAU+ ','TAU- ',
271 &'NUET ','ANUET ','NUEM ','ANUEM ','C0+ ','A+ ',
272 &'A0 ','C1++ ','C1+ ','C10 ','S+ ','S0 ',
273 &'T0 ','XU++ ','XD+ ','XS+ ','AC0- ','AA- ',
274 &'AA0 ','AC1-- ','AC1- ','AC10 ','AS- ','AS0 ',
275 &'AT0 ','AXU-- ','AXD- ','AXS ','C1*++ ','C1*+ ',
276 &'C1*0 ','S*+ ','S*0 ','T*0 ','XU*++ ','XD*+ ',
277 &'XS*+ ','TETA++ ','AC1*-- ','AC1*- ','AC1*0 ','AS*- ',
278 &'AS*0 ','AT*0 ','AXU*-- ','AXD*- ','AXS*- ','ATET-- ',
281 * Charge of particles and resonances *
283 DATA ( ICH1 ( I ), I = 1,183 ) /
284 & 1, -1, -1, 1, 0, 0, 0, 0, 0, 1, -1, 0, 1, -1, 1,
285 & -1, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
286 & 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0,
287 & -1, 0, 1, 0, -1, 0, 0, 2, 1, 0, -1, 2, 1, 0, -1,
288 & 1, 0, 1, 0, 1, 0, -2, -1, 0, 1, -2, -1, 0, 1, -1,
289 & 0, 1, 1, 0, -1, 2, 1, 0, -1, 2, 1, 0, -1, 2, 0,
290 & 1, -1, 1, -1, 0, 0, 0, -1, -1, 0, 1, 0, 1, 1, 0,
291 & -1, 0, -1, -1, -1, 0, 1, 0, 1, 1, 0, 1, -1, 0, 1,
292 & -1, 0, 0, 1, -1, 0, 1, -1, 0, 0, 1, -1, 0, 0, 0,
293 & 0, 1, 1, 0, 2, 1, 0, 1, 0, 0, 2, 1, 1, -1, -1,
294 & 0, -2, -1, 0, -1, 0, 0, -2, -1, -1, 2, 1, 0, 1, 0,
295 & 0, 2, 1, 1, 2, -2, -1, 0, -1, 0, 0, -2, -1, -1, -2,
298 * Particle baryonic charges *
300 DATA ( IBAR1 ( I ), I = 1,183 ) /
301 & 1, -1, 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0,
302 & 0, 1, -1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0,
303 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
304 & 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
305 & 1, 1, 1, 1, 1, 1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
306 & -1, 2, 0, 0, 0, 1, 1, 1, 1, 2, 2, 0, 0, 1, 1,
307 & 1, 1, 1, 1, 0, 0, 1, 1, -1, -1, -1, -1, -1, 1, 1,
308 & 1, 1, 1, 1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0,
309 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
310 & 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, -1, -1,
311 & -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 1, 1, 1, 1, 1,
312 & 1, 1, 1, 1, 1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
315 * First number of decay channels used for resonances *
316 * and decaying particles *
318 DATA K11/1,2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 16, 17, 18, 24, 30,
319 & 34, 38, 40, 41, 43, 44, 136, 138, 5*330, 46, 51, 52, 54, 55, 58,
320 & 60, 62, 64, 66, 68, 70, 72, 74, 82, 90, 98, 106, 109, 112, 114,
321 & 123, 140, 141, 143, 145, 146, 150, 157, 164, 168, 174, 180, 187,
322 & 194, 202, 210, 211, 213, 215, 216, 220, 227, 234, 238, 245, 252,
323 & 254, 255, 256, 257, 259, 262, 265, 267, 269, 272, 276, 279, 282,
324 & 286, 290, 293, 299, 331, 335, 339, 340, 341, 343, 344, 345, 346,
325 & 347, 350, 353, 356, 358, 360, 363, 366, 369, 372, 374, 376, 379,
326 & 383, 385, 387, 391, 394, 397, 400, 402, 405, 408, 410, 412, 414,
327 & 417, 420, 425, 430, 431, 432, 433, 434, 448, 452, 457, 458, 459,
328 & 460, 461, 462, 466, 468, 470, 472, 486, 490, 495, 496, 497, 498,
329 & 499, 500, 504, 506, 508, 510, 511, 512, 513, 514, 515, 516, 517,
330 & 518, 519, 522, 523, 524, 525, 526, 527, 528, 529, 530, 531, 534,
333 * Last number of decay channels used for resonances *
334 * and decaying particles *
336 DATA K21/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 15, 16, 17, 23, 29,
337 & 31, 35, 39, 40, 42, 43, 45, 137, 139, 5* 330, 50, 51, 53, 54, 57,
338 & 59, 61, 63, 65, 67, 69, 71, 73, 81, 89, 97, 105, 108, 111, 113,
339 & 122, 135, 140, 142, 144, 145, 149, 156, 163, 167, 173, 179, 186,
340 & 193, 201, 209, 210, 212, 214, 215, 219, 226, 233, 237, 244, 251,
341 & 253, 254, 255, 256, 258, 261, 264, 266, 268, 271, 275, 278, 281,
342 & 285, 289, 292, 298, 307, 334, 338, 339, 340, 342, 343, 344, 345,
343 & 346, 349, 352, 355, 357, 359, 362, 365, 368, 371, 373, 375, 378,
344 & 382, 384, 386, 390, 393, 396, 399, 401, 404, 407, 409, 411, 413,
345 & 416, 419, 424, 429, 430, 431, 432, 433, 447, 451, 456, 457, 458,
346 & 459, 460, 461, 465, 467, 469, 471, 485, 489, 494, 495, 496, 497,
347 & 498, 499, 503, 505, 507, 509, 510, 511, 512, 513, 514, 515, 516,
348 & 517, 518, 521, 522, 523, 524, 525, 526, 527, 528, 529, 530, 533,
351 * Conversion from part to paprop numbering *
353 DATA KPTIP1 / 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
354 & 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 66*0,
355 & 34, 36, 31, 32, 33, 35, 37, 5*0, 38, 5*0, 39, 68*0 /
357 * Conversion from paprop to part numbering *
359 DATA IPTKP1 / 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
360 & 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 99,
361 & 100, 101, 97, 102, 98, 103, 109, 115 /
363 DATA IQECH1 / -2, 1, -2, 1, 1, -2, 0, 2, -1, -1, 2, -1, 2 /
364 DATA IQBCH1 / 6*-1, 0, 6*1 /
365 DATA IQICH1 / 4*0, 1, -1, 0, 1, -1, 4*0 /
366 DATA IQSCH1 / 3*0, 1, 5*0, -1, 3*0 /
367 DATA IQCCH1 / 2*0, -1, 7*0, 1, 2*0 /
368 DATA IQUCH1 / 0, 1, 9*0, -1, 0 /
369 DATA IQTCH1 / -1, 11*0, 1 /
370 DATA MQUAR1 / 1,1,2, -1,-1,-2,
371 * 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0,
372 * 1,2,2, -1,-2,-2, 0,0,0, 0,0,0, 0,0,0,
373 * 1,-2,0, 2,-1,0, 1,-3,0, 3,-1,0,
374 * 1,2,3, -1,-2,-3, 0,0,0,
375 * 2,2,3, 1,1,3, 1,2,3, 1,-1,0,
376 * 2,-3,0, 3,-2,0, 2,-2,0, 0,0,0,
377 * 0,0,0, 0,0,0, 0,0,0,
378 * -1,-1,-3, -1,-2,-3, -2,-2,-3,
379 * 1,3,3, -1,-3,-3, 2,3,3, -2,-3,-3,
407 MQUARK(J,I)=MQUAR1(J,I)
410 *= end*block.blkdt6 *