4
4
$ ISPLITORDER_CNT_D(5)
5
5
INTEGER FKS_J_FROM_I_D(5, NEXTERNAL, 0:NEXTERNAL)
6
6
INTEGER PARTICLE_TYPE_D(5, NEXTERNAL), PDG_TYPE_D(5, NEXTERNAL)
7
LOGICAL PARTICLE_TAG_D(5, NEXTERNAL)
7
8
REAL*8 PARTICLE_CHARGE_D(5, NEXTERNAL)
8
9
LOGICAL SPLIT_TYPE_D(5, 2)
9
10
LOGICAL NEED_COLOR_LINKS_D(5), NEED_CHARGE_LINKS_D(5)
96
97
$ 0.000000000000000D0, 1.000000000000000D0,
97
98
$ -0.333333333333333D0 /
103
DATA (PARTICLE_TAG_D(1, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
104
$ .FALSE., .FALSE., .FALSE., .FALSE. /
105
DATA (PARTICLE_TAG_D(2, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
106
$ .FALSE., .FALSE., .FALSE., .FALSE. /
107
DATA (PARTICLE_TAG_D(3, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
108
$ .FALSE., .FALSE., .FALSE., .FALSE. /
109
DATA (PARTICLE_TAG_D(4, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
110
$ .FALSE., .FALSE., .FALSE., .FALSE. /
111
DATA (PARTICLE_TAG_D(5, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
112
$ .FALSE., .FALSE., .FALSE., .FALSE. /