~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

Viewing changes to vendor/StdHEP/src/stdhep/hepcmp.F

pass to v2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
      integer function hepcmp(id)
 
2
 
 
3
C...Purpose: to compress the standard ID codes for use in mass and decay
 
4
C...arrays; also to check whether a given code actually is defined.
 
5
 
 
6
C      ID     = particle ID
 
7
C      hepcmp = compressed index
 
8
 
 
9
      integer id
 
10
      integer cmplist(2210)
 
11
 
 
12
      integer hepchg
 
13
      external hepchg
 
14
 
 
15
      data cmplist(   1) /         1/
 
16
      data cmplist(   2) /         2/
 
17
      data cmplist(   3) /         3/
 
18
      data cmplist(   4) /         4/
 
19
      data cmplist(   5) /         5/
 
20
      data cmplist(   6) /         6/
 
21
      data cmplist(   7) /         7/
 
22
      data cmplist(   8) /         8/
 
23
      data cmplist(   9) /         9/
 
24
      data cmplist(  10) /        10/
 
25
      data cmplist(  11) /        11/
 
26
      data cmplist(  12) /        12/
 
27
      data cmplist(  13) /        13/
 
28
      data cmplist(  14) /        14/
 
29
      data cmplist(  15) /        15/
 
30
      data cmplist(  16) /        16/
 
31
      data cmplist(  17) /        17/
 
32
      data cmplist(  18) /        18/
 
33
      data cmplist(  19) /        19/
 
34
      data cmplist(  20) /        20/
 
35
      data cmplist(  21) /        21/
 
36
      data cmplist(  22) /        22/
 
37
      data cmplist(  23) /        23/
 
38
      data cmplist(  24) /        24/
 
39
      data cmplist(  25) /        25/
 
40
      data cmplist(  26) /        26/
 
41
      data cmplist(  27) /        27/
 
42
      data cmplist(  28) /        28/
 
43
      data cmplist(  29) /        29/
 
44
      data cmplist(  30) /        30/
 
45
      data cmplist(  31) /        31/
 
46
      data cmplist(  32) /        32/
 
47
      data cmplist(  33) /        33/
 
48
      data cmplist(  34) /        34/
 
49
      data cmplist(  35) /        35/
 
50
      data cmplist(  36) /        36/
 
51
      data cmplist(  37) /        37/
 
52
      data cmplist(  38) /        38/
 
53
      data cmplist(  39) /        39/
 
54
      data cmplist(  40) /        40/
 
55
      data cmplist(  41) /        41/
 
56
      data cmplist(  42) /        42/
 
57
      data cmplist(  43) /        43/
 
58
      data cmplist(  44) /        44/
 
59
      data cmplist(  45) /        45/
 
60
      data cmplist(  46) /        46/
 
61
      data cmplist(  47) /        47/
 
62
      data cmplist(  48) /        48/
 
63
      data cmplist(  49) /        49/
 
64
      data cmplist(  50) /        50/
 
65
      data cmplist(  51) /        51/
 
66
      data cmplist(  52) /        52/
 
67
      data cmplist(  53) /        53/
 
68
      data cmplist(  54) /        54/
 
69
      data cmplist(  55) /        55/
 
70
      data cmplist(  56) /        56/
 
71
      data cmplist(  57) /        57/
 
72
      data cmplist(  58) /        58/
 
73
      data cmplist(  59) /        59/
 
74
      data cmplist(  60) /        60/
 
75
      data cmplist(  61) /        61/
 
76
      data cmplist(  62) /        62/
 
77
      data cmplist(  63) /        63/
 
78
      data cmplist(  64) /        64/
 
79
      data cmplist(  65) /        65/
 
80
      data cmplist(  66) /        66/
 
81
      data cmplist(  67) /        67/
 
82
      data cmplist(  68) /        68/
 
83
      data cmplist(  69) /        69/
 
84
      data cmplist(  70) /        70/
 
85
      data cmplist(  71) /        71/
 
86
      data cmplist(  72) /        72/
 
87
      data cmplist(  73) /        73/
 
88
      data cmplist(  74) /        74/
 
89
      data cmplist(  75) /        75/
 
90
      data cmplist(  76) /        76/
 
91
      data cmplist(  77) /        77/
 
92
      data cmplist(  78) /        78/
 
93
      data cmplist(  79) /        79/
 
94
      data cmplist(  80) /        80/
 
95
      data cmplist(  81) /        81/
 
96
      data cmplist(  82) /        82/
 
97
      data cmplist(  83) /        83/
 
98
      data cmplist(  84) /        84/
 
99
      data cmplist(  85) /        85/
 
100
      data cmplist(  86) /        86/
 
101
      data cmplist(  87) /        87/
 
102
      data cmplist(  88) /        88/
 
103
      data cmplist(  89) /        89/
 
104
      data cmplist(  90) /        90/
 
105
      data cmplist(  91) /        91/
 
106
      data cmplist(  92) /        92/
 
107
      data cmplist(  93) /        93/
 
108
      data cmplist(  94) /        94/
 
109
      data cmplist(  95) /        95/
 
110
      data cmplist(  96) /        96/
 
111
      data cmplist(  97) /        97/
 
112
      data cmplist(  98) /        98/
 
113
      data cmplist(  99) /        99/
 
114
      data cmplist( 100) /       100/
 
115
      data cmplist( 101) /       310/
 
116
      data cmplist( 102) /       130/
 
117
      data cmplist( 103) /         0/
 
118
      data cmplist( 104) /         0/
 
119
      data cmplist( 105) /         0/
 
120
      data cmplist( 106) /         0/
 
121
      data cmplist( 107) /       110/
 
122
      data cmplist( 108) /       990/
 
123
      data cmplist( 109) /      9990/
 
124
      data cmplist( 110) /         0/
 
125
      data cmplist( 111) /   1000001/
 
126
      data cmplist( 112) /   1000002/
 
127
      data cmplist( 113) /   1000003/
 
128
      data cmplist( 114) /   1000004/
 
129
      data cmplist( 115) /   1000005/
 
130
      data cmplist( 116) /   1000006/
 
131
      data cmplist( 117) /   1000007/
 
132
      data cmplist( 118) /   1000008/
 
133
      data cmplist( 119) /   1000009/
 
134
      data cmplist( 120) /         0/
 
135
      data cmplist( 121) /   1000011/
 
136
      data cmplist( 122) /   1000012/
 
137
      data cmplist( 123) /   1000013/
 
138
      data cmplist( 124) /   1000014/
 
139
      data cmplist( 125) /   1000015/
 
140
      data cmplist( 126) /   1000016/
 
141
      data cmplist( 127) /   1000017/
 
142
      data cmplist( 128) /   1000018/
 
143
      data cmplist( 129) /   1000019/
 
144
      data cmplist( 130) /         0/
 
145
      data cmplist( 131) /   1000021/
 
146
      data cmplist( 132) /   1000022/
 
147
      data cmplist( 133) /   1000023/
 
148
      data cmplist( 134) /   1000024/
 
149
      data cmplist( 135) /   1000025/
 
150
      data cmplist( 136) /   1000026/
 
151
      data cmplist( 137) /   1000027/
 
152
      data cmplist( 138) /   1000028/
 
153
      data cmplist( 139) /   1000029/
 
154
      data cmplist( 140) /         0/
 
155
      data cmplist( 141) /   1000031/
 
156
      data cmplist( 142) /   1000032/
 
157
      data cmplist( 143) /   1000033/
 
158
      data cmplist( 144) /   1000034/
 
159
      data cmplist( 145) /   1000035/
 
160
      data cmplist( 146) /   1000036/
 
161
      data cmplist( 147) /   1000037/
 
162
      data cmplist( 148) /   1000038/
 
163
      data cmplist( 149) /   1000039/
 
164
      data cmplist( 150) /         0/
 
165
      data cmplist( 151) /   1000041/
 
166
      data cmplist( 152) /   1000042/
 
167
      data cmplist( 153) /   1000043/
 
168
      data cmplist( 154) /   1000044/
 
169
      data cmplist( 155) /   1000045/
 
170
      data cmplist( 156) /   1000046/
 
171
      data cmplist( 157) /   1000047/
 
172
      data cmplist( 158) /   1000048/
 
173
      data cmplist( 159) /   1000049/
 
174
      data cmplist( 160) /         0/
 
175
      data cmplist( 161) /   1000051/
 
176
      data cmplist( 162) /   1000052/
 
177
      data cmplist( 163) /   1000053/
 
178
      data cmplist( 164) /   1000054/
 
179
      data cmplist( 165) /   1000055/
 
180
      data cmplist( 166) /   1000056/
 
181
      data cmplist( 167) /   1000057/
 
182
      data cmplist( 168) /   1000058/
 
183
      data cmplist( 169) /   1000059/
 
184
      data cmplist( 170) /         0/
 
185
      data cmplist( 171) /   2000001/
 
186
      data cmplist( 172) /   2000002/
 
187
      data cmplist( 173) /   2000003/
 
188
      data cmplist( 174) /   2000004/
 
189
      data cmplist( 175) /   2000005/
 
190
      data cmplist( 176) /   2000006/
 
191
      data cmplist( 177) /   2000007/
 
192
      data cmplist( 178) /   2000008/
 
193
      data cmplist( 179) /   2000009/
 
194
      data cmplist( 180) /         0/
 
195
      data cmplist( 181) /   2000011/
 
196
      data cmplist( 182) /   2000012/
 
197
      data cmplist( 183) /   2000013/
 
198
      data cmplist( 184) /   2000014/
 
199
      data cmplist( 185) /   2000015/
 
200
      data cmplist( 186) /   2000016/
 
201
      data cmplist( 187) /   2000017/
 
202
      data cmplist( 188) /   2000018/
 
203
      data cmplist( 189) /   2000019/
 
204
      data cmplist( 190) /         0/
 
205
      data cmplist( 191) /   3000111/
 
206
      data cmplist( 192) /   3000211/
 
207
      data cmplist( 193) /   3000221/
 
208
      data cmplist( 194) /   3000113/
 
209
      data cmplist( 195) /   3000213/
 
210
      data cmplist( 196) /   3100221/
 
211
      data cmplist( 197) /   3000223/
 
212
      data cmplist( 198) /         0/
 
213
      data cmplist( 199) /         0/
 
214
      data cmplist( 200) /         0/
 
215
      data cmplist( 201) /   3100021/
 
216
      data cmplist( 202) /   3060111/
 
217
      data cmplist( 203) /   3160111/
 
218
      data cmplist( 204) /   3130113/
 
219
      data cmplist( 205) /   3140113/
 
220
      data cmplist( 206) /   3150113/
 
221
      data cmplist( 207) /   3160113/
 
222
      data cmplist( 208) /         0/
 
223
      data cmplist( 209) /         0/
 
224
      data cmplist( 210) /         0/
 
225
      data cmplist( 211) /   4000001/
 
226
      data cmplist( 212) /   4000002/
 
227
      data cmplist( 213) /   4000003/
 
228
      data cmplist( 214) /   4000004/
 
229
      data cmplist( 215) /   4000005/
 
230
      data cmplist( 216) /   4000006/
 
231
      data cmplist( 217) /   4000007/
 
232
      data cmplist( 218) /   4000008/
 
233
      data cmplist( 219) /   4000009/
 
234
      data cmplist( 220) /         0/
 
235
      data cmplist( 221) /   4000011/
 
236
      data cmplist( 222) /   4000012/
 
237
      data cmplist( 223) /   4000013/
 
238
      data cmplist( 224) /   4000014/
 
239
      data cmplist( 225) /   4000015/
 
240
      data cmplist( 226) /   4000016/
 
241
      data cmplist( 227) /   4000017/
 
242
      data cmplist( 228) /   4000018/
 
243
      data cmplist( 229) /   4000019/
 
244
      data cmplist( 230) /   4000039/
 
245
      data cmplist( 231) /   9900061/
 
246
      data cmplist( 232) /   9900062/
 
247
      data cmplist( 233) /   9900024/
 
248
      data cmplist( 234) /   9900012/
 
249
      data cmplist( 235) /   9900014/
 
250
      data cmplist( 236) /   9900016/
 
251
      data cmplist( 237) /   9900023/
 
252
      data cmplist( 238) /   9221132/
 
253
      data cmplist( 239) /   9331122/
 
254
      data cmplist( 240) /         0/
 
255
      data cmplist( 241) /   9910113/
 
256
      data cmplist( 242) /   9910211/
 
257
      data cmplist( 243) /   9910223/
 
258
      data cmplist( 244) /   9910333/
 
259
      data cmplist( 245) /   9910443/
 
260
      data cmplist( 246) /   9912112/
 
261
      data cmplist( 247) /   9912212/
 
262
      data cmplist( 248) /   9900443/
 
263
      data cmplist( 249) /   9900441/
 
264
      data cmplist( 250) /   9910441/
 
265
      data cmplist( 251) /   9920022/
 
266
      data cmplist( 252) /   9922212/
 
267
      data cmplist( 253) /     10022/
 
268
      data cmplist( 254) /     20022/
 
269
      data cmplist( 255) /   9900553/
 
270
      data cmplist( 256) /   9900551/
 
271
      data cmplist( 257) /   9910551/
 
272
      data cmplist( 258) /         0/
 
273
      data cmplist( 259) /         0/
 
274
      data cmplist( 260) /         0/
 
275
      data cmplist( 261) /         0/
 
276
      data cmplist( 262) /         0/
 
277
      data cmplist( 263) /         0/
 
278
      data cmplist( 264) /         0/
 
279
      data cmplist( 265) /         0/
 
280
      data cmplist( 266) /         0/
 
281
      data cmplist( 267) /         0/
 
282
      data cmplist( 268) /         0/
 
283
      data cmplist( 269) /         0/
 
284
      data cmplist( 270) /         0/
 
285
      data cmplist( 271) /         0/
 
286
      data cmplist( 272) /         0/
 
287
      data cmplist( 273) /         0/
 
288
      data cmplist( 274) /         0/
 
289
      data cmplist( 275) /         0/
 
290
      data cmplist( 276) /         0/
 
291
      data cmplist( 277) /         0/
 
292
      data cmplist( 278) /         0/
 
293
      data cmplist( 279) /         0/
 
294
      data cmplist( 280) /         0/
 
295
      data cmplist( 281) /         0/
 
296
      data cmplist( 282) /         0/
 
297
      data cmplist( 283) /         0/
 
298
      data cmplist( 284) /         0/
 
299
      data cmplist( 285) /         0/
 
300
      data cmplist( 286) /         0/
 
301
      data cmplist( 287) /         0/
 
302
      data cmplist( 288) /         0/
 
303
      data cmplist( 289) /         0/
 
304
      data cmplist( 290) /         0/
 
305
      data cmplist( 291) /         0/
 
306
      data cmplist( 292) /         0/
 
307
      data cmplist( 293) /         0/
 
308
      data cmplist( 294) /         0/
 
309
      data cmplist( 295) /         0/
 
310
      data cmplist( 296) /         0/
 
311
      data cmplist( 297) /         0/
 
312
      data cmplist( 298) /         0/
 
313
      data cmplist( 299) /         0/
 
314
      data cmplist( 300) /         0/
 
315
      data cmplist( 301) /         0/
 
