← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksreal/%SubProcesses%P0_uux_ttx%matrix_2.f

  • Committer: olivier Mattelaer
  • Date: 2015-03-05 00:14:16 UTC
  • mfrom: (258.1.9 2.3)
  • mto: (258.8.1 2.3)
  • mto: This revision was merged to the branch mainline in revision 259.
  • Revision ID: olivier.mattelaer@uclouvain.be-20150305001416-y9mzeykfzwnl9t0j
partial merge

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksreal/%SubProcesses%P0_uux_ttx%matrix_2.f
8
8
C     and helicities
9
9
C     for the point in phase space P(0:3,NEXTERNAL)
10
10
C     
11
 
C     Process: g u~ > t t~ u~ WEIGHTED=3 [ QCD ]
12
 
C     Process: g c~ > t t~ c~ WEIGHTED=3 [ QCD ]
13
 
C     Process: g d~ > t t~ d~ WEIGHTED=3 [ QCD ]
14
 
C     Process: g s~ > t t~ s~ WEIGHTED=3 [ QCD ]
 
11
C     Process: g u~ > t t~ u~ WEIGHTED=3 [ real = QCD ]
 
12
C     Process: g c~ > t t~ c~ WEIGHTED=3 [ real = QCD ]
 
13
C     Process: g d~ > t t~ d~ WEIGHTED=3 [ real = QCD ]
 
14
C     Process: g s~ > t t~ s~ WEIGHTED=3 [ real = QCD ]
15
15
C     
16
16
      IMPLICIT NONE
17
17
C     
32
32
      REAL*8 T,T_SAVE(NCOMB)
33
33
      SAVE T_SAVE,T_IDENT
34
34
      INTEGER NHEL(NEXTERNAL,NCOMB)
35
 
      DATA (NHEL(I,   1),I=1,5) /-1,-1,-1,-1,-1/
36
 
      DATA (NHEL(I,   2),I=1,5) /-1,-1,-1,-1, 1/
37
 
      DATA (NHEL(I,   3),I=1,5) /-1,-1,-1, 1,-1/
38
 
      DATA (NHEL(I,   4),I=1,5) /-1,-1,-1, 1, 1/
39
 
      DATA (NHEL(I,   5),I=1,5) /-1,-1, 1,-1,-1/
40
 
      DATA (NHEL(I,   6),I=1,5) /-1,-1, 1,-1, 1/
41
 
      DATA (NHEL(I,   7),I=1,5) /-1,-1, 1, 1,-1/
42
 
      DATA (NHEL(I,   8),I=1,5) /-1,-1, 1, 1, 1/
43
 
      DATA (NHEL(I,   9),I=1,5) /-1, 1,-1,-1,-1/
44
 
      DATA (NHEL(I,  10),I=1,5) /-1, 1,-1,-1, 1/
45
 
      DATA (NHEL(I,  11),I=1,5) /-1, 1,-1, 1,-1/
46
 
      DATA (NHEL(I,  12),I=1,5) /-1, 1,-1, 1, 1/
47
 
      DATA (NHEL(I,  13),I=1,5) /-1, 1, 1,-1,-1/
48
 
      DATA (NHEL(I,  14),I=1,5) /-1, 1, 1,-1, 1/
49
 
      DATA (NHEL(I,  15),I=1,5) /-1, 1, 1, 1,-1/
50
 
      DATA (NHEL(I,  16),I=1,5) /-1, 1, 1, 1, 1/
51
 
      DATA (NHEL(I,  17),I=1,5) / 1,-1,-1,-1,-1/
52
 
      DATA (NHEL(I,  18),I=1,5) / 1,-1,-1,-1, 1/
53
 
      DATA (NHEL(I,  19),I=1,5) / 1,-1,-1, 1,-1/
54
 
      DATA (NHEL(I,  20),I=1,5) / 1,-1,-1, 1, 1/
55
 
      DATA (NHEL(I,  21),I=1,5) / 1,-1, 1,-1,-1/
56
 
      DATA (NHEL(I,  22),I=1,5) / 1,-1, 1,-1, 1/
57
 
      DATA (NHEL(I,  23),I=1,5) / 1,-1, 1, 1,-1/
58
 
      DATA (NHEL(I,  24),I=1,5) / 1,-1, 1, 1, 1/
59
 
      DATA (NHEL(I,  25),I=1,5) / 1, 1,-1,-1,-1/
60
 
      DATA (NHEL(I,  26),I=1,5) / 1, 1,-1,-1, 1/
61
 
      DATA (NHEL(I,  27),I=1,5) / 1, 1,-1, 1,-1/
62
 
      DATA (NHEL(I,  28),I=1,5) / 1, 1,-1, 1, 1/
63
 
      DATA (NHEL(I,  29),I=1,5) / 1, 1, 1,-1,-1/
