~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

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

  • Committer: olivier Mattelaer
  • Date: 2016-05-12 11:00:18 UTC
  • mfrom: (262.1.150 2.3.4)
  • Revision ID: olivier.mattelaer@uclouvain.be-20160512110018-sevb79f0wm4g8mpp
pass to 2.4.0

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 g > t t~ g WEIGHTED=3 [ real = QCD ]
 
11
C     Process: g g > t t~ g WEIGHTED<=3 [ real = QCD ]
12
12
C     
13
13
      IMPLICIT NONE
14
14
C     
21
21
C     ARGUMENTS 
22
22
C     
23
23
      REAL*8 P(0:3,NEXTERNAL),ANS
 
24
      DOUBLE PRECISION       WGT_ME_BORN,WGT_ME_REAL
 
25
      COMMON /C_WGT_ME_TREE/ WGT_ME_BORN,WGT_ME_REAL
24
26
C     
25
27
C     LOCAL VARIABLES 
26
28
C     
105
107
        ENDIF
106
108
      ENDDO
107
109
      ANS=ANS/DBLE(IDEN)
 
110
      WGT_ME_REAL=ANS
108
111
      END
109
112
 
110
113
 
117
120
C     Returns amplitude squared summed/avg over colors
118
121
C     for the point with external lines W(0:6,NEXTERNAL)
119
122
C     
120
 
C     Process: g g > t t~ g WEIGHTED=3 [ real = QCD ]
 
123
C     Process: g g > t t~ g WEIGHTED<=3 [ real = QCD ]
121
124
C     
122
125
      IMPLICIT NONE
123
126
C