316
      data cmplist( 302) /         0/
 
317
      data cmplist( 303) /         0/
 
318
      data cmplist( 304) /         0/
 
319
      data cmplist( 305) /         0/
 
320
      data cmplist( 306) /         0/
 
321
      data cmplist( 307) /         0/
 
322
      data cmplist( 308) /         0/
 
323
      data cmplist( 309) /         0/
 
324
      data cmplist( 310) /         0/
 
325
      data cmplist( 311) /         0/
 
326
      data cmplist( 312) /         0/
 
327
      data cmplist( 313) /         0/
 
328
      data cmplist( 314) /         0/
 
329
      data cmplist( 315) /         0/
 
330
      data cmplist( 316) /         0/
 
331
      data cmplist( 317) /         0/
 
332
      data cmplist( 318) /         0/
 
333
      data cmplist( 319) /         0/
 
334
      data cmplist( 320) /         0/
 
335
      data cmplist( 321) /         0/
 
336
      data cmplist( 322) /         0/
 
337
      data cmplist( 323) /         0/
 
338
      data cmplist( 324) /         0/
 
339
      data cmplist( 325) /         0/
 
340
      data cmplist( 326) /         0/
 
341
      data cmplist( 327) /         0/
 
342
      data cmplist( 328) /         0/
 
343
      data cmplist( 329) /         0/
 
344
      data cmplist( 330) /         0/
 
345
      data cmplist( 331) /         0/
 
346
      data cmplist( 332) /         0/
 
347
      data cmplist( 333) /         0/
 
348
      data cmplist( 334) /         0/
 
349
      data cmplist( 335) /         0/
 
350
      data cmplist( 336) /         0/
 
351
      data cmplist( 337) /         0/
 
352
      data cmplist( 338) /         0/
 
353
      data cmplist( 339) /         0/
 
354
      data cmplist( 340) /         0/
 
355
      data cmplist( 341) /         0/
 
356
      data cmplist( 342) /         0/
 
357
      data cmplist( 343) /         0/
 
358
      data cmplist( 344) /         0/
 
359
      data cmplist( 345) /         0/
 
360
      data cmplist( 346) /         0/
 
361
      data cmplist( 347) /         0/
 
362
      data cmplist( 348) /         0/
 
363
      data cmplist( 349) /         0/
 
364
      data cmplist( 350) /         0/
 
365
      data cmplist( 351) /         0/
 
366
      data cmplist( 352) /         0/
 
367
      data cmplist( 353) /         0/
 
368
      data cmplist( 354) /         0/
 
369
      data cmplist( 355) /         0/
 
370
      data cmplist( 356) /         0/
 
371
      data cmplist( 357) /         0/
 
372
      data cmplist( 358) /         0/
 
373
      data cmplist( 359) /         0/
 
374
      data cmplist( 360) /         0/
 
375
      data cmplist( 361) /         0/
 
376
      data cmplist( 362) /         0/
 
377
      data cmplist( 363) /         0/
 
378
      data cmplist( 364) /         0/
 
379
      data cmplist( 365) /         0/
 
380
      data cmplist( 366) /         0/
 
381
      data cmplist( 367) /         0/
 
382
      data cmplist( 368) /         0/
 
383
      data cmplist( 369) /         0/
 
384
      data cmplist( 370) /         0/
 
385
      data cmplist( 371) /         0/
 
386
      data cmplist( 372) /         0/
 
387
      data cmplist( 373) /         0/
 
388
      data cmplist( 374) /         0/
 
389
      data cmplist( 375) /         0/
 
390
      data cmplist( 376) /         0/
 
391
      data cmplist( 377) /         0/
 
392
      data cmplist( 378) /         0/
 
393
      data cmplist( 379) /         0/
 
394
      data cmplist( 380) /         0/
 
395
      data cmplist( 381) /         0/
 
396
      data cmplist( 382) /         0/
 
397
      data cmplist( 383) /         0/
 
398
      data cmplist( 384) /         0/
 
399
      data cmplist( 385) /         0/
 
400
      data cmplist( 386) /         0/
 
401
      data cmplist( 387) /         0/
 
402
      data cmplist( 388) /         0/
 
403
      data cmplist( 389) /         0/
 
404
      data cmplist( 390) /         0/
 
405
      data cmplist( 391) /         0/
 
406
      data cmplist( 392) /         0/
 
407
      data cmplist( 393) /         0/
 
408
      data cmplist( 394) /         0/
 
409
      data cmplist( 395) /         0/
 
410
      data cmplist( 396) /         0/
 
411
      data cmplist( 397) /         0/
 
412
      data cmplist( 398) /         0/
 
413
      data cmplist( 399) /         0/
 
414
      data cmplist( 400) /         0/
 
415
      data cmplist( 401) /         0/
 
416
      data cmplist( 402) /         0/
 
417
      data cmplist( 403) /         0/
 
418
      data cmplist( 404) /         0/
 
419
      data cmplist( 405) /         0/
 
420
      data cmplist( 406) /         0/
 
421
      data cmplist( 407) /         0/
 
422
      data cmplist( 408) /         0/
 
423
      data cmplist( 409) /         0/
 
424
      data cmplist( 410) /         0/
 
425
      data cmplist( 411) /         0/
 
426
      data cmplist( 412) /         0/
 
427
      data cmplist( 413) /         0/
 
428
      data cmplist( 414) /         0/
 
429
      data cmplist( 415) /         0/
 
430
      data cmplist( 416) /         0/
 
431
      data cmplist( 417) /         0/
 
432
      data cmplist( 418) /         0/
 
433
      data cmplist( 419) /         0/
 
434
      data cmplist( 420) /         0/
 
435
      data cmplist( 421) /         0/
 
436
      data cmplist( 422) /         0/
 
437
      data cmplist( 423) /         0/
 
438
      data cmplist( 424) /         0/
 
439
      data cmplist( 425) /         0/
 
440
      data cmplist( 426) /         0/
 
441
      data cmplist( 427) /         0/
 
442
      data cmplist( 428) /         0/
 
443
      data cmplist( 429) /         0/
 
444
      data cmplist( 430) /         0/
 
445
      data cmplist( 431) /         0/
 
446
      data cmplist( 432) /         0/
 
447
      data cmplist( 433) /         0/
 
448
      data cmplist( 434) /         0/
 
449
      data cmplist( 435) /         0/
 
450
      data cmplist( 436) /         0/
 
451
      data cmplist( 437) /         0/
 
452
      data cmplist( 438) /         0/
 
453
      data cmplist( 439) /         0/
 
454
      data cmplist( 440) /         0/
 
455
      data cmplist( 441) /         0/
 
456
      data cmplist( 442) /         0/
 
457
      data cmplist( 443) /         0/
 
458
      data cmplist( 444) /         0/
 
459
      data cmplist( 445) /         0/
 
460
      data cmplist( 446) /         0/
 
461
      data cmplist( 447) /         0/
 
462
      data cmplist( 448) /         0/
 
463
      data cmplist( 449) /         0/
 
464
      data cmplist( 450) /         0/
 
465
      data cmplist( 451) /         0/
 
466
      data cmplist( 452) /         0/
 
467
      data cmplist( 453) /         0/
 
468
      data cmplist( 454) /         0/
 
469
      data cmplist( 455) /         0/
 
470
      data cmplist( 456) /         0/
 
471
      data cmplist( 457) /         0/
 
472
      data cmplist( 458) /         0/
 
473
      data cmplist( 459) /         0/
 
474
      data cmplist( 460) /         0/
 
475
      data cmplist( 461) /         0/
 
476
      data cmplist( 462) /         0/
 
477
      data cmplist( 463) /         0/
 
478
      data cmplist( 464) /         0/
 
479
      data cmplist( 465) /         0/
 
480
      data cmplist( 466) /         0/
 
481
      data cmplist( 467) /         0/
 
482
      data cmplist( 468) /         0/
 
483
      data cmplist( 469) /         0/
 
484
      data cmplist( 470) /         0/
 
485
      data cmplist( 471) /         0/
 
486
      data cmplist( 472) /         0/
 
487
      data cmplist( 473) /         0/
 
488
      data cmplist( 474) /         0/
 
489
      data cmplist( 475) /         0/
 
490
      data cmplist( 476) /         0/
 
491
      data cmplist( 477) /         0/
 
492
      data cmplist( 478) /         0/
 
493
      data cmplist( 479) /         0/
 
494
      data cmplist( 480) /         0/
 
495
      data cmplist( 481) /         0/
 
496
      data cmplist( 482) /         0/
 
497
      data cmplist( 483) /         0/
 
498
      data cmplist( 484) /         0/
 
499
      data cmplist( 485) /         0/
 
500
      data cmplist( 486) /         0/
 
501
      data cmplist( 487) /         0/
 
502
      data cmplist( 488) /         0/
 
503
      data cmplist( 489) /         0/
 
504
      data cmplist( 490) /         0/
 
505
      data cmplist( 491) /         0/
 
506
      data cmplist( 492) /         0/
 
507
      data cmplist( 493) /         0/
 
508
      data cmplist( 494) /         0/
 
509
      data cmplist( 495) /         0/
 
510
      data cmplist( 496) /         0/
 
511
      data cmplist( 497) /         0/
 
512
      data cmplist( 498) /         0/
 
513
      data cmplist( 499) /         0/
 
514
      data cmplist( 500) /         0/
 
515
      data cmplist( 501) /         0/
 
516
      data cmplist( 502) /         0/
 
517
      data cmplist( 503) /         0/
 
518
      data cmplist( 504) /         0/
 
519
      data cmplist( 505) /         0/
 
520
      data cmplist( 506) /         0/
 
521
      data cmplist( 507) /         0/
 
522
      data cmplist( 508) /         0/
 
523
      data cmplist( 509) /         0/
 
524
      data cmplist( 510) /         0/
 
525
      data cmplist( 511) /         0/
 
526
      data cmplist( 512) /         0/
 
527
      data cmplist( 513) /         0/
 
528
      data cmplist( 514) /         0/
 
529
      data cmplist( 515) /         0/
 
530
      data cmplist( 516) /         0/
 
531
      data cmplist( 517) /         0/
 
532
      data cmplist( 518) /         0/
 
533
      data cmplist( 519) /         0/
 
534
      data cmplist( 520) /         0/
 
535
      data cmplist( 521) /         0/
 
536
      data cmplist( 522) /         0/
 
537
      data cmplist( 523) /         0/
 
538
      data cmplist( 524) /         0/
 
539
      data cmplist( 525) /         0/
 
540
      data cmplist( 526) /         0/
 
541
      data cmplist( 527) /         0/
 
542
      data cmplist( 528) /         0/
 
543
      data cmplist( 529) /         0/
 
544
      data cmplist( 530) /         0/
 
545
      data cmplist( 531) /         0/
 
546
      data cmplist( 532) /         0/
 
547
      data cmplist( 533) /         0/
 
548
      data cmplist( 534) /         0/
 
549
      data cmplist( 535) /         0/
 
550
      data cmplist( 536) /         0/
 
551
      data cmplist( 537) /         0/
 
552
      data cmplist( 538) /         0/
 
553
      data cmplist( 539) /         0/
 
554
      data cmplist( 540) /         0/
 
555
      data cmplist( 541) /         0/
 
556
      data cmplist( 542) /         0/
 
557
      data cmplist( 543) /         0/
 
558
      data cmplist( 544) /         0/
 
559
      data cmplist( 545) /         0/
 
560
      data cmplist( 546) /         0/
 
561
      data cmplist( 547) /         0/
 
562
      data cmplist( 548) /         0/
 
563
      data cmplist( 549) /         0/
 
564
      data cmplist( 550) /         0/
 
565
      data cmplist( 551) /         0/
 
566
      data cmplist( 552) /         0/
 
567
      data cmplist( 553) /         0/
 
568
      data cmplist( 554) /         0/
 
569
      data cmplist( 555) /         0/
 
570
      data cmplist( 556) /         0/
 
571
      data cmplist( 557) /         0/
 
572
      data cmplist( 558) /         0/
 
573
      data cmplist( 559) /         0/
 
574
      data cmplist( 560) /         0/
 
575
      data cmplist( 561) /         0/
 
576
      data cmplist( 562) /         0/
 
577
      data cmplist( 563) /         0/
 
578
      data cmplist( 564) /         0/
 
579
      data cmplist( 565) /         0/
 
580
      data cmplist( 566) /         0/
 
581
      data cmplist( 567) /         0/
 
582
      data cmplist( 568) /         0/
 
583
      data cmplist( 569) /         0/
 
584
      data cmplist( 570) /         0/
 
585
      data cmplist( 571) /         0/
 
586
      data cmplist( 572) /         0/
 
587
      data cmplist( 573) /         0/
 
588
      data cmplist( 574) /         0/
 
589
      data cmplist( 575) /         0/
 
590
      data cmplist( 576) /         0/
 
591
      data cmplist( 577) /         0/
 
592
      data cmplist( 578) /         0/
 
593
      data cmplist( 579) /         0/
 
594
      data cmplist( 580) /         0/
 
595
      data cmplist( 581) /         0/
 
596
      data cmplist( 582) /         0/
 
597
      data cmplist( 583) /         0/
 
598
      data cmplist( 584) /         0/
 
599
      data cmplist( 585) /         0/
 
600
      data cmplist( 586) /         0/
 
601
      data cmplist( 587) /         0/
 
602
      data cmplist( 588) /         0/
 
603
      data cmplist( 589) /         0/
 
604
      data cmplist( 590) /         0/
 
605
      data cmplist( 591) /         0/
 
606
      data cmplist( 592) /         0/
 
607
      data cmplist( 593) /         0/
 
608
      data cmplist( 594) /         0/
 
609
      data cmplist( 595) /         0/
 
610
      data cmplist( 596) /         0/
 
611
      data cmplist( 597) /         0/
 
612
      data cmplist( 598) /         0/
 
613
      data cmplist( 599) /         0/
 
614
      data cmplist( 600) /         0/
 
615
      data cmplist( 601) /         0/
 
616
      data cmplist( 602) /         0/
 
617
      data cmplist( 603) /         0/
 
618
      data cmplist( 604) /         0/
 
619
      data cmplist( 605) /         0/
 
620
      data cmplist( 606) /         0/
 
621
      data cmplist( 607) /         0/
 
622
      data cmplist( 608) /         0/
 
623
      data cmplist( 609) /         0/
 
624
      data cmplist( 610) /         0/
 
625
      data cmplist( 611) /         0/
 
626
      data cmplist( 612) /         0/
 
627
      data cmplist( 613) /         0/
 
628
      data cmplist( 614) /         0/
 
629
      data cmplist( 615) /         0/
 
630
      data cmplist( 616) /         0/
 
631
      data cmplist( 617) /         0/
 
632
      data cmplist( 618) /         0/
 
633
      data cmplist( 619) /         0/
 
634
      data cmplist( 620) /         0/
 
635
      data cmplist( 621) /         0/
 
636
      data cmplist( 622) /         0/
 
637
      data cmplist( 623) /         0/
 
638
      data cmplist( 624) /         0/
 
639
      data cmplist( 625) /         0/
 
640
      data cmplist( 626) /         0/
 
641
      data cmplist( 627) /         0/
 
642
      data cmplist( 628) /         0/
 
