← Back to branch summary

~maddevelopers/mg5amcnlo/new_clustering

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksrealew/%SubProcesses%P0_ag_ttx%fks_info.inc

  • Committer: Rikkert Frederix
  • Date: 2021-09-09 15:51:40 UTC
  • mfrom: (78.75.502 3.2.1)
  • Revision ID: frederix@physik.uzh.ch-20210909155140-rg6umfq68h6h47cf
merge with 3.2.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksrealew/%SubProcesses%P0_ag_ttx%fks_info.inc
 
1
      INTEGER IPOS, JPOS
 
2
      INTEGER FKS_I_D(7), FKS_J_D(7)
 
3
      INTEGER EXTRA_CNT_D(7), ISPLITORDER_BORN_D(7),
 
4
     $  ISPLITORDER_CNT_D(7)
 
5
      INTEGER FKS_J_FROM_I_D(7, NEXTERNAL, 0:NEXTERNAL)
 
6
      INTEGER PARTICLE_TYPE_D(7, NEXTERNAL), PDG_TYPE_D(7, NEXTERNAL)
 
7
      REAL*8 PARTICLE_CHARGE_D(7, NEXTERNAL)
 
8
      LOGICAL SPLIT_TYPE_D(7, 2)
 
9
      LOGICAL NEED_COLOR_LINKS_D(7), NEED_CHARGE_LINKS_D(7)
 
10
 
 
11
      DATA FKS_I_D / 5, 5, 5, 5, 5, 5, 5 /
 
12
      DATA FKS_J_D / 2, 3, 4, 2, 2, 2, 2 /
 
13
 
 
14
      DATA NEED_COLOR_LINKS_D / .TRUE., .TRUE., .TRUE., .FALSE.,
 
15
     $  .FALSE., .FALSE., .FALSE. /
 
16
      DATA NEED_CHARGE_LINKS_D / .FALSE., .FALSE., .FALSE., .FALSE.,
 
17
     $  .FALSE., .FALSE., .FALSE. /
 
18
 
 
19
      DATA (FKS_J_FROM_I_D(1, 5, JPOS), JPOS = 0, 3)  / 3, 2, 3, 4 /
 
20
 
 
21
      DATA (FKS_J_FROM_I_D(2, 5, JPOS), JPOS = 0, 3)  / 3, 2, 3, 4 /
 
22
 
 
23
      DATA (FKS_J_FROM_I_D(3, 5, JPOS), JPOS = 0, 3)  / 3, 2, 3, 4 /
 
24
 
 
25
      DATA (FKS_J_FROM_I_D(4, 5, JPOS), JPOS = 0, 2)  / 2, 1, 2 /
 
26
 
 
27
      DATA (FKS_J_FROM_I_D(5, 5, JPOS), JPOS = 0, 2)  / 2, 1, 2 /
 
28
 
 
29
      DATA (FKS_J_FROM_I_D(6, 5, JPOS), JPOS = 0, 2)  / 2, 1, 2 /
 
30
 
 
31
      DATA (FKS_J_FROM_I_D(7, 5, JPOS), JPOS = 0, 2)  / 2, 1, 2 /
 
32
 
 
33
 
 
34
C     Split type: the order of elements is QCD, QED
 
35
      DATA (SPLIT_TYPE_D (1, IPOS), IPOS=1, 2) / .TRUE., .FALSE. /
 
36
      DATA (SPLIT_TYPE_D (2, IPOS), IPOS=1, 2) / .TRUE., .FALSE. /
 
37
      DATA (SPLIT_TYPE_D (3, IPOS), IPOS=1, 2) / .TRUE., .FALSE. /
 
38
      DATA (SPLIT_TYPE_D (4, IPOS), IPOS=1, 2) / .TRUE., .FALSE. /
 
39
      DATA (SPLIT_TYPE_D (5, IPOS), IPOS=1, 2) / .TRUE., .FALSE. /
 
40
      DATA (SPLIT_TYPE_D (6, IPOS), IPOS=1, 2) / .TRUE., .FALSE. /
 
41
      DATA (SPLIT_TYPE_D (7, IPOS), IPOS=1, 2) / .TRUE., .FALSE. /
 
42
 
 
43
C     Extra cnt: if the real emission needs an extra cnt (g/a >
 
44
C      qqbar), then
 
45
C     this is the id of the extra cnt. Otherwise it should be set to 0.
 
46
C     If not 0, store also the position in the splitorders array of
 
47
C      the 
 
48
C     coupling corresponding to the splitting type
 
49
      DATA EXTRA_CNT_D / 0, 0, 0, 0, 0, 0, 0 /
 
50
      DATA ISPLITORDER_BORN_D / 0, 0, 0, 0, 0, 0, 0 /
 
51
      DATA ISPLITORDER_CNT_D / 0, 0, 0, 0, 0, 0, 0 /
 
52
 
 
53
C     
 
54
C     Particle type:
 
55
C     octet = 8, triplet = 3, singlet = 1
 