64
 
      DATA (NHEL(I,  30),I=1,5) / 1, 1, 1,-1, 1/
65
 
      DATA (NHEL(I,  31),I=1,5) / 1, 1, 1, 1,-1/
66
 
      DATA (NHEL(I,  32),I=1,5) / 1, 1, 1, 1, 1/
 
35
      DATA (NHEL(I,   1),I=1,5) /-1,-1,-1, 1, 1/
 
36
      DATA (NHEL(I,   2),I=1,5) /-1,-1,-1, 1,-1/
 
37
      DATA (NHEL(I,   3),I=1,5) /-1,-1,-1,-1, 1/
 
38
      DATA (NHEL(I,   4),I=1,5) /-1,-1,-1,-1,-1/
 
39
      DATA (NHEL(I,   5),I=1,5) /-1,-1, 1, 1, 1/
 
40
      DATA (NHEL(I,   6),I=1,5) /-1,-1, 1, 1,-1/
 
41
      DATA (NHEL(I,   7),I=1,5) /-1,-1, 1,-1, 1/
 
42
      DATA (NHEL(I,   8),I=1,5) /-1,-1, 1,-1,-1/
 
43
      DATA (NHEL(I,   9),I=1,5) /-1, 1,-1, 1, 1/
 
44
      DATA (NHEL(I,  10),I=1,5) /-1, 1,-1, 1,-1/
 
45
      DATA (NHEL(I,  11),I=1,5) /-1, 1,-1,-1, 1/
 
46
      DATA (NHEL(I,  12),I=1,5) /-1, 1,-1,-1,-1/
 
47
      DATA (NHEL(I,  13),I=1,5) /-1, 1, 1, 1, 1/
 
48
      DATA (NHEL(I,  14),I=1,5) /-1, 1, 1, 1,-1/
 
49
      DATA (NHEL(I,  15),I=1,5) /-1, 1, 1,-1, 1/
 
50
      DATA (NHEL(I,  16),I=1,5) /-1, 1, 1,-1,-1/
 
51
      DATA (NHEL(I,  17),I=1,5) / 1,-1,-1, 1, 1/
 
52
      DATA (NHEL(I,  18),I=1,5) / 1,-1,-1, 1,-1/
 
53
      DATA (NHEL(I,  19),I=1,5) / 1,-1,-1,-1, 1/
 
54
      DATA (NHEL(I,  20),I=1,5) / 1,-1,-1,-1,-1/
 
55
      DATA (NHEL(I,  21),I=1,5) / 1,-1, 1, 1, 1/
 
56
      DATA (NHEL(I,  22),I=1,5) / 1,-1, 1, 1,-1/
 
57
      DATA (NHEL(I,  23),I=1,5) / 1,-1, 1,-1, 1/
 
58
      DATA (NHEL(I,  24),I=1,5) / 1,-1, 1,-1,-1/
 
59
      DATA (NHEL(I,  25),I=1,5) / 1, 1,-1, 1, 1/
 
60
      DATA (NHEL(I,  26),I=1,5) / 1, 1,-1, 1,-1/
 
61
      DATA (NHEL(I,  27),I=1,5) / 1, 1,-1,-1, 1/
 
62
      DATA (NHEL(I,  28),I=1,5) / 1, 1,-1,-1,-1/
 
63
      DATA (NHEL(I,  29),I=1,5) / 1, 1, 1, 1, 1/
 
64
      DATA (NHEL(I,  30),I=1,5) / 1, 1, 1, 1,-1/
 
65
      DATA (NHEL(I,  31),I=1,5) / 1, 1, 1,-1, 1/
 
66
      DATA (NHEL(I,  32),I=1,5) / 1, 1, 1,-1,-1/
67
67
      LOGICAL GOODHEL(NCOMB)
68
68
      DATA GOODHEL/NCOMB*.FALSE./
69
69
      INTEGER NTRY
120
120
C     Returns amplitude squared summed/avg over colors
121
121
C     for the point with external lines W(0:6,NEXTERNAL)
122
122
C     
123
 
C     Process: g u~ > t t~ u~ WEIGHTED=3 [ QCD ]
124
 
C     Process: g c~ > t t~ c~ WEIGHTED=3 [ QCD ]
125
 
C     Process: g d~ > t t~ d~ WEIGHTED=3 [ QCD ]
126
 
C     Process: g s~ > t t~ s~ WEIGHTED=3 [ QCD ]
 
123
C     Process: g u~ > t t~ u~ WEIGHTED=3 [ real = QCD ]
 
124
C     Process: g c~ > t t~ c~ WEIGHTED=3 [ real = QCD ]
 
125
C     Process: g d~ > t t~ d~ WEIGHTED=3 [ real = QCD ]
 
126
C     Process: g s~ > t t~ s~ WEIGHTED=3 [ real = QCD ]
127
127
C     
128
128
      IMPLICIT NONE
129
129
C