643
      data cmplist( 629) /         0/
 
644
      data cmplist( 630) /         0/
 
645
      data cmplist( 631) /         0/
 
646
      data cmplist( 632) /         0/
 
647
      data cmplist( 633) /         0/
 
648
      data cmplist( 634) /         0/
 
649
      data cmplist( 635) /         0/
 
650
      data cmplist( 636) /         0/
 
651
      data cmplist( 637) /         0/
 
652
      data cmplist( 638) /         0/
 
653
      data cmplist( 639) /         0/
 
654
      data cmplist( 640) /         0/
 
655
      data cmplist( 641) /         0/
 
656
      data cmplist( 642) /         0/
 
657
      data cmplist( 643) /         0/
 
658
      data cmplist( 644) /         0/
 
659
      data cmplist( 645) /         0/
 
660
      data cmplist( 646) /         0/
 
661
      data cmplist( 647) /         0/
 
662
      data cmplist( 648) /         0/
 
663
      data cmplist( 649) /         0/
 
664
      data cmplist( 650) /         0/
 
665
      data cmplist( 651) /         0/
 
666
      data cmplist( 652) /         0/
 
667
      data cmplist( 653) /         0/
 
668
      data cmplist( 654) /         0/
 
669
      data cmplist( 655) /         0/
 
670
      data cmplist( 656) /         0/
 
671
      data cmplist( 657) /         0/
 
672
      data cmplist( 658) /         0/
 
673
      data cmplist( 659) /         0/
 
674
      data cmplist( 660) /         0/
 
675
      data cmplist( 661) /         0/
 
676
      data cmplist( 662) /         0/
 
677
      data cmplist( 663) /         0/
 
678
      data cmplist( 664) /         0/
 
679
      data cmplist( 665) /         0/
 
680
      data cmplist( 666) /         0/
 
681
      data cmplist( 667) /         0/
 
682
      data cmplist( 668) /         0/
 
683
      data cmplist( 669) /         0/
 
684
      data cmplist( 670) /         0/
 
685
      data cmplist( 671) /         0/
 
686
      data cmplist( 672) /         0/
 
687
      data cmplist( 673) /         0/
 
688
      data cmplist( 674) /         0/
 
689
      data cmplist( 675) /         0/
 
690
      data cmplist( 676) /         0/
 
691
      data cmplist( 677) /         0/
 
692
      data cmplist( 678) /         0/
 
693
      data cmplist( 679) /         0/
 
694
      data cmplist( 680) /         0/
 
695
      data cmplist( 681) /         0/
 
696
      data cmplist( 682) /         0/
 
697
      data cmplist( 683) /         0/
 
698
      data cmplist( 684) /         0/
 
699
      data cmplist( 685) /         0/
 
700
      data cmplist( 686) /         0/
 
701
      data cmplist( 687) /         0/
 
702
      data cmplist( 688) /         0/
 
703
      data cmplist( 689) /         0/
 
704
      data cmplist( 690) /         0/
 
705
      data cmplist( 691) /         0/
 
706
      data cmplist( 692) /         0/
 
707
      data cmplist( 693) /         0/
 
708
      data cmplist( 694) /         0/
 
709
      data cmplist( 695) /         0/
 
710
      data cmplist( 696) /         0/
 
711
      data cmplist( 697) /         0/
 
712
      data cmplist( 698) /         0/
 
713
      data cmplist( 699) /         0/
 
714
      data cmplist( 700) /         0/
 
715
      data cmplist( 701) /         0/
 
716
      data cmplist( 702) /         0/
 
717
      data cmplist( 703) /         0/
 
718
      data cmplist( 704) /         0/
 
719
      data cmplist( 705) /         0/
 
720
      data cmplist( 706) /         0/
 
721
      data cmplist( 707) /         0/
 
722
      data cmplist( 708) /         0/
 
723
      data cmplist( 709) /         0/
 
724
      data cmplist( 710) /         0/
 
725
      data cmplist( 711) /         0/
 
726
      data cmplist( 712) /         0/
 
727
      data cmplist( 713) /         0/
 
728
      data cmplist( 714) /         0/
 
729
      data cmplist( 715) /         0/
 
730
      data cmplist( 716) /         0/
 
731
      data cmplist( 717) /         0/
 
732
      data cmplist( 718) /         0/
 
733
      data cmplist( 719) /         0/
 
734
      data cmplist( 720) /         0/
 
735
      data cmplist( 721) /         0/
 
736
      data cmplist( 722) /         0/
 
737
      data cmplist( 723) /         0/
 
738
      data cmplist( 724) /         0/
 
739
      data cmplist( 725) /         0/
 
740
      data cmplist( 726) /         0/
 
741
      data cmplist( 727) /         0/
 
742
      data cmplist( 728) /         0/
 
743
      data cmplist( 729) /         0/
 
744
      data cmplist( 730) /         0/
 
745
      data cmplist( 731) /         0/
 
746
      data cmplist( 732) /         0/
 
747
      data cmplist( 733) /         0/
 
748
      data cmplist( 734) /         0/
 
749
      data cmplist( 735) /         0/
 
750
      data cmplist( 736) /         0/
 
751
      data cmplist( 737) /         0/
 
752
      data cmplist( 738) /         0/
 
753
      data cmplist( 739) /         0/
 
754
      data cmplist( 740) /         0/
 
755
      data cmplist( 741) /         0/
 
756
      data cmplist( 742) /         0/
 
757
      data cmplist( 743) /         0/
 
758
      data cmplist( 744) /         0/
 
759
      data cmplist( 745) /         0/
 
760
      data cmplist( 746) /         0/
 
761
      data cmplist( 747) /         0/
 
762
      data cmplist( 748) /         0/
 
763
      data cmplist( 749) /         0/
 
764
      data cmplist( 750) /         0/
 
765
      data cmplist( 751) /         0/
 
766
      data cmplist( 752) /         0/
 
767
      data cmplist( 753) /         0/
 
768
      data cmplist( 754) /         0/
 
769
      data cmplist( 755) /         0/
 
770
      data cmplist( 756) /         0/
 
771
      data cmplist( 757) /         0/
 
772
      data cmplist( 758) /         0/
 
773
      data cmplist( 759) /         0/
 
774
      data cmplist( 760) /         0/
 
775
      data cmplist( 761) /         0/
 
776
      data cmplist( 762) /         0/
 
777
      data cmplist( 763) /         0/
 
778
      data cmplist( 764) /         0/
 
779
      data cmplist( 765) /         0/
 
780
      data cmplist( 766) /         0/
 
781
      data cmplist( 767) /         0/
 
782
      data cmplist( 768) /         0/
 
783
      data cmplist( 769) /         0/
 
784
      data cmplist( 770) /         0/
 
785
      data cmplist( 771) /         0/
 
786
      data cmplist( 772) /         0/
 
787
      data cmplist( 773) /         0/
 
788
      data cmplist( 774) /         0/
 
789
      data cmplist( 775) /         0/
 
790
      data cmplist( 776) /         0/
 
791
      data cmplist( 777) /         0/
 
792
      data cmplist( 778) /         0/
 
793
      data cmplist( 779) /         0/
 
794
      data cmplist( 780) /         0/
 
795
      data cmplist( 781) /         0/
 
796
      data cmplist( 782) /         0/
 
797
      data cmplist( 783) /         0/
 
798
      data cmplist( 784) /         0/
 
799
      data cmplist( 785) /         0/
 
800
      data cmplist( 786) /         0/
 
801
      data cmplist( 787) /         0/
 
802
      data cmplist( 788) /         0/
 
803
      data cmplist( 789) /         0/
 
804
      data cmplist( 790) /         0/
 
805
      data cmplist( 791) /         0/
 
806
      data cmplist( 792) /         0/
 
807
      data cmplist( 793) /         0/
 
808
      data cmplist( 794) /         0/
 
809
      data cmplist( 795) /         0/
 
810
      data cmplist( 796) /         0/
 
811
      data cmplist( 797) /         0/
 
812
      data cmplist( 798) /         0/
 
813
      data cmplist( 799) /         0/
 
814
      data cmplist( 800) /         0/
 
815
      data cmplist( 801) /         0/
 
816
      data cmplist( 802) /         0/
 
817
      data cmplist( 803) /         0/
 
818
      data cmplist( 804) /         0/
 
819
      data cmplist( 805) /         0/
 
820
      data cmplist( 806) /         0/
 
821
      data cmplist( 807) /         0/
 
822
      data cmplist( 808) /         0/
 
823
      data cmplist( 809) /         0/
 
824
      data cmplist( 810) /         0/
 
825
      data cmplist( 811) /         0/
 
826
      data cmplist( 812) /         0/
 
827
      data cmplist( 813) /         0/
 
828
      data cmplist( 814) /         0/
 
829
      data cmplist( 815) /         0/
 
830
      data cmplist( 816) /         0/
 
831
      data cmplist( 817) /         0/
 
832
      data cmplist( 818) /         0/
 
833
      data cmplist( 819) /         0/
 
834
      data cmplist( 820) /         0/
 
835
      data cmplist( 821) /         0/
 
836
      data cmplist( 822) /         0/
 
837
      data cmplist( 823) /         0/
 
838
      data cmplist( 824) /         0/
 
839
      data cmplist( 825) /         0/
 
840
      data cmplist( 826) /         0/
 
841
      data cmplist( 827) /         0/
 
842
      data cmplist( 828) /         0/
 
843
      data cmplist( 829) /         0/
 
844
      data cmplist( 830) /         0/
 
845
      data cmplist( 831) /         0/
 
846
      data cmplist( 832) /         0/
 
847
      data cmplist( 833) /         0/
 
848
      data cmplist( 834) /         0/
 
849
      data cmplist( 835) /         0/
 
850
      data cmplist( 836) /         0/
 
851
      data cmplist( 837) /         0/
 
852
      data cmplist( 838) /         0/
 
853
      data cmplist( 839) /         0/
 
854
      data cmplist( 840) /         0/
 
855
      data cmplist( 841) /         0/
 
856
      data cmplist( 842) /         0/
 
857
      data cmplist( 843) /         0/
 
858
      data cmplist( 844) /         0/
 
859
      data cmplist( 845) /         0/
 
860
      data cmplist( 846) /         0/
 
861
      data cmplist( 847) /         0/
 
862
      data cmplist( 848) /         0/
 
863
      data cmplist( 849) /         0/
 
864
      data cmplist( 850) /         0/
 
865
      data cmplist( 851) /         0/
 
866
      data cmplist( 852) /         0/
 
867
      data cmplist( 853) /         0/
 
868
      data cmplist( 854) /         0/
 
869
      data cmplist( 855) /         0/
 
870
      data cmplist( 856) /         0/
 
871
      data cmplist( 857) /         0/
 
872
      data cmplist( 858) /         0/
 
873
      data cmplist( 859) /         0/
 
874
      data cmplist( 860) /         0/
 
875
      data cmplist( 861) /         0/
 
876
      data cmplist( 862) /         0/
 
877
      data cmplist( 863) /         0/
 
878
      data cmplist( 864) /         0/
 
879
      data cmplist( 865) /         0/
 
880
      data cmplist( 866) /         0/
 
881
      data cmplist( 867) /         0/
 
882
      data cmplist( 868) /         0/
 
883
      data cmplist( 869) /         0/
 
884
      data cmplist( 870) /         0/
 
885
      data cmplist( 871) /         0/
 
886
      data cmplist( 872) /         0/
 
887
      data cmplist( 873) /         0/
 
888
      data cmplist( 874) /         0/
 
889
      data cmplist( 875) /         0/
 
890
      data cmplist( 876) /         0/
 
891
      data cmplist( 877) /         0/
 
892
      data cmplist( 878) /         0/
 
893
      data cmplist( 879) /         0/
 
894
      data cmplist( 880) /         0/
 
895
      data cmplist( 881) /         0/
 
896
      data cmplist( 882) /         0/
 
897
      data cmplist( 883) /         0/
 
898
      data cmplist( 884) /         0/
 
899
      data cmplist( 885) /         0/
 
900
      data cmplist( 886) /         0/
 
901
      data cmplist( 887) /         0/
 
902
      data cmplist( 888) /         0/
 
903
      data cmplist( 889) /         0/
 
904
      data cmplist( 890) /         0/
 
905
      data cmplist( 891) /         0/
 
906
      data cmplist( 892) /         0/
 
907
      data cmplist( 893) /         0/
 
908
      data cmplist( 894) /         0/
 
909
      data cmplist( 895) /         0/
 
910
      data cmplist( 896) /         0/
 
911
      data cmplist( 897) /         0/
 
912
      data cmplist( 898) /         0/
 
913
      data cmplist( 899) /         0/
 
914
      data cmplist( 900) /         0/
 
915
      data cmplist( 901) /         0/
 
916
      data cmplist( 902) /         0/
 
917
      data cmplist( 903) /         0/
 
918
      data cmplist( 904) /         0/
 
919
      data cmplist( 905) /         0/
 
920
      data cmplist( 906) /         0/
 
921
      data cmplist( 907) /         0/
 
922
      data cmplist( 908) /         0/
 
923
      data cmplist( 909) /         0/
 
924
      data cmplist( 910) /         0/
 
925
      data cmplist( 911) /         0/
 
926
      data cmplist( 912) /         0/
 
927
      data cmplist( 913) /         0/
 
928
      data cmplist( 914) /         0/
 
929
      data cmplist( 915) /         0/
 
930
      data cmplist( 916) /         0/
 
931
      data cmplist( 917) /         0/
 
932
      data cmplist( 918) /         0/
 
933
      data cmplist( 919) /         0/
 
934
      data cmplist( 920) /         0/
 
935
      data cmplist( 921) /         0/
 
936
      data cmplist( 922) /         0/
 
937
      data cmplist( 923) /         0/
 
938
      data cmplist( 924) /         0/
 
939
      data cmplist( 925) /         0/
 
940
      data cmplist( 926) /         0/
 
941
      data cmplist( 927) /         0/
 
942
      data cmplist( 928) /         0/
 
943
      data cmplist( 929) /         0/
 
944
      data cmplist( 930) /         0/
 
945
      data cmplist( 931) /         0/
 
946
      data cmplist( 932) /         0/
 
947
      data cmplist( 933) /         0/
 
948
      data cmplist( 934) /         0/
 
949
      data cmplist( 935) /         0/
 
950
      data cmplist( 936) /         0/
 
951
      data cmplist( 937) /         0/
 
952
      data cmplist( 938) /         0/
 
953
      data cmplist( 939) /         0/
 
954
      data cmplist( 940) /         0/
 
955
      data cmplist( 941) /         0/
 
956
      data cmplist( 942) /         0/
 
957
      data cmplist( 943) /         0/
 
958
      data cmplist( 944) /         0/
 
959
      data cmplist( 945) /         0/
 
960
      data cmplist( 946) /         0/
 
961
      data cmplist( 947) /         0/
 
962
      data cmplist( 948) /         0/
 
963
      data cmplist( 949) /         0/
 
964
      data cmplist( 950) /         0/
 
965
      data cmplist( 951) /         0/
 
966
      data cmplist( 952) /         0/
 
967
      data cmplist( 953) /         0/
 
968
      data cmplist( 954) /         0/
 