56
      DATA (PARTICLE_TYPE_D(1, IPOS), IPOS=1, NEXTERNAL) / 1, 8, 3, -3
 
57
     $ , 8 /
 
58
      DATA (PARTICLE_TYPE_D(2, IPOS), IPOS=1, NEXTERNAL) / 1, 8, 3, -3
 
59
     $ , 8 /
 
60
      DATA (PARTICLE_TYPE_D(3, IPOS), IPOS=1, NEXTERNAL) / 1, 8, 3, -3
 
61
     $ , 8 /
 
62
      DATA (PARTICLE_TYPE_D(4, IPOS), IPOS=1, NEXTERNAL) / 1, -3, 3, 
 
63
     $ -3, -3 /
 
64
      DATA (PARTICLE_TYPE_D(5, IPOS), IPOS=1, NEXTERNAL) / 1, 3, 3, -3
 
65
     $ , 3 /
 
66
      DATA (PARTICLE_TYPE_D(6, IPOS), IPOS=1, NEXTERNAL) / 1, -3, 3, 
 
67
     $ -3, -3 /
 
68
      DATA (PARTICLE_TYPE_D(7, IPOS), IPOS=1, NEXTERNAL) / 1, 3, 3, -3
 
69
     $ , 3 /
 
70
 
 
71
C     
 
72
C     Particle type according to PDG:
 
73
C     
 
74
      DATA (PDG_TYPE_D(1, IPOS), IPOS=1, NEXTERNAL) / 22, 21, 6, -6,
 
75
     $  21 /
 
76
      DATA (PDG_TYPE_D(2, IPOS), IPOS=1, NEXTERNAL) / 22, 21, 6, -6,
 
77
     $  21 /
 
78
      DATA (PDG_TYPE_D(3, IPOS), IPOS=1, NEXTERNAL) / 22, 21, 6, -6,
 
79
     $  21 /
 
80
      DATA (PDG_TYPE_D(4, IPOS), IPOS=1, NEXTERNAL) / 22, -1, 6, -6, 
 
81
     $ -1 /
 
82
      DATA (PDG_TYPE_D(5, IPOS), IPOS=1, NEXTERNAL) / 22, 1, 6, -6, 1 /
 
83
      DATA (PDG_TYPE_D(6, IPOS), IPOS=1, NEXTERNAL) / 22, -2, 6, -6, 
 
84
     $ -2 /
 
85
      DATA (PDG_TYPE_D(7, IPOS), IPOS=1, NEXTERNAL) / 22, 2, 6, -6, 2 /
 
86
 
 
87
C     
 
88
C     Particle charge:
 
89
C     charge is set 0. with QCD corrections, which is irrelevant
 
90
      DATA (PARTICLE_CHARGE_D(1, IPOS), IPOS=1, NEXTERNAL) /  
 
91
     $  0.000000000000000D0,   0.000000000000000D0,  
 
92
     $  0.666666666666667D0,  -0.666666666666667D0,  
 
93
     $  0.000000000000000D0 /
 
94
      DATA (PARTICLE_CHARGE_D(2, IPOS), IPOS=1, NEXTERNAL) /  
 
95
     $  0.000000000000000D0,   0.000000000000000D0,  
 
96
     $  0.666666666666667D0,  -0.666666666666667D0,  
 
97
     $  0.000000000000000D0 /
 
98
      DATA (PARTICLE_CHARGE_D(3, IPOS), IPOS=1, NEXTERNAL) /  
 
99
     $  0.000000000000000D0,   0.000000000000000D0,  
 
100
     $  0.666666666666667D0,  -0.666666666666667D0,  
 
101
     $  0.000000000000000D0 /
 
102
      DATA (PARTICLE_CHARGE_D(4, IPOS), IPOS=1, NEXTERNAL) /  
 
103
     $  0.000000000000000D0,   0.333333333333333D0,  
 
104
     $  0.666666666666667D0,  -0.666666666666667D0,  
 
105
     $  0.333333333333333D0 /
 
106
      DATA (PARTICLE_CHARGE_D(5, IPOS), IPOS=1, NEXTERNAL) /  
 
107
     $  0.000000000000000D0,  -0.333333333333333D0,  
 
108
     $  0.666666666666667D0,  -0.666666666666667D0,  
 
109
     $ -0.333333333333333D0 /
 
110
      DATA (PARTICLE_CHARGE_D(6, IPOS), IPOS=1, NEXTERNAL) /  
 
111
     $  0.000000000000000D0,  -0.666666666666667D0,  
 
112
     $  0.666666666666667D0,  -0.666666666666667D0,  
 
113
     $ -0.666666666666667D0 /
 
114
      DATA (PARTICLE_CHARGE_D(7, IPOS), IPOS=1, NEXTERNAL) /  
 
115
     $  0.000000000000000D0,   0.666666666666667D0,  
 
116
     $  0.666666666666667D0,  -0.666666666666667D0,  
 
117
     $  0.666666666666667D0 /
 
118