~maddevelopers/mg5amcnlo/FKS_EW_flattened_dsig_merged2.3.3

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksreal/%SubProcesses%P0_gg_ttx%matrix_5.f

  • Committer: Marco Zaro
  • Date: 2016-05-24 12:48:05 UTC
  • mfrom: (78.337.150 2.4.1)
  • Revision ID: marco.zaro@gmail.com-20160524124805-d0y3ij808wdroloh
merged with 2.4.1 rev 410

Show diffs side-by-side

added added

removed removed

Lines of Context:
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 d > t t~ d WEIGHTED=3 [ real = QCD ]
12
 
C     Process: g s > t t~ s WEIGHTED=3 [ real = QCD ]
13
 
C     Process: g u > t t~ u WEIGHTED=3 [ real = QCD ]
14
 
C     Process: g c > t t~ c WEIGHTED=3 [ real = QCD ]
 
11
C     Process: g d > t t~ d WEIGHTED<=3 [ real = QCD ]
 
12
C     Process: g s > t t~ s WEIGHTED<=3 [ real = QCD ]
 
13
C     Process: g u > t t~ u WEIGHTED<=3 [ real = QCD ]
 
14
C     Process: g c > t t~ c WEIGHTED<=3 [ real = QCD ]
15
15
C     
16
16
      IMPLICIT NONE
17
17
C     
24
24
C     ARGUMENTS 
25
25
C     
26
26
      REAL*8 P(0:3,NEXTERNAL),ANS
 
27
      DOUBLE PRECISION       WGT_ME_BORN,WGT_ME_REAL
 
28
      COMMON /C_WGT_ME_TREE/ WGT_ME_BORN,WGT_ME_REAL
27
29
C     
28
30
C     LOCAL VARIABLES 
29
31
C     
108
110
        ENDIF
109
111
      ENDDO
110
112
      ANS=ANS/DBLE(IDEN)
 
113
      WGT_ME_REAL=ANS
111
114
      END
112
115
 
113
116
 
120
123
C     Returns amplitude squared summed/avg over colors
121
124
C     for the point with external lines W(0:6,NEXTERNAL)
122
125
C     
123
 
C     Process: g d > t t~ d WEIGHTED=3 [ real = QCD ]
124
 
C     Process: g s > t t~ s WEIGHTED=3 [ real = QCD ]
125
 
C     Process: g u > t t~ u WEIGHTED=3 [ real = QCD ]
126
 
C     Process: g c > t t~ c WEIGHTED=3 [ real = QCD ]
 
126
C     Process: g d > t t~ d WEIGHTED<=3 [ real = QCD ]
 
127
C     Process: g s > t t~ s WEIGHTED<=3 [ real = QCD ]
 
128
C     Process: g u > t t~ u WEIGHTED<=3 [ real = QCD ]
 
129
C     Process: g c > t t~ c WEIGHTED<=3 [ real = QCD ]
127
130
C     
128
131
      IMPLICIT NONE
129
132
C