969
      data cmplist( 955) /         0/
 
970
      data cmplist( 956) /         0/
 
971
      data cmplist( 957) /         0/
 
972
      data cmplist( 958) /         0/
 
973
      data cmplist( 959) /         0/
 
974
      data cmplist( 960) /         0/
 
975
      data cmplist( 961) /         0/
 
976
      data cmplist( 962) /         0/
 
977
      data cmplist( 963) /         0/
 
978
      data cmplist( 964) /         0/
 
979
      data cmplist( 965) /         0/
 
980
      data cmplist( 966) /         0/
 
981
      data cmplist( 967) /         0/
 
982
      data cmplist( 968) /         0/
 
983
      data cmplist( 969) /         0/
 
984
      data cmplist( 970) /         0/
 
985
      data cmplist( 971) /         0/
 
986
      data cmplist( 972) /         0/
 
987
      data cmplist( 973) /         0/
 
988
      data cmplist( 974) /         0/
 
989
      data cmplist( 975) /         0/
 
990
      data cmplist( 976) /         0/
 
991
      data cmplist( 977) /         0/
 
992
      data cmplist( 978) /         0/
 
993
      data cmplist( 979) /         0/
 
994
      data cmplist( 980) /         0/
 
995
      data cmplist( 981) /         0/
 
996
      data cmplist( 982) /         0/
 
997
      data cmplist( 983) /         0/
 
998
      data cmplist( 984) /         0/
 
999
      data cmplist( 985) /         0/
 
1000
      data cmplist( 986) /         0/
 
1001
      data cmplist( 987) /         0/
 
1002
      data cmplist( 988) /         0/
 
1003
      data cmplist( 989) /         0/
 
1004
      data cmplist( 990) /         0/
 
1005
      data cmplist( 991) /         0/
 
1006
      data cmplist( 992) /         0/
 
1007
      data cmplist( 993) /         0/
 
1008
      data cmplist( 994) /         0/
 
1009
      data cmplist( 995) /         0/
 
1010
      data cmplist( 996) /         0/
 
1011
      data cmplist( 997) /         0/
 
1012
      data cmplist( 998) /         0/
 
1013
      data cmplist( 999) /         0/
 
1014
      data cmplist(1000) /         0/
 
1015
      data cmplist(1001) /         0/
 
1016
      data cmplist(1002) /         0/
 
1017
      data cmplist(1003) /         0/
 
1018
      data cmplist(1004) /         0/
 
1019
      data cmplist(1005) /         0/
 
1020
      data cmplist(1006) /         0/
 
1021
      data cmplist(1007) /         0/
 
1022
      data cmplist(1008) /         0/
 
1023
      data cmplist(1009) /         0/
 
1024
      data cmplist(1010) /         0/
 
1025
      data cmplist(1011) /         0/
 
1026
      data cmplist(1012) /         0/
 
1027
      data cmplist(1013) /         0/
 
1028
      data cmplist(1014) /         0/
 
1029
      data cmplist(1015) /         0/
 
1030
      data cmplist(1016) /         0/
 
1031
      data cmplist(1017) /         0/
 
1032
      data cmplist(1018) /         0/
 
1033
      data cmplist(1019) /         0/
 
1034
      data cmplist(1020) /         0/
 
1035
      data cmplist(1021) /         0/
 
1036
      data cmplist(1022) /         0/
 
1037
      data cmplist(1023) /         0/
 
1038
      data cmplist(1024) /         0/
 
1039
      data cmplist(1025) /         0/
 
1040
      data cmplist(1026) /         0/
 
1041
      data cmplist(1027) /         0/
 
1042
      data cmplist(1028) /         0/
 
1043
      data cmplist(1029) /         0/
 
1044
      data cmplist(1030) /         0/
 
1045
      data cmplist(1031) /         0/
 
1046
      data cmplist(1032) /         0/
 
1047
      data cmplist(1033) /         0/
 
1048
      data cmplist(1034) /         0/
 
1049
      data cmplist(1035) /         0/
 
1050
      data cmplist(1036) /         0/
 
1051
      data cmplist(1037) /         0/
 
1052
      data cmplist(1038) /         0/
 
1053
      data cmplist(1039) /         0/
 
1054
      data cmplist(1040) /         0/
 
1055
      data cmplist(1041) /         0/
 
1056
      data cmplist(1042) /         0/
 
1057
      data cmplist(1043) /         0/
 
1058
      data cmplist(1044) /         0/
 
1059
      data cmplist(1045) /         0/
 
1060
      data cmplist(1046) /         0/
 
1061
      data cmplist(1047) /         0/
 
1062
      data cmplist(1048) /         0/
 
1063
      data cmplist(1049) /         0/
 
1064
      data cmplist(1050) /         0/
 
1065
      data cmplist(1051) /         0/
 
1066
      data cmplist(1052) /         0/
 
1067
      data cmplist(1053) /         0/
 
1068
      data cmplist(1054) /         0/
 
1069
      data cmplist(1055) /         0/
 
1070
      data cmplist(1056) /         0/
 
1071
      data cmplist(1057) /         0/
 
1072
      data cmplist(1058) /         0/
 
1073
      data cmplist(1059) /         0/
 
1074
      data cmplist(1060) /         0/
 
1075
      data cmplist(1061) /         0/
 
1076
      data cmplist(1062) /         0/
 
1077
      data cmplist(1063) /         0/
 
1078
      data cmplist(1064) /         0/
 
1079
      data cmplist(1065) /         0/
 
1080
      data cmplist(1066) /         0/
 
1081
      data cmplist(1067) /         0/
 
1082
      data cmplist(1068) /         0/
 
1083
      data cmplist(1069) /         0/
 
1084
      data cmplist(1070) /         0/
 
1085
      data cmplist(1071) /         0/
 
1086
      data cmplist(1072) /         0/
 
1087
      data cmplist(1073) /         0/
 
1088
      data cmplist(1074) /         0/
 
1089
      data cmplist(1075) /         0/
 
1090
      data cmplist(1076) /         0/
 
1091
      data cmplist(1077) /         0/
 
1092
      data cmplist(1078) /         0/
 
1093
      data cmplist(1079) /         0/
 
1094
      data cmplist(1080) /         0/
 
1095
      data cmplist(1081) /         0/
 
1096
      data cmplist(1082) /         0/
 
1097
      data cmplist(1083) /         0/
 
1098
      data cmplist(1084) /         0/
 
1099
      data cmplist(1085) /         0/
 
1100
      data cmplist(1086) /         0/
 
1101
      data cmplist(1087) /         0/
 
1102
      data cmplist(1088) /         0/
 
1103
      data cmplist(1089) /         0/
 
1104
      data cmplist(1090) /         0/
 
1105
      data cmplist(1091) /         0/
 
1106
      data cmplist(1092) /         0/
 
1107
      data cmplist(1093) /         0/
 
1108
      data cmplist(1094) /         0/
 
1109
      data cmplist(1095) /         0/
 
1110
      data cmplist(1096) /         0/
 
1111
      data cmplist(1097) /         0/
 
1112
      data cmplist(1098) /         0/
 
1113
      data cmplist(1099) /         0/
 
1114
      data cmplist(1100) /         0/
 
1115
      data cmplist(1101) /         0/
 
1116
      data cmplist(1102) /         0/
 
1117
      data cmplist(1103) /         0/
 
1118
      data cmplist(1104) /         0/
 
1119
      data cmplist(1105) /         0/
 
1120
      data cmplist(1106) /         0/
 
1121
      data cmplist(1107) /         0/
 
1122
      data cmplist(1108) /         0/
 
1123
      data cmplist(1109) /         0/
 
1124
      data cmplist(1110) /         0/
 
1125
      data cmplist(1111) /         0/
 
1126
      data cmplist(1112) /         0/
 
1127
      data cmplist(1113) /         0/
 
1128
      data cmplist(1114) /         0/
 
1129
      data cmplist(1115) /         0/
 
1130
      data cmplist(1116) /         0/
 
1131
      data cmplist(1117) /         0/
 
1132
      data cmplist(1118) /         0/
 
1133
      data cmplist(1119) /         0/
 
1134
      data cmplist(1120) /         0/
 
1135
      data cmplist(1121) /         0/
 
1136
      data cmplist(1122) /         0/
 
1137
      data cmplist(1123) /         0/
 
1138
      data cmplist(1124) /         0/
 
1139
      data cmplist(1125) /         0/
 
1140
      data cmplist(1126) /         0/
 
1141
      data cmplist(1127) /         0/
 
1142
      data cmplist(1128) /         0/
 
1143
      data cmplist(1129) /         0/
 
1144
      data cmplist(1130) /         0/
 
1145
      data cmplist(1131) /         0/
 
1146
      data cmplist(1132) /         0/
 
1147
      data cmplist(1133) /         0/
 
1148
      data cmplist(1134) /         0/
 
1149
      data cmplist(1135) /         0/
 
1150
      data cmplist(1136) /         0/
 
1151
      data cmplist(1137) /         0/
 
1152
      data cmplist(1138) /         0/
 
1153
      data cmplist(1139) /         0/
 
1154
      data cmplist(1140) /         0/
 
1155
      data cmplist(1141) /         0/
 
1156
      data cmplist(1142) /         0/
 
1157
      data cmplist(1143) /         0/
 
1158
      data cmplist(1144) /         0/
 
1159
      data cmplist(1145) /         0/
 
1160
      data cmplist(1146) /         0/
 
1161
      data cmplist(1147) /         0/
 
1162
      data cmplist(1148) /         0/
 
1163
      data cmplist(1149) /         0/
 
1164
      data cmplist(1150) /         0/
 
1165
      data cmplist(1151) /         0/
 
1166
      data cmplist(1152) /         0/
 
1167
      data cmplist(1153) /         0/
 
1168
      data cmplist(1154) /         0/
 
1169
      data cmplist(1155) /         0/
 
1170
      data cmplist(1156) /         0/
 
1171
      data cmplist(1157) /         0/
 
1172
      data cmplist(1158) /         0/
 
1173
      data cmplist(1159) /         0/
 
1174
      data cmplist(1160) /         0/
 
1175
      data cmplist(1161) /         0/
 
1176
      data cmplist(1162) /         0/
 
1177
      data cmplist(1163) /         0/
 
1178
      data cmplist(1164) /         0/
 
1179
      data cmplist(1165) /         0/
 
1180
      data cmplist(1166) /         0/
 
1181
      data cmplist(1167) /         0/
 
1182
      data cmplist(1168) /         0/
 
1183
      data cmplist(1169) /         0/
 
1184
      data cmplist(1170) /         0/
 
1185
      data cmplist(1171) /         0/
 
1186
      data cmplist(1172) /         0/
 
1187
      data cmplist(1173) /         0/
 
1188
      data cmplist(1174) /         0/
 
1189
      data cmplist(1175) /         0/
 
1190
      data cmplist(1176) /         0/
 
1191
      data cmplist(1177) /         0/
 
1192
      data cmplist(1178) /         0/
 
1193
      data cmplist(1179) /         0/
 
1194
      data cmplist(1180) /         0/
 
1195
      data cmplist(1181) /         0/
 
1196
      data cmplist(1182) /         0/
 
1197
      data cmplist(1183) /         0/
 
1198
      data cmplist(1184) /         0/
 
1199
      data cmplist(1185) /         0/
 
1200
      data cmplist(1186) /         0/
 
1201
      data cmplist(1187) /         0/
 
1202
      data cmplist(1188) /         0/
 
1203
      data cmplist(1189) /         0/
 
1204
      data cmplist(1190) /         0/
 
1205
      data cmplist(1191) /         0/
 
1206
      data cmplist(1192) /         0/
 
1207
      data cmplist(1193) /         0/
 
1208
      data cmplist(1194) /         0/
 
1209
      data cmplist(1195) /         0/
 
1210
      data cmplist(1196) /         0/
 
1211
      data cmplist(1197) /         0/
 
1212
      data cmplist(1198) /         0/
 
1213
      data cmplist(1199) /         0/
 
1214
      data cmplist(1200) /         0/
 
1215
      data cmplist(1201) /         0/
 
1216
      data cmplist(1202) /         0/
 
1217
      data cmplist(1203) /         0/
 
1218
      data cmplist(1204) /         0/
 
1219
      data cmplist(1205) /         0/
 
1220
      data cmplist(1206) /         0/
 
1221
      data cmplist(1207) /         0/
 
1222
      data cmplist(1208) /         0/
 
1223
      data cmplist(1209) /         0/
 
1224
      data cmplist(1210) /         0/
 
1225
      data cmplist(1211) /         0/
 
1226
      data cmplist(1212) /         0/
 
1227
      data cmplist(1213) /         0/
 
1228
      data cmplist(1214) /         0/
 
1229
      data cmplist(1215) /         0/
 
1230
      data cmplist(1216) /         0/
 
1231
      data cmplist(1217) /         0/
 
1232
      data cmplist(1218) /         0/
 
1233
      data cmplist(1219) /         0/
 
1234
      data cmplist(1220) /         0/
 
1235
      data cmplist(1221) /         0/
 
1236
      data cmplist(1222) /         0/
 
1237
      data cmplist(1223) /         0/
 
1238
      data cmplist(1224) /         0/
 
1239
      data cmplist(1225) /         0/
 
1240
      data cmplist(1226) /         0/
 
1241
      data cmplist(1227) /         0/
 
1242
      data cmplist(1228) /         0/
 
1243
      data cmplist(1229) /         0/
 
1244
      data cmplist(1230) /         0/
 
1245
      data cmplist(1231) /         0/
 
1246
      data cmplist(1232) /         0/
 
1247
      data cmplist(1233) /         0/
 
1248
      data cmplist(1234) /         0/
 
1249
      data cmplist(1235) /         0/
 
1250
      data cmplist(1236) /         0/
 
1251
      data cmplist(1237) /         0/
 
1252
      data cmplist(1238) /         0/
 
1253
      data cmplist(1239) /         0/
 
1254
      data cmplist(1240) /         0/
 
1255
      data cmplist(1241) /         0/
 
1256
      data cmplist(1242) /         0/
 
1257
      data cmplist(1243) /         0/
 
1258
      data cmplist(1244) /         0/
 
1259
      data cmplist(1245) /         0/
 
1260
      data cmplist(1246) /         0/
 
1261
      data cmplist(1247) /         0/
 
1262
      data cmplist(1248) /         0/
 
1263
      data cmplist(1249) /         0/
 
1264
      data cmplist(1250) /         0/
 
1265
      data cmplist(1251) /         0/
 
1266
      data cmplist(1252) /         0/
 
1267
      data cmplist(1253) /         0/
 
1268
      data cmplist(1254) /         0/
 
1269
      data cmplist(1255) /         0/
 
1270
      data cmplist(1256) /         0/
 
1271
      data cmplist(1257) /         0/
 
1272
      data cmplist(1258) /         0/
 
1273
      data cmplist(1259) /         0/
 
1274
      data cmplist(1260) /         0/
 
1275
      data cmplist(1261) /         0/
 
1276
      data cmplist(1262) /         0/
 
1277
      data cmplist(1263) /         0/
 
1278
      data cmplist(1264) /         0/
 
1279
      data cmplist(1265) /         0/
 
1280
      data cmplist(1266) /         0/
 
