19
19
C octet = 8, triplet = 3, singlet = 1
20
DATA (PARTICLE_TYPE_D(1, IPOS), IPOS=1, NEXTERNAL) / 3, 3, 3,
22
DATA (PARTICLE_TYPE_D(2, IPOS), IPOS=1, NEXTERNAL) / 3, 3, 3,
24
DATA (PARTICLE_TYPE_D(3, IPOS), IPOS=1, NEXTERNAL) / 3, 3, 3,
20
DATA (PARTICLE_TYPE_D(1, IPOS), IPOS=1, NEXTERNAL) / 3, 3, 3, -3
22
DATA (PARTICLE_TYPE_D(2, IPOS), IPOS=1, NEXTERNAL) / 3, 3, 3, -3
24
DATA (PARTICLE_TYPE_D(3, IPOS), IPOS=1, NEXTERNAL) / 3, 3, 3, -3
28
28
C Particle type according to PDG:
36
36
C charge is set 0. with QCD corrections, which is irrelevant
37
37
DATA (PARTICLE_CHARGE_D(1, IPOS), IPOS=1, NEXTERNAL) /
38
$ 0.000000000000000D0, 0.000000000000000D0, 0.000000000000000
39
$ D0, 0.000000000000000D0, 0.000000000000000D0 /
38
$ 0.000000000000000D0, 0.000000000000000D0,
39
$ 0.000000000000000D0, 0.000000000000000D0,
40
$ 0.000000000000000D0 /
40
41
DATA (PARTICLE_CHARGE_D(2, IPOS), IPOS=1, NEXTERNAL) /
41
$ 0.000000000000000D0, 0.000000000000000D0, 0.000000000000000
42
$ D0, 0.000000000000000D0, 0.000000000000000D0 /
42
$ 0.000000000000000D0, 0.000000000000000D0,
43
$ 0.000000000000000D0, 0.000000000000000D0,
44
$ 0.000000000000000D0 /
43
45
DATA (PARTICLE_CHARGE_D(3, IPOS), IPOS=1, NEXTERNAL) /
44
$ 0.000000000000000D0, 0.000000000000000D0, 0.000000000000000
45
$ D0, 0.000000000000000D0, 0.000000000000000D0 /
46
$ 0.000000000000000D0, 0.000000000000000D0,
47
$ 0.000000000000000D0, 0.000000000000000D0,
48
$ 0.000000000000000D0 /