4
4
$ ISPLITORDER_CNT_D(10)
5
5
INTEGER FKS_J_FROM_I_D(10, NEXTERNAL, 0:NEXTERNAL)
6
6
INTEGER PARTICLE_TYPE_D(10, NEXTERNAL), PDG_TYPE_D(10, NEXTERNAL)
7
LOGICAL PARTICLE_TAG_D(10, NEXTERNAL)
7
8
REAL*8 PARTICLE_CHARGE_D(10, NEXTERNAL)
8
9
LOGICAL SPLIT_TYPE_D(10, 2)
9
10
LOGICAL NEED_COLOR_LINKS_D(10), NEED_CHARGE_LINKS_D(10)
147
148
$ 0.666666666666667D0, -0.666666666666667D0,
148
149
$ 0.000000000000000D0 /
154
DATA (PARTICLE_TAG_D(1, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
155
$ .FALSE., .FALSE., .FALSE., .FALSE. /
156
DATA (PARTICLE_TAG_D(2, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
157
$ .FALSE., .FALSE., .FALSE., .FALSE. /
158
DATA (PARTICLE_TAG_D(3, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
159
$ .FALSE., .FALSE., .FALSE., .FALSE. /
160
DATA (PARTICLE_TAG_D(4, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
161
$ .FALSE., .FALSE., .FALSE., .FALSE. /
162
DATA (PARTICLE_TAG_D(5, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
163
$ .FALSE., .FALSE., .FALSE., .FALSE. /
164
DATA (PARTICLE_TAG_D(6, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
165
$ .FALSE., .FALSE., .FALSE., .FALSE. /
166
DATA (PARTICLE_TAG_D(7, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
167
$ .FALSE., .FALSE., .FALSE., .FALSE. /
168
DATA (PARTICLE_TAG_D(8, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
169
$ .FALSE., .FALSE., .FALSE., .FALSE. /
170
DATA (PARTICLE_TAG_D(9, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
171
$ .FALSE., .FALSE., .FALSE., .FALSE. /
172
DATA (PARTICLE_TAG_D(10, IPOS), IPOS=1, NEXTERNAL) / .FALSE.,
173
$ .FALSE., .FALSE., .FALSE., .FALSE. /