1281
      data cmplist(1267) /         0/
 
1282
      data cmplist(1268) /         0/
 
1283
      data cmplist(1269) /         0/
 
1284
      data cmplist(1270) /         0/
 
1285
      data cmplist(1271) /         0/
 
1286
      data cmplist(1272) /         0/
 
1287
      data cmplist(1273) /         0/
 
1288
      data cmplist(1274) /         0/
 
1289
      data cmplist(1275) /         0/
 
1290
      data cmplist(1276) /         0/
 
1291
      data cmplist(1277) /         0/
 
1292
      data cmplist(1278) /         0/
 
1293
      data cmplist(1279) /         0/
 
1294
      data cmplist(1280) /         0/
 
1295
      data cmplist(1281) /         0/
 
1296
      data cmplist(1282) /         0/
 
1297
      data cmplist(1283) /         0/
 
1298
      data cmplist(1284) /         0/
 
1299
      data cmplist(1285) /         0/
 
1300
      data cmplist(1286) /         0/
 
1301
      data cmplist(1287) /         0/
 
1302
      data cmplist(1288) /         0/
 
1303
      data cmplist(1289) /         0/
 
1304
      data cmplist(1290) /         0/
 
1305
      data cmplist(1291) /         0/
 
1306
      data cmplist(1292) /         0/
 
1307
      data cmplist(1293) /         0/
 
1308
      data cmplist(1294) /         0/
 
1309
      data cmplist(1295) /         0/
 
1310
      data cmplist(1296) /         0/
 
1311
      data cmplist(1297) /         0/
 
1312
      data cmplist(1298) /         0/
 
1313
      data cmplist(1299) /         0/
 
1314
      data cmplist(1300) /         0/
 
1315
      data cmplist(1301) /         0/
 
1316
      data cmplist(1302) /         0/
 
1317
      data cmplist(1303) /         0/
 
1318
      data cmplist(1304) /         0/
 
1319
      data cmplist(1305) /         0/
 
1320
      data cmplist(1306) /         0/
 
1321
      data cmplist(1307) /         0/
 
1322
      data cmplist(1308) /         0/
 
1323
      data cmplist(1309) /         0/
 
1324
      data cmplist(1310) /         0/
 
1325
      data cmplist(1311) /         0/
 
1326
      data cmplist(1312) /         0/
 
1327
      data cmplist(1313) /         0/
 
1328
      data cmplist(1314) /         0/
 
1329
      data cmplist(1315) /         0/
 
1330
      data cmplist(1316) /         0/
 
1331
      data cmplist(1317) /         0/
 
1332
      data cmplist(1318) /         0/
 
1333
      data cmplist(1319) /         0/
 
1334
      data cmplist(1320) /         0/
 
1335
      data cmplist(1321) /         0/
 
1336
      data cmplist(1322) /         0/
 
1337
      data cmplist(1323) /         0/
 
1338
      data cmplist(1324) /         0/
 
1339
      data cmplist(1325) /         0/
 
1340
      data cmplist(1326) /         0/
 
1341
      data cmplist(1327) /         0/
 
1342
      data cmplist(1328) /         0/
 
1343
      data cmplist(1329) /         0/
 
1344
      data cmplist(1330) /         0/
 
1345
      data cmplist(1331) /         0/
 
1346
      data cmplist(1332) /         0/
 
1347
      data cmplist(1333) /         0/
 
1348
      data cmplist(1334) /         0/
 
1349
      data cmplist(1335) /         0/
 
1350
      data cmplist(1336) /         0/
 
1351
      data cmplist(1337) /         0/
 
1352
      data cmplist(1338) /         0/
 
1353
      data cmplist(1339) /         0/
 
1354
      data cmplist(1340) /         0/
 
1355
      data cmplist(1341) /         0/
 
1356
      data cmplist(1342) /         0/
 
1357
      data cmplist(1343) /         0/
 
1358
      data cmplist(1344) /         0/
 
1359
      data cmplist(1345) /         0/
 
1360
      data cmplist(1346) /         0/
 
1361
      data cmplist(1347) /         0/
 
1362
      data cmplist(1348) /         0/
 
1363
      data cmplist(1349) /         0/
 
1364
      data cmplist(1350) /         0/
 
1365
      data cmplist(1351) /         0/
 
1366
      data cmplist(1352) /         0/
 
1367
      data cmplist(1353) /         0/
 
1368
      data cmplist(1354) /         0/
 
1369
      data cmplist(1355) /         0/
 
1370
      data cmplist(1356) /         0/
 
1371
      data cmplist(1357) /         0/
 
1372
      data cmplist(1358) /         0/
 
1373
      data cmplist(1359) /         0/
 
1374
      data cmplist(1360) /         0/
 
1375
      data cmplist(1361) /         0/
 
1376
      data cmplist(1362) /         0/
 
1377
      data cmplist(1363) /         0/
 
1378
      data cmplist(1364) /         0/
 
1379
      data cmplist(1365) /         0/
 
1380
      data cmplist(1366) /         0/
 
1381
      data cmplist(1367) /         0/
 
1382
      data cmplist(1368) /         0/
 
1383
      data cmplist(1369) /         0/
 
1384
      data cmplist(1370) /         0/
 
1385
      data cmplist(1371) /         0/
 
1386
      data cmplist(1372) /         0/
 
1387
      data cmplist(1373) /         0/
 
1388
      data cmplist(1374) /         0/
 
1389
      data cmplist(1375) /         0/
 
1390
      data cmplist(1376) /         0/
 
1391
      data cmplist(1377) /         0/
 
1392
      data cmplist(1378) /         0/
 
1393
      data cmplist(1379) /         0/
 
1394
      data cmplist(1380) /         0/
 
1395
      data cmplist(1381) /         0/
 
1396
      data cmplist(1382) /         0/
 
1397
      data cmplist(1383) /         0/
 
1398
      data cmplist(1384) /         0/
 
1399
      data cmplist(1385) /         0/
 
1400
      data cmplist(1386) /         0/
 
1401
      data cmplist(1387) /         0/
 
1402
      data cmplist(1388) /         0/
 
1403
      data cmplist(1389) /         0/
 
1404
      data cmplist(1390) /         0/
 
1405
      data cmplist(1391) /         0/
 
1406
      data cmplist(1392) /         0/
 
1407
      data cmplist(1393) /         0/
 
1408
      data cmplist(1394) /         0/
 
1409
      data cmplist(1395) /         0/
 
1410
      data cmplist(1396) /         0/
 
1411
      data cmplist(1397) /         0/
 
1412
      data cmplist(1398) /         0/
 
1413
      data cmplist(1399) /         0/
 
1414
      data cmplist(1400) /         0/
 
1415
      data cmplist(1401) /         0/
 
1416
      data cmplist(1402) /         0/
 
1417
      data cmplist(1403) /         0/
 
1418
      data cmplist(1404) /         0/
 
1419
      data cmplist(1405) /         0/
 
1420
      data cmplist(1406) /         0/
 
1421
      data cmplist(1407) /         0/
 
1422
      data cmplist(1408) /         0/
 
1423
      data cmplist(1409) /         0/
 
1424
      data cmplist(1410) /         0/
 
1425
      data cmplist(1411) /         0/
 
1426
      data cmplist(1412) /         0/
 
1427
      data cmplist(1413) /         0/
 
1428
      data cmplist(1414) /         0/
 
1429
      data cmplist(1415) /         0/
 
1430
      data cmplist(1416) /         0/
 
1431
      data cmplist(1417) /         0/
 
1432
      data cmplist(1418) /         0/
 
1433
      data cmplist(1419) /         0/
 
1434
      data cmplist(1420) /         0/
 
1435
      data cmplist(1421) /         0/
 
1436
      data cmplist(1422) /         0/
 
1437
      data cmplist(1423) /         0/
 
1438
      data cmplist(1424) /         0/
 
1439
      data cmplist(1425) /         0/
 
1440
      data cmplist(1426) /         0/
 
1441
      data cmplist(1427) /         0/
 
1442
      data cmplist(1428) /         0/
 
1443
      data cmplist(1429) /         0/
 
1444
      data cmplist(1430) /         0/
 
1445
      data cmplist(1431) /         0/
 
1446
      data cmplist(1432) /         0/
 
1447
      data cmplist(1433) /         0/
 
1448
      data cmplist(1434) /         0/
 
1449
      data cmplist(1435) /         0/
 
1450
      data cmplist(1436) /         0/
 
1451
      data cmplist(1437) /         0/
 
1452
      data cmplist(1438) /         0/
 
1453
      data cmplist(1439) /         0/
 
1454
      data cmplist(1440) /         0/
 
1455
      data cmplist(1441) /         0/
 
1456
      data cmplist(1442) /         0/
 
1457
      data cmplist(1443) /         0/
 
1458
      data cmplist(1444) /         0/
 
1459
      data cmplist(1445) /         0/
 
1460
      data cmplist(1446) /         0/
 
1461
      data cmplist(1447) /         0/
 
1462
      data cmplist(1448) /         0/
 
1463
      data cmplist(1449) /         0/
 
1464
      data cmplist(1450) /         0/
 
1465
      data cmplist(1451) /         0/
 
1466
      data cmplist(1452) /         0/
 
1467
      data cmplist(1453) /         0/
 
1468
      data cmplist(1454) /         0/
 
1469
      data cmplist(1455) /         0/
 
1470
      data cmplist(1456) /         0/
 
1471
      data cmplist(1457) /         0/
 
1472
      data cmplist(1458) /         0/
 
1473
      data cmplist(1459) /         0/
 
1474
      data cmplist(1460) /         0/
 
1475
      data cmplist(1461) /         0/
 
1476
      data cmplist(1462) /         0/
 
1477
      data cmplist(1463) /         0/
 
1478
      data cmplist(1464) /         0/
 
1479
      data cmplist(1465) /         0/
 
1480
      data cmplist(1466) /         0/
 
1481
      data cmplist(1467) /         0/
 
1482
      data cmplist(1468) /         0/
 
1483
      data cmplist(1469) /         0/
 
1484
      data cmplist(1470) /         0/
 
1485
      data cmplist(1471) /         0/
 
1486
      data cmplist(1472) /         0/
 
1487
      data cmplist(1473) /         0/
 
1488
      data cmplist(1474) /         0/
 
1489
      data cmplist(1475) /         0/
 
1490
      data cmplist(1476) /         0/
 
1491
      data cmplist(1477) /         0/
 
1492
      data cmplist(1478) /         0/
 
1493
      data cmplist(1479) /         0/
 
1494
      data cmplist(1480) /         0/
 
1495
      data cmplist(1481) /         0/
 
1496
      data cmplist(1482) /         0/
 
1497
      data cmplist(1483) /         0/
 
1498
      data cmplist(1484) /         0/
 
1499
      data cmplist(1485) /         0/
 
1500
      data cmplist(1486) /         0/
 
1501
      data cmplist(1487) /         0/
 
1502
      data cmplist(1488) /         0/
 
1503
      data cmplist(1489) /         0/
 
1504
      data cmplist(1490) /         0/
 
1505
      data cmplist(1491) /         0/
 
1506
      data cmplist(1492) /         0/
 
1507
      data cmplist(1493) /         0/
 
1508
      data cmplist(1494) /         0/
 
1509
      data cmplist(1495) /         0/
 
1510
      data cmplist(1496) /         0/
 
1511
      data cmplist(1497) /         0/
 
1512
      data cmplist(1498) /         0/
 
1513
      data cmplist(1499) /         0/
 
1514
      data cmplist(1500) /         0/
 
1515
      data cmplist(1501) /         0/
 
1516
      data cmplist(1502) /         0/
 
1517
      data cmplist(1503) /         0/
 
1518
      data cmplist(1504) /         0/
 
1519
      data cmplist(1505) /         0/
 
1520
      data cmplist(1506) /         0/
 
1521
      data cmplist(1507) /         0/
 
1522
      data cmplist(1508) /         0/
 
1523
      data cmplist(1509) /         0/
 
1524
      data cmplist(1510) /         0/
 
1525
      data cmplist(1511) /         0/
 
1526
      data cmplist(1512) /         0/
 
1527
      data cmplist(1513) /         0/
 
1528
      data cmplist(1514) /         0/
 
1529
      data cmplist(1515) /         0/
 
1530
      data cmplist(1516) /         0/
 
1531
      data cmplist(1517) /         0/
 
1532
      data cmplist(1518) /         0/
 
1533
      data cmplist(1519) /         0/
 
1534
      data cmplist(1520) /         0/
 
1535
      data cmplist(1521) /         0/
 
1536
      data cmplist(1522) /         0/
 
1537
      data cmplist(1523) /         0/
 
1538
      data cmplist(1524) /         0/
 
1539
      data cmplist(1525) /         0/
 
1540
      data cmplist(1526) /         0/
 
1541
      data cmplist(1527) /         0/
 
1542
      data cmplist(1528) /         0/
 
1543
      data cmplist(1529) /         0/
 
1544
      data cmplist(1530) /         0/
 
1545
      data cmplist(1531) /         0/
 
1546
      data cmplist(1532) /         0/
 
1547
      data cmplist(1533) /         0/
 
1548
      data cmplist(1534) /         0/
 
1549
      data cmplist(1535) /         0/
 
1550
      data cmplist(1536) /         0/
 
1551
      data cmplist(1537) /         0/
 
1552
      data cmplist(1538) /         0/
 
1553
      data cmplist(1539) /         0/
 
1554
      data cmplist(1540) /         0/
 
1555
      data cmplist(1541) /         0/
 
1556
      data cmplist(1542) /         0/
 
1557
      data cmplist(1543) /         0/
 
1558
      data cmplist(1544) /         0/
 
1559
      data cmplist(1545) /         0/
 
1560
      data cmplist(1546) /         0/
 
1561
      data cmplist(1547) /         0/
 
1562
      data cmplist(1548) /         0/
 
1563
      data cmplist(1549) /         0/
 
1564
      data cmplist(1550) /         0/
 
1565
      data cmplist(1551) /         0/
 
1566
      data cmplist(1552) /         0/
 
1567
      data cmplist(1553) /         0/
 
1568
      data cmplist(1554) /         0/
 
1569
      data cmplist(1555) /         0/
 
1570
      data cmplist(1556) /         0/
 
1571
      data cmplist(1557) /         0/
 
1572
      data cmplist(1558) /         0/
 
1573
      data cmplist(1559) /         0/
 
1574
      data cmplist(1560) /         0/
 
1575
      data cmplist(1561) /         0/
 
1576
      data cmplist(1562) /         0/
 
1577
      data cmplist(1563) /         0/
 
1578
      data cmplist(1564) /         0/
 
1579
      data cmplist(1565) /         0/
 
1580
      data cmplist(1566) /         0/
 
1581
      data cmplist(1567) /         0/
 
1582
      data cmplist(1568) /         0/
 
1583
      data cmplist(1569) /         0/
 
1584
      data cmplist(1570) /         0/
 
1585
      data cmplist(1571) /         0/
 
1586
      data cmplist(1572) /         0/
 
1587
      data cmplist(1573) /         0/
 
1588
      data cmplist(1574) /         0/
 
1589
      data cmplist(1575) /         0/
 
1590
      data cmplist(1576) /         0/
 
1591
      data cmplist(1577) /         0/
 
1592
      data cmplist(1578) /         0/
 
1593
      data cmplist(1579) /         0/
 
1594
      data cmplist(1580) /         0/
 
1595
      data cmplist(1581) /         0/
 
1596
      data cmplist(1582) /         0/
 
1597
      data cmplist(1583) /         0/
 
1598
      data cmplist(1584) /         0/
 
1599
      data cmplist(1585) /         0/
 
1600
      data cmplist(1586) /         0/
 
1601
      data cmplist(1587) /         0/
 
1602
      data cmplist(1588) /         0/
 
1603
      data cmplist(1589) /         0/
 
1604
      data cmplist(1590) /         0/
 
1605
      data cmplist(1591) /         0/
 
1606
      data cmplist(1592) /         0/
 
1607
      data cmplist(1593) /         0/
 
1608
      data cmplist(1594) /         0/
 
1609
      data cmplist(1595) /         0/
 
1610
      data cmplist(1596) /         0/
 
1611
      data cmplist(1597) /         0/
 
1612
      data cmplist(1598) /         0/
 
1613
      data cmplist(1599) /         0/
 
1614
      data cmplist(1600) /         0/
 
1615
      data cmplist(1601) /         0/
 
1616
      data cmplist(1602) /         0/
 
1617
      data cmplist(1603) /         0/
 
1618
      data cmplist(1604) /         0/
 
1619
      data cmplist(1605) /         0/
 
1620
      data cmplist(1606) /         0/
 
1621
      data cmplist(1607) /         0/
 
1622
      data cmplist(1608) /         0/
 
1623
      data cmplist(1609) /         0/
 
1624
      data cmplist(1610) /         0/
 
1625
      data cmplist(1611) /         0/
 
1626
      data cmplist(1612) /         0/
 
1627
      data cmplist(1613) /         0/
 
1628
      data cmplist(1614) /         0/
 
1629
      data cmplist(1615) /         0/
 
1630
      data cmplist(1616) /         0/
 
1631
      data cmplist(1617) /         0/
 
1632
      data cmplist(1618) /         0/
 
1633
      data cmplist(1619) /         0/
 
1634
      data cmplist(1620) /         0/
 
1635
      data cmplist(1621) /         0/
 
1636
      data cmplist(1622) /         0/
 
1637
      data cmplist(1623) /         0/
 
1638
      data cmplist(1624) /         0/
 
1639
      data cmplist(1625) /         0/
 
1640
      data cmplist(1626) /         0/
 
1641
      data cmplist(1627) /         0/
 
1642
      data cmplist(1628) /         0/
 
1643
      data cmplist(1629) /         0/
 
1644
      data cmplist(1630) /         0/
 
1645
      data cmplist(1631) /         0/
 
1646
      data cmplist(1632) /         0/
 
1647
      data cmplist(1633) /         0/
 
1648
      data cmplist(1634) /         0/
 
1649
      data cmplist(1635) /         0/
 
1650
      data cmplist(1636) /         0/
 
1651
      data cmplist(1637) /         0/
 
1652
      data cmplist(1638) /         0/
 
1653
      data cmplist(1639) /         0/
 
1654
      data cmplist(1640) /         0/
 
1655
      data cmplist(1641) /         0/
 
1656
      data cmplist(1642) /         0/
 
1657
      data cmplist(1643) /         0/
 
1658
      data cmplist(1644) /         0/
 
1659
      data cmplist(1645) /         0/
 
1660
      data cmplist(1646) /         0/
 
1661
      data cmplist(1647) /         0/
 
1662
      data cmplist(1648) /         0/
 
1663
      data cmplist(1649) /         0/
 
1664
      data cmplist(1650) /         0/
 
1665
      data cmplist(1651) /         0/
 
1666
      data cmplist(1652) /         0/
 
1667
      data cmplist(1653) /         0/
 
1668
      data cmplist(1654) /         0/
 
1669
      data cmplist(1655) /         0/
 
1670
      data cmplist(1656) /         0/
 
1671
      data cmplist(1657) /         0/
 
1672
      data cmplist(1658) /         0/
 
1673
      data cmplist(1659) /         0/
 
1674
      data cmplist(1660) /         0/
 
1675
      data cmplist(1661) /         0/
 
1676
      data cmplist(1662) /         0/
 
1677
      data cmplist(1663) /         0/
 
1678
      data cmplist(1664) /         0/
 
1679
      data cmplist(1665) /         0/
 
1680
      data cmplist(1666) /         0/
 
1681
      data cmplist(1667) /         0/
 
1682
      data cmplist(1668) /         0/
 
1683
      data cmplist(1669) /         0/
 
1684
      data cmplist(1670) /         0/
 
1685
      data cmplist(1671) /         0/
 
1686
      data cmplist(1672) /         0/
 
1687
      data cmplist(1673) /         0/
 
1688
      data cmplist(1674) /         0/
 
1689
      data cmplist(1675) /         0/
 
1690
      data cmplist(1676) /         0/
 
1691
      data cmplist(1677) /         0/
 
1692
      data cmplist(1678) /         0/
 
1693
      data cmplist(1679) /         0/
 
1694
      data cmplist(1680) /         0/
 
1695
      data cmplist(1681) /         0/
 
1696
      data cmplist(1682) /         0/
 
1697
      data cmplist(1683) /         0/
 
1698
      data cmplist(1684) /         0/
 
1699
      data cmplist(1685) /         0/
 
1700
      data cmplist(1686) /         0/
 
1701
      data cmplist(1687) /         0/
 
1702
      data cmplist(1688) /         0/
 
1703
      data cmplist(1689) /         0/
 
1704
      data cmplist(1690) /         0/
 
1705
      data cmplist(1691) /         0/
 
1706
      data cmplist(1692) /         0/
 
1707
      data cmplist(1693) /         0/
 
1708
      data cmplist(1694) /         0/
 
1709
      data cmplist(1695) /         0/
 
1710
      data cmplist(1696) /         0/
 
1711
      data cmplist(1697) /         0/
 
1712
      data cmplist(1698) /         0/
 
1713
      data cmplist(1699) /         0/
 
1714
      data cmplist(1700) /         0/
 
1715
      data cmplist(1701) /         0/
 
1716
      data cmplist(1702) /         0/
 
1717
      data cmplist(1703) /         0/
 
1718
      data cmplist(1704) /         0/
 
1719
      data cmplist(1705) /         0/
 
1720
      data cmplist(1706) /         0/
 
1721
      data cmplist(1707) /         0/
 
1722
      data cmplist(1708) /         0/
 
1723
      data cmplist(1709) /         0/
 
1724
      data cmplist(1710) /         0/
 
1725
      data cmplist(1711) /         0/
 
1726
      data cmplist(1712) /         0/
 
1727
      data cmplist(1713) /         0/
 
1728
      data cmplist(1714) /         0/
 
1729
      data cmplist(1715) /         0/
 
1730
      data cmplist(1716) /         0/
 
1731
      data cmplist(1717) /         0/
 
1732
      data cmplist(1718) /         0/
 
1733
      data cmplist(1719) /         0/
 
1734
      data cmplist(1720) /         0/
 
1735
      data cmplist(1721) /         0/
 
1736
      data cmplist(1722) /         0/
 
1737
      data cmplist(1723) /         0/
 
1738
      data cmplist(1724) /         0/
 
1739
      data cmplist(1725) /         0/
 
1740
      data cmplist(1726) /         0/
 
1741
      data cmplist(1727) /         0/
 
1742
      data cmplist(1728) /         0/
 
1743
      data cmplist(1729) /         0/
 
1744
      data cmplist(1730) /         0/
 
1745
      data cmplist(1731) /         0/
 
1746
      data cmplist(1732) /         0/
 
1747
      data cmplist(1733) /         0/
 
1748
      data cmplist(1734) /         0/
 
1749
      data cmplist(1735) /         0/
 
1750
      data cmplist(1736) /         0/
 
1751
      data cmplist(1737) /         0/
 
1752
      data cmplist(1738) /         0/
 
1753
      data cmplist(1739) /         0/
 
1754
      data cmplist(1740) /         0/
 
1755
      data cmplist(1741) /         0/
 
1756
      data cmplist(1742) /         0/
 
1757
      data cmplist(1743) /         0/
 
1758
      data cmplist(1744) /         0/
 
1759
      data cmplist(1745) /         0/
 
1760
      data cmplist(1746) /         0/
 
1761
      data cmplist(1747) /         0/
 
1762
      data cmplist(1748) /         0/
 
1763
      data cmplist(1749) /         0/
 
1764
      data cmplist(1750) /         0/
 
1765
      data cmplist(1751) /         0/
 
1766
      data cmplist(1752) /         0/
 
1767
      data cmplist(1753) /         0/
 
1768
      data cmplist(1754) /         0/
 
1769
      data cmplist(1755) /         0/
 
1770
      data cmplist(1756) /         0/
 
1771
      data cmplist(1757) /         0/
 
1772
      data cmplist(1758) /         0/
 
1773
      data cmplist(1759) /         0/
 
1774
      data cmplist(1760) /         0/
 
1775
      data cmplist(1761) /         0/
 
1776
      data cmplist(1762) /         0/
 
1777
      data cmplist(1763) /         0/
 
1778
      data cmplist(1764) /         0/
 
1779
      data cmplist(1765) /         0/
 
1780
      data cmplist(1766) /         0/
 
1781
      data cmplist(1767) /         0/
 
1782
      data cmplist(1768) /         0/
 
1783
      data cmplist(1769) /         0/
 
1784
      data cmplist(1770) /         0/
 
1785
      data cmplist(1771) /         0/
 
1786
      data cmplist(1772) /         0/
 
1787
      data cmplist(1773) /         0/
 
1788
      data cmplist(1774) /         0/
 
1789
      data cmplist(1775) /         0/
 
1790
      data cmplist(1776) /         0/
 
1791
      data cmplist(1777) /         0/
 
1792
      data cmplist(1778) /         0/
 
1793
      data cmplist(1779) /         0/
 
1794
      data cmplist(1780) /         0/
 
1795
      data cmplist(1781) /         0/
 
1796
      data cmplist(1782) /         0/
 
1797
      data cmplist(1783) /         0/
 
1798
      data cmplist(1784) /         0/
 
1799
      data cmplist(1785) /         0/
 
1800
      data cmplist(1786) /         0/
 
1801
      data cmplist(1787) /         0/
 
1802
      data cmplist(1788) /         0/
 
1803
      data cmplist(1789) /         0/
 
1804
      data cmplist(1790) /         0/
 
1805
      data cmplist(1791) /         0/
 
1806
      data cmplist(1792) /         0/
 
1807
      data cmplist(1793) /         0/
 
1808
      data cmplist(1794) /         0/
 
1809
      data cmplist(1795) /         0/
 
1810
      data cmplist(1796) /         0/
 
1811
      data cmplist(1797) /         0/
 
1812
      data cmplist(1798) /         0/
 
1813
      data cmplist(1799) /         0/
 
1814
      data cmplist(1800) /         0/
 
1815
      data cmplist(1801) /         0/
 
1816
      data cmplist(1802) /         0/
 
1817
      data cmplist(1803) /         0/
 
1818
      data cmplist(1804) /         0/
 
1819
      data cmplist(1805) /         0/
 
1820
      data cmplist(1806) /         0/
 
1821
      data cmplist(1807) /         0/
 
1822
      data cmplist(1808) /         0/
 
1823
      data cmplist(1809) /         0/
 
1824
      data cmplist(1810) /         0/
 
1825
      data cmplist(1811) /         0/
 
1826
      data cmplist(1812) /         0/
 
1827
      data cmplist(1813) /         0/
 
1828
      data cmplist(1814) /         0/
 
1829
      data cmplist(1815) /         0/
 
1830
      data cmplist(1816) /         0/
 
1831
      data cmplist(1817) /         0/
 
1832
      data cmplist(1818) /         0/
 
1833
      data cmplist(1819) /         0/
 
1834
      data cmplist(1820) /         0/
 
1835
      data cmplist(1821) /         0/
 
1836
      data cmplist(1822) /         0/
 
1837
      data cmplist(1823) /         0/
 
1838
      data cmplist(1824) /         0/
 
1839
      data cmplist(1825) /         0/
 
1840
      data cmplist(1826) /         0/
 
1841
      data cmplist(1827) /         0/
 
1842
      data cmplist(1828) /         0/
 
1843
      data cmplist(1829) /         0/
 
1844
      data cmplist(1830) /         0/
 
1845
      data cmplist(1831) /         0/
 
1846
      data cmplist(1832) /         0/
 
1847
      data cmplist(1833) /         0/
 
1848
      data cmplist(1834) /         0/
 
1849
      data cmplist(1835) /         0/
 
1850
      data cmplist(1836) /         0/
 
1851
      data cmplist(1837) /         0/
 
1852
      data cmplist(1838) /         0/
 
1853
      data cmplist(1839) /         0/
 
1854
      data cmplist(1840) /         0/
 
1855
      data cmplist(1841) /         0/
 
1856
      data cmplist(1842) /         0/
 
1857
      data cmplist(1843) /         0/
 
1858
      data cmplist(1844) /         0/
 
1859
      data cmplist(1845) /         0/
 
1860
      data cmplist(1846) /         0/
 
1861
      data cmplist(1847) /         0/
 
1862
      data cmplist(1848) /         0/
 
1863
      data cmplist(1849) /         0/
 
1864
      data cmplist(1850) /         0/
 
1865
      data cmplist(1851) /         0/
 
1866
      data cmplist(1852) /         0/
 
1867
      data cmplist(1853) /         0/
 
1868
      data cmplist(1854) /         0/
 
1869
      data cmplist(1855) /         0/
 
1870
      data cmplist(1856) /         0/
 
1871
      data cmplist(1857) /         0/
 
1872
      data cmplist(1858) /         0/
 
1873
      data cmplist(1859) /         0/
 
1874
      data cmplist(1860) /         0/
 
1875
      data cmplist(1861) /         0/
 
1876
      data cmplist(1862) /         0/
 
1877
      data cmplist(1863) /         0/
 
1878
      data cmplist(1864) /         0/
 
1879
      data cmplist(1865) /         0/
 
1880
      data cmplist(1866) /         0/
 
1881
      data cmplist(1867) /         0/
 
1882
      data cmplist(1868) /         0/
 
1883
      data cmplist(1869) /         0/
 
1884
      data cmplist(1870) /         0/
 
1885
      data cmplist(1871) /         0/
 
1886
      data cmplist(1872) /         0/
 
1887
      data cmplist(1873) /         0/
 
1888
      data cmplist(1874) /         0/
 
1889
      data cmplist(1875) /         0/
 
1890
      data cmplist(1876) /         0/
 
1891
      data cmplist(1877) /         0/
 
1892
      data cmplist(1878) /         0/
 
1893
      data cmplist(1879) /         0/
 
1894
      data cmplist(1880) /         0/
 
1895
      data cmplist(1881) /         0/
 
1896
      data cmplist(1882) /         0/
 
1897
      data cmplist(1883) /         0/
 
1898
      data cmplist(1884) /         0/
 
1899
      data cmplist(1885) /         0/
 
1900
      data cmplist(1886) /         0/
 
1901
      data cmplist(1887) /         0/
 
1902
      data cmplist(1888) /         0/
 
1903
      data cmplist(1889) /         0/
 
1904
      data cmplist(1890) /         0/
 
1905
      data cmplist(1891) /         0/
 
1906
      data cmplist(1892) /         0/
 
1907
      data cmplist(1893) /         0/
 
1908
      data cmplist(1894) /         0/
 
1909
      data cmplist(1895) /         0/
 
1910
      data cmplist(1896) /         0/
 
1911
      data cmplist(1897) /         0/
 
1912
      data cmplist(1898) /         0/
 
1913
      data cmplist(1899) /         0/
 
1914
      data cmplist(1900) /         0/
 
1915
      data cmplist(1901) /         0/
 
1916
      data cmplist(1902) /         0/
 
1917
      data cmplist(1903) /         0/
 
1918
      data cmplist(1904) /         0/
 
1919
      data cmplist(1905) /         0/
 
1920
      data cmplist(1906) /         0/
 
1921
      data cmplist(1907) /         0/
 
1922
      data cmplist(1908) /         0/
 
1923
      data cmplist(1909) /         0/
 
1924
      data cmplist(1910) /         0/
 
1925
      data cmplist(1911) /         0/
 
1926
      data cmplist(1912) /         0/
 
1927
      data cmplist(1913) /         0/
 
1928
      data cmplist(1914) /         0/
 
1929
      data cmplist(1915) /         0/
 
1930
      data cmplist(1916) /         0/
 
1931
      data cmplist(1917) /         0/
 
1932
      data cmplist(1918) /         0/
 
1933
      data cmplist(1919) /         0/
 
1934
      data cmplist(1920) /         0/
 
1935
      data cmplist(1921) /         0/
 
1936
      data cmplist(1922) /         0/
 
1937
      data cmplist(1923) /         0/
 
1938
      data cmplist(1924) /         0/
 
1939
      data cmplist(1925) /         0/
 
1940
      data cmplist(1926) /         0/
 
1941
      data cmplist(1927) /         0/
 
1942
      data cmplist(1928) /         0/
 
1943
      data cmplist(1929) /         0/
 
1944
      data cmplist(1930) /         0/
 
1945
      data cmplist(1931) /         0/
 
1946
      data cmplist(1932) /         0/
 
1947
      data cmplist(1933) /         0/
 
1948
      data cmplist(1934) /         0/
 
1949
      data cmplist(1935) /         0/
 
1950
      data cmplist(1936) /         0/
 
1951
      data cmplist(1937) /         0/
 
1952
      data cmplist(1938) /         0/
 
1953
      data cmplist(1939) /         0/
 
1954
      data cmplist(1940) /         0/
 
1955
      data cmplist(1941) /         0/
 
1956
      data cmplist(1942) /         0/
 
1957
      data cmplist(1943) /         0/
 
1958
      data cmplist(1944) /         0/
 
1959
      data cmplist(1945) /         0/
 
1960
      data cmplist(1946) /         0/
 
1961
      data cmplist(1947) /         0/
 
1962
      data cmplist(1948) /         0/
 
1963
      data cmplist(1949) /         0/
 
1964
      data cmplist(1950) /         0/
 
1965
      data cmplist(1951) /         0/
 
1966
      data cmplist(1952) /         0/
 
1967
      data cmplist(1953) /         0/
 
1968
      data cmplist(1954) /         0/
 
1969
      data cmplist(1955) /         0/
 
1970
      data cmplist(1956) /         0/
 
1971
      data cmplist(1957) /         0/
 
1972
      data cmplist(1958) /         0/
 
1973
      data cmplist(1959) /         0/
 
1974
      data cmplist(1960) /         0/
 
1975
      data cmplist(1961) /         0/
 
1976
      data cmplist(1962) /         0/
 
1977
      data cmplist(1963) /         0/
 
1978
      data cmplist(1964) /         0/
 
1979
      data cmplist(1965) /         0/
 
1980
      data cmplist(1966) /         0/
 
1981
      data cmplist(1967) /         0/
 
1982
      data cmplist(1968) /         0/
 
1983
      data cmplist(1969) /         0/
 
1984
      data cmplist(1970) /         0/
 
1985
      data cmplist(1971) /         0/
 
1986
      data cmplist(1972) /         0/
 
1987
      data cmplist(1973) /         0/
 
1988
      data cmplist(1974) /         0/
 
1989
      data cmplist(1975) /         0/
 
1990
      data cmplist(1976) /         0/
 
1991
      data cmplist(1977) /         0/
 
1992
      data cmplist(1978) /         0/
 
1993
      data cmplist(1979) /         0/
 
1994
      data cmplist(1980) /         0/
 
1995
      data cmplist(1981) /         0/
 
1996
      data cmplist(1982) /         0/
 
1997
      data cmplist(1983) /         0/
 
1998
      data cmplist(1984) /         0/
 
1999
      data cmplist(1985) /         0/
 
2000
      data cmplist(1986) /         0/
 
2001
      data cmplist(1987) /         0/
 
2002
      data cmplist(1988) /         0/
 
2003
      data cmplist(1989) /         0/
 
2004
      data cmplist(1990) /         0/
 
2005
      data cmplist(1991) /         0/
 
2006
      data cmplist(1992) /         0/
 
2007
      data cmplist(1993) /         0/
 
2008
      data cmplist(1994) /         0/
 
2009
      data cmplist(1995) /         0/
 
2010
      data cmplist(1996) /         0/
 
2011
      data cmplist(1997) /         0/
 
2012
      data cmplist(1998) /         0/
 
2013
      data cmplist(1999) /         0/
 
2014
      data cmplist(2000) /         0/
 
2015
      data cmplist(2001) /         0/
 
2016
      data cmplist(2002) /         0/
 
2017
      data cmplist(2003) /         0/
 
2018
      data cmplist(2004) /         0/
 
2019
      data cmplist(2005) /         0/
 
2020
      data cmplist(2006) /         0/
 
2021
      data cmplist(2007) /         0/
 
2022
      data cmplist(2008) /         0/
 
2023
      data cmplist(2009) /         0/
 
2024
      data cmplist(2010) /         0/
 
2025
      data cmplist(2011) /         0/
 
2026
      data cmplist(2012) /         0/
 
2027
      data cmplist(2013) /         0/
 
2028
      data cmplist(2014) /         0/
 
2029
      data cmplist(2015) /         0/
 
2030
      data cmplist(2016) /         0/
 
2031
      data cmplist(2017) /         0/
 
2032
      data cmplist(2018) /         0/
 
2033
      data cmplist(2019) /         0/
 
2034
      data cmplist(2020) /         0/
 
2035
      data cmplist(2021) /         0/
 
2036
      data cmplist(2022) /         0/
 
2037
      data cmplist(2023) /         0/
 
2038
      data cmplist(2024) /         0/
 
2039
      data cmplist(2025) /         0/
 
2040
      data cmplist(2026) /         0/
 
2041
      data cmplist(2027) /         0/
 
2042
      data cmplist(2028) /         0/
 
2043
      data cmplist(2029) /         0/
 
2044
      data cmplist(2030) /         0/
 
2045
      data cmplist(2031) /         0/
 
2046
      data cmplist(2032) /         0/
 
2047
      data cmplist(2033) /         0/
 
2048
      data cmplist(2034) /         0/
 
2049
      data cmplist(2035) /         0/
 
2050
      data cmplist(2036) /         0/
 
2051
      data cmplist(2037) /         0/
 
2052
      data cmplist(2038) /         0/
 
2053
      data cmplist(2039) /         0/
 
2054
      data cmplist(2040) /         0/
 
2055
      data cmplist(2041) /         0/
 
2056
      data cmplist(2042) /         0/
 
2057
      data cmplist(2043) /         0/
 
2058
      data cmplist(2044) /         0/
 
2059
      data cmplist(2045) /         0/
 
2060
      data cmplist(2046) /         0/
 
2061
      data cmplist(2047) /         0/
 
2062
      data cmplist(2048) /         0/
 
2063
      data cmplist(2049) /         0/
 
2064
      data cmplist(2050) /         0/
 
2065
      data cmplist(2051) /         0/
 
2066
      data cmplist(2052) /         0/
 
2067
      data cmplist(2053) /         0/
 
2068
      data cmplist(2054) /         0/
 
2069
      data cmplist(2055) /         0/
 
2070
      data cmplist(2056) /         0/
 
2071
      data cmplist(2057) /         0/
 
2072
      data cmplist(2058) /         0/
 
2073
      data cmplist(2059) /         0/
 
2074
      data cmplist(2060) /         0/
 
2075
      data cmplist(2061) /         0/
 
2076
      data cmplist(2062) /         0/
 
2077
      data cmplist(2063) /         0/
 
2078
      data cmplist(2064) /         0/
 
2079
      data cmplist(2065) /         0/
 
2080
      data cmplist(2066) /         0/
 
2081
      data cmplist(2067) /         0/
 
2082
      data cmplist(2068) /         0/
 
2083
      data cmplist(2069) /         0/
 
2084
      data cmplist(2070) /         0/
 
2085
      data cmplist(2071) /         0/
 
2086
      data cmplist(2072) /         0/
 
2087
      data cmplist(2073) /         0/
 
2088
      data cmplist(2074) /         0/
 
2089
      data cmplist(2075) /         0/
 
2090
      data cmplist(2076) /         0/
 
2091
      data cmplist(2077) /         0/
 
2092
      data cmplist(2078) /         0/
 
2093
      data cmplist(2079) /         0/
 
2094
      data cmplist(2080) /         0/
 
2095
      data cmplist(2081) /         0/
 
2096
      data cmplist(2082) /         0/
 
2097
      data cmplist(2083) /         0/
 
2098
      data cmplist(2084) /         0/
 
2099
      data cmplist(2085) /         0/
 
2100
      data cmplist(2086) /         0/
 
2101
      data cmplist(2087) /         0/
 
2102
      data cmplist(2088) /         0/
 
2103
      data cmplist(2089) /         0/
 
2104
      data cmplist(2090) /         0/
 
2105
      data cmplist(2091) /         0/
 
2106
      data cmplist(2092) /         0/
 
2107
      data cmplist(2093) /         0/
 
2108
      data cmplist(2094) /         0/
 
2109
      data cmplist(2095) /         0/
 
2110
      data cmplist(2096) /         0/
 
2111
      data cmplist(2097) /         0/
 
2112
      data cmplist(2098) /         0/
 
2113
      data cmplist(2099) /         0/
 
2114
      data cmplist(2100) /         0/
 
2115
      data cmplist(2101) /         0/
 
2116
      data cmplist(2102) /         0/
 
2117
      data cmplist(2103) /         0/
 
2118
      data cmplist(2104) /         0/
 
2119
      data cmplist(2105) /         0/
 
2120
      data cmplist(2106) /         0/
 
2121
      data cmplist(2107) /         0/
 
2122
      data cmplist(2108) /         0/
 
2123
      data cmplist(2109) /         0/
 
2124
      data cmplist(2110) /         0/
 
2125
      data cmplist(2111) /         0/
 
2126
      data cmplist(2112) /         0/
 
2127
      data cmplist(2113) /         0/
 
2128
      data cmplist(2114) /         0/
 
2129
      data cmplist(2115) /         0/
 
2130
      data cmplist(2116) /         0/
 
2131
      data cmplist(2117) /         0/
 
2132
      data cmplist(2118) /         0/
 
2133
      data cmplist(2119) /         0/
 
2134
      data cmplist(2120) /         0/
 
2135
      data cmplist(2121) /         0/
 
2136
      data cmplist(2122) /         0/
 
2137
      data cmplist(2123) /         0/
 
2138
      data cmplist(2124) /         0/
 
2139
      data cmplist(2125) /         0/
 
2140
      data cmplist(2126) /         0/
 
2141
      data cmplist(2127) /         0/
 
2142
      data cmplist(2128) /         0/
 
2143
      data cmplist(2129) /         0/
 
2144
      data cmplist(2130) /         0/
 
2145
      data cmplist(2131) /         0/
 
2146
      data cmplist(2132) /         0/
 
2147
      data cmplist(2133) /         0/
 
2148
      data cmplist(2134) /         0/
 
2149
      data cmplist(2135) /         0/
 
2150
      data cmplist(2136) /         0/
 
2151
      data cmplist(2137) /         0/
 
2152
      data cmplist(2138) /         0/
 
2153
      data cmplist(2139) /         0/
 
2154
      data cmplist(2140) /         0/
 
2155
      data cmplist(2141) /         0/
 
2156
      data cmplist(2142) /         0/
 
2157
      data cmplist(2143) /         0/
 
2158
      data cmplist(2144) /         0/
 
2159
      data cmplist(2145) /         0/
 
2160
      data cmplist(2146) /         0/
 
2161
      data cmplist(2147) /         0/
 
2162
      data cmplist(2148) /         0/
 
2163
      data cmplist(2149) /         0/
 
2164
      data cmplist(2150) /         0/
 
2165
      data cmplist(2151) /         0/
 
2166
      data cmplist(2152) /         0/
 
2167
      data cmplist(2153) /         0/
 
2168
      data cmplist(2154) /         0/
 
2169
      data cmplist(2155) /         0/
 
2170
      data cmplist(2156) /         0/
 
2171
      data cmplist(2157) /         0/
 
2172
      data cmplist(2158) /         0/
 
2173
      data cmplist(2159) /         0/
 
2174
      data cmplist(2160) /         0/
 
2175
      data cmplist(2161) /         0/
 
2176
      data cmplist(2162) /         0/
 
2177
      data cmplist(2163) /         0/
 
2178
      data cmplist(2164) /         0/
 
2179
      data cmplist(2165) /         0/
 
2180
      data cmplist(2166) /         0/
 
2181
      data cmplist(2167) /         0/
 
2182
      data cmplist(2168) /         0/
 
2183
      data cmplist(2169) /         0/
 
2184
      data cmplist(2170) /         0/
 
2185
      data cmplist(2171) /         0/
 
2186
      data cmplist(2172) /         0/
 
2187
      data cmplist(2173) /         0/
 
2188
      data cmplist(2174) /         0/
 
2189
      data cmplist(2175) /         0/
 
2190
      data cmplist(2176) /         0/
 
2191
      data cmplist(2177) /         0/
 
2192
      data cmplist(2178) /         0/
 
2193
      data cmplist(2179) /         0/
 
2194
      data cmplist(2180) /         0/
 
2195
      data cmplist(2181) /         0/
 
2196
      data cmplist(2182) /         0/
 
2197
      data cmplist(2183) /         0/
 
2198
      data cmplist(2184) /         0/
 
2199
      data cmplist(2185) /         0/
 
2200
      data cmplist(2186) /         0/
 
2201
      data cmplist(2187) /         0/
 
2202
      data cmplist(2188) /         0/
 
2203
      data cmplist(2189) /         0/
 
2204
      data cmplist(2190) /         0/
 
2205
      data cmplist(2191) /         0/
 
2206
      data cmplist(2192) /         0/
 
2207
      data cmplist(2193) /         0/
 
2208
      data cmplist(2194) /         0/
 
2209
      data cmplist(2195) /         0/
 
2210
      data cmplist(2196) /         0/
 
2211
      data cmplist(2197) /         0/
 
2212
      data cmplist(2198) /         0/
 
2213
      data cmplist(2199) /         0/
 
2214
      data cmplist(2200) /         0/
 
2215
      data cmplist(2201) /1001001002/
 
2216
      data cmplist(2202) /1002001002/
 
2217
      data cmplist(2203) /1003001002/
 
2218
      data cmplist(2204) /1003002001/
 
2219
      data cmplist(2205) /1004002001/
 
2220
      data cmplist(2206) /         0/
 
2221
      data cmplist(2207) /         0/
 
2222
      data cmplist(2208) /         0/
 
2223
      data cmplist(2209) /         0/
 
2224
      data cmplist(2210) /         0/
 
2225
 
 
2226
      save cmplist
 
2227
 
 
2228
C...Subdivide standard ID code into constituent pieces.
 
2229
      hepcmp=0
 
2230
      kqa=iabs(id)
 
2231
      kqn=mod(kqa/1000000000,10)
 
2232
      kqna=mod(kqa/1000000,1000)
 
2233
      kqnz=mod(kqa/1000,1000)
 
2234
      kqx=mod(kqa/1000000,10)
 
2235
      kqr=mod(kqa/100000,10)
 
2236
      kql=mod(kqa/10000,10)
 
2237
      kq3=mod(kqa/1000,10)
 
2238
      kq2=mod(kqa/100,10)
 
2239
      kq1=mod(kqa/10,10)
 
2240
      kqj=mod(kqa,10)
 
2241
      kshort=mod(kqa,100)
 
2242
      kqsm=(kqj-1)/2
 
2243
      irt = mod(kqa,10000)
 
2244
      k99=mod(kqa/100000,100)
 
2245
      is = kqsm
 
2246
      if(kqx.eq.9) is = kqsm + 5
 
2247
 
 
2248
      if(kqa.eq.0)  then
 
2249
      elseif(kqa.ge.10000000) then
 
2250
C... ions 
 
2251
        do i=2201,2210
 
2252
            if(cmplist(i).eq.kqa) hepcmp = i
 
2253
        enddo
 
2254
        if(id.lt.0) hepcmp=0
 
2255
      elseif(kqa.le.100) then
 
2256
C... need to check antiparticle legality
 
2257
        hepcmp=kqa
 
2258
        ich=hepchg(id)
 
2259
        if(id.lt.0.and.ich.eq.0)then
 
2260
          if(kqa.ge.1.and.kqa.le.8)then
 
2261
C... quarks
 
2262
          elseif(kqa.ge.11.and.kqa.le.18)then
 
2263
C... leptons
 
2264
          elseif(kqa.eq.41 .or. kqa.eq.42)then
 
2265
C... R0 or LQ
 
2266
          elseif(kqa.ge.81)then
 
2267
C... internal definitions
 
2268
          else
 
2269
            hepcmp=0
 
2270
          endif
 
2271
        endif
 
2272
      elseif(kqj.eq.0) then
 
2273
        do i=101,110
 
2274
            if(cmplist(i).eq.kqa) hepcmp = i
 
2275
        enddo
 
2276
        if(id.lt.0) hepcmp=0
 
2277
      elseif(kshort.eq.22 .and. kql.gt.0 .and. kq2.eq.0) then
 
2278
C virtual gamma and Cerenkov
 
2279
        do i=241,260
 
2280
            if(cmplist(i).eq.kqa) hepcmp = i
 
2281
        enddo
 
2282
        if(id.lt.0) hepcmp=0
 
2283
      elseif(kqx.eq.1 .or. kqx.eq.2)then
 
2284
C...SUSY
 
2285
        do i=111,190
 
2286
            if(cmplist(i).eq.kqa) hepcmp = i
 
2287
        enddo
 
2288
        if(hepcmp.gt.0)then
 
2289
          ich=hepchg(id)
 
2290
          if(id.lt.0.and.ich.eq.0)then
 
2291
            if(irt.ge.1.and.irt.le.8)then
 
2292
C... quarks
 
2293
            elseif(irt.ge.11.and.irt.le.18)then
 
2294
C... leptons
 
2295
            else
 
2296
              hepcmp=0
 
2297
            endif
 
2298
          endif
 
2299
        else
 
2300
C... now what about R-hadrons?
 
2301
C... 2211 - 6791 [entire meson space]
 
2302
        if(kqx.eq.1 .and. kqr.eq.0 .and. kqj.gt.0 
 
2303
     1     .and. kq1.gt.0 .and. kq2.gt.0 )then
 
2304
          if( kql.gt.0 .and. (kq2.eq.0 .or. kq3.eq.0))then
 
2305
          elseif(kq1.eq.7 .or. kq1.eq.8)then
 
2306
          elseif(kq2.eq.7 .or. kq2.eq.8)then
 
2307
          elseif(kq3.eq.7 .or. kq3.eq.8)then
 
2308
          elseif(kql.eq.7 .or. kql.eq.8)then
 
2309
          elseif(kq1.gt.kq2)then
 
2310
          elseif(kq3.gt.0 .and. kq1.gt.kq3)then
 
2311
          elseif(kq3.gt.0 .and. kq2.gt.kq3)then
 
2312
          elseif(kql.gt.0 .and. kq1.gt.kql)then
 
2313
          elseif(kql.gt.0 .and. kq2.gt.kql)then
 
2314
          elseif(kql.gt.0 .and. kq3.gt.kql)then
 
2315
          else
 
2316
            ich=hepchg(id)
 
2317
C... must have integer charge
 
2318
            if(ich.eq.6 .or. ich.eq.-6 .or. ich.eq.3 .or. ich.eq.-3
 
2319
     1         .or. ich.eq.0) then
 
2320
              hepcmp=2210 + kql*250 + kq3*170 + (kq2-1)*90
 
2321
     1                  + (kq1-1)*9 + kqj
 
2322
            endif
 
2323
          endif
 
2324
        endif
 
2325
        endif
 
2326
      elseif(kqx.ge.3 .and. kqx.le.4)then
 
2327
        do i=191,240
 
2328
            if(cmplist(i).eq.kqa) hepcmp = i
 
2329
        enddo
 
2330
        if(kq3.eq.0 .and. id.lt.0) then
 
2331
          if(kq1.gt.0 .and. kq2.eq.kq1) hepcmp=0
 
2332
        endif
 
2333
      elseif(k99.eq.99)then
 
2334
        do i=231,260
 
2335
            if(cmplist(i).eq.kqa) hepcmp = i
 
2336
        enddo
 
2337
        if(kq3.eq.0 .and. id.lt.0) then
 
2338
          if(kq1.gt.0 .and. kq2.eq.kq1) hepcmp=0
 
2339
        endif
 
2340
        if(id.lt.0 .and. kshort.eq.22)  hepcmp=0
 
2341
      elseif(kqx.eq.9 .and. kqr.ge.1)then
 
2342
C...possible pentaquark
 
2343
        do i=231,240
 
2344
            if(cmplist(i).eq.kqa) hepcmp = i
 
2345
        enddo
 
2346
      elseif(kqx.gt.4 .and. kqx.lt.9)then
 
2347
C...undefined
 
2348
 
 
2349
      elseif(kq1.eq.0) then
 
2350
C...Diquarks.
 
2351
C... 103 
 
2352
        if(kqx.ne.0 .and. kqr.ne.0 .and. kql.ne.0)then
 
2353
C... no excited states
 
2354
        elseif(kqj.ne.1.and.kqj.ne.3) then
 
2355
C... only 2 spin states
 
2356
        elseif(kq3.eq.0.or.kq3.eq.9.or.kq2.eq.0.or.kq2.eq.9) then
 
2357
C... illegal (no gluons allowed)
 
2358
        elseif(kq3.lt.kq2) then
 
2359
C... illegal quark order
 
2360
        elseif(kq3.eq.kq2 .and. kqj.eq.1) then
 
2361
C... illegal spin
 
2362
        else
 
2363
C... all diquarks are the same...
 
2364
          hepcmp=103
 
2365
        endif
 
2366
 
 
2367
      elseif(kq3.eq.0) then
 
2368
C...Mesons.
 
2369
C... 260 - ...
 
2370
        if(kq2.eq.0.or.kq2.eq.9.or.kq1.eq.0.or.kq1.eq.9) then
 
2371
C... illegal (no gluons allowed)
 
2372
        elseif(kq2.lt.kq1) then
 
2373
C... illegal quark order
 
2374
        elseif(id.lt.0.and.(kq2.eq.kq1)) then
 
2375
C... illegal antiparticle
 
2376
        elseif(mod(kqj,2).eq.0)then
 
2377
C... illegal spin
 
2378
        elseif(kq2.le.2 .and. kq1.eq.1) then
 
2379
C... 260 - 559 [ kqr = 0,1,2  kql = 0-4 ]
 
2380
          hepcmp = 260 + (kq2-1)*150 + kqr*50 + kql*10 + is
 
2381
          if(kql.gt.4 .or. kqr.gt.2) hepcmp = 0
 
2382
        elseif(kq2.eq.2 .and. kq1.eq.2) then
 
2383
C... 560 - 799 [ kqr = 0,1,2  kql = 0-9 ]
 
2384
          hepcmp = 560 + kqr*100 + kql*10 + is
 
2385
          if(kqr.gt.2) hepcmp = 0
 
2386
        elseif(kq2.eq.3 .and. kq1.eq.3) then
 
2387
C... 800 - 859 [ kqr = 0,1  kql = 0-2 ]
 
2388
          hepcmp = 860 + kqr*30 + kql*10 + is
 
2389
          if(kql.gt.2 .or. kqr.gt.1) hepcmp = 0
 
2390
        elseif(kq2.eq.3 .and. kq1.le.2) then
 
2391
C... 860 - 1099 [ kqr = 0,1,2  kql = 0-3 ]
 
2392
          hepcmp = 920 + (kq1-1)*120 + kqr*40 + kql*10 + is
 
2393
          if(kql.gt.3 .or. kqr.gt.2) hepcmp = 0
 
2394
        elseif(kq2.eq.4 .and. kq1.le.3) then
 
2395
C... 1100 - 1189 [ kqr = 0  kql = 0-2 ]
 
2396
          hepcmp = 1160 + kqr*90 + (kq1-1)*30 + kql*10 + is
 
2397
cc        if(kql.gt.2 .or. kqr.gt.0 .or. kqx.gt.0) hepcmp = 0
 
2398
          if(kql.gt.2 .or. kqr.gt.2 .or. kqx.gt.0) hepcmp = 0
 
2399
        elseif(kq2.eq.4 .and. kq1.eq.4) then
 
2400
C... 1190 - 1269 [ kqr = 0,1  kql = 0-3 ]
 
2401
          hepcmp = 1430 + kqr*40 + kql*10 + is
 
2402
          if(kql.gt.3 .or. kqr.gt.1) hepcmp = 0
 
2403
        elseif(kq2.eq.5 .and. kq1.le.4) then
 
2404
C... 1270 - 1389 [ kqr = 0  kql = 0-2 ]
 
2405
          hepcmp = 1510 + (kq1-1)*30 + kql*10 + is
 
2406
          if(kql.gt.2 .or. kqr.gt.0 .or. kqx.gt.0) hepcmp = 0
 
2407
        elseif(kq2.eq.5 .and. kq1.eq.5) then
 
2408
C... 1390 - 1549 [ kqr = 0,1,2,3  kql = 0-3 ]
 
2409
          hepcmp = 1630 + kqr*40 + kql*10 + is
 
2410
          if(kql.gt.3 .or. kqr.gt.3) hepcmp = 0
 
2411
        elseif(kq2.eq.6)then
 
2412
C... 1550 - 1609 [ kqr = 0  kql = 0 ]
 
2413
          hepcmp = 1790 + (kq1-1)*10 + is
 
2414
          if(kql.gt.0 .or. kqr.gt.0 .or. kqx.gt.0) hepcmp = 0
 
2415
        elseif(kq2.eq.7)then
 
2416
C... 1610 - 1679 [ kqr = 0  kql = 0 ]
 
2417
          hepcmp = 1850 + (kq1-1)*10 + is
 
2418
          if(kql.gt.0 .or. kqr.gt.0 .or. kqx.gt.0) hepcmp = 0
 
2419
        elseif(kq2.eq.8)then
 
2420
C... 1680 - 1759 [ kqr = 0  kql = 0 ]
 
2421
          hepcmp = 1920 + (kq1-1)*10 + is
 
2422
          if(kql.gt.0 .or. kqr.gt.0 .or. kqx.gt.0) hepcmp = 0
 
2423
        endif
 
2424
 
 
2425
      elseif(kqx.eq.0.and.(kqj.eq.2.or.kqj.eq.4)) then
 
2426
C...Baryons.
 
2427
C... no excited states and only spins 1/2 and 3/2
 
2428
        if(kq3.eq.0.or.kq3.eq.9.or.kq2.eq.0.or.kq2.eq.9.or.
 
2429
     1        kq1.eq.0.or.kq1.eq.9) then
 
2430
C... illegal (no gluons allowed)
 
2431
        elseif(kq3.lt.kq1.or.kq3.lt.kq2) then
 
2432
C... illegal quark order
 
2433
        elseif(kq3.ge.7) then
 
2434
C... l and h baryons are all the same
 
2435
C... 104, 105
 
2436
          hepcmp=97+kq3
 
2437
          if(kq3.eq.kq1.and.kq3.eq.kq2.and.kqj.eq.2) hepcmp=0
 
2438
          if(kq2.lt.kq1 .and. kq3.eq.kq1) hepcmp=0
 
2439
          if(kq2.lt.kq1 .and. kqj.eq.4) hepcmp=0
 
2440
          if(kq3.gt.8) hepcmp=0
 
2441
        elseif(kqj.eq.2) then
 
2442
C...Spin 1/2 baryons.
 
2443
          if(kq3.eq.kq1 .and. kq3.eq.kq2)then
 
2444
          elseif(kq2.lt.kq1 .and. kq3.eq.kq1)then
 
2445
          elseif(kq2.lt.kq1) then
 
2446
C...antisymmtric (Lambda, etc.)
 
2447
C... 1760 - 1780
 
2448
            hepcmp=2000+((kq3-1)*(kq3-2)*(kq3-3))/6+
 
2449
     1                  ((kq1-1)*(kq1-2))/2+kq2
 
2450
          else
 
2451
C...symmtric
 
2452
C... 1780 - 1791
 
2453
            hepcmp=2020+((kq3+1)*kq3*(kq3-1))/6+(kq2*(kq2-1))/2+kq1
 
2454
          endif
 
2455
        elseif(kqj.eq.4) then
 
2456
C...Spin 3/2 baryons.
 
2457
          if(kq2.lt.kq1 .and. kq3.eq.kq1)then
 
2458
          elseif(kq2.lt.kq1) then
 
2459
C...no excited states for antisymmetric baryons
 
2460
          else
 
2461
C...symmetric
 
2462
C... 1840 - 1896
 
2463
            hepcmp=2080+((kq3+1)*kq3*(kq3-1))/6+(kq2*(kq2-1))/2+kq1
 
2464
          endif
 
2465
        endif
 
2466
 
 
2467
      endif
 
2468
 
 
2469
      return
 
2470
      end