← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/long_ML_SMQCD_optimized/gg_wmtbx/mp_helas_calls_uvct_1.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/long_ML_SMQCD_optimized/gg_wmtbx/mp_helas_calls_uvct_1.f
4
4
C     
5
5
C     CONSTANTS
6
6
C     
7
 
      INTEGER NBORNAMPS
8
 
      PARAMETER (NBORNAMPS=8)
9
7
      INTEGER    NEXTERNAL
10
8
      PARAMETER (NEXTERNAL=5)
11
9
      INTEGER    NCOMB
12
10
      PARAMETER (NCOMB=48)
 
11
 
 
12
      INTEGER NBORNAMPS
 
13
      PARAMETER (NBORNAMPS=8)
13
14
      INTEGER    NLOOPS, NLOOPGROUPS, NCTAMPS
14
 
      PARAMETER (NLOOPS=162, NLOOPGROUPS=77, NCTAMPS=252)
 
15
      PARAMETER (NLOOPS=144, NLOOPGROUPS=77, NCTAMPS=252)
 
16
      INTEGER    NLOOPAMPS
 
17
      PARAMETER (NLOOPAMPS=396)
15
18
      INTEGER    NWAVEFUNCS,NLOOPWAVEFUNCS
16
 
      PARAMETER (NWAVEFUNCS=28,NLOOPWAVEFUNCS=300)
 
19
      PARAMETER (NWAVEFUNCS=28,NLOOPWAVEFUNCS=267)
17
20
      INTEGER MAXLWFSIZE
18
21
      PARAMETER (MAXLWFSIZE=4)
19
22
      INTEGER LOOPMAXCOEFS, VERTEXMAXCOEFS
65
68
      COMPLEX*32 PL(0:3,0:NLOOPWAVEFUNCS)
66
69
      COMMON/ML5_0_MP_WL/WL,PL
67
70
 
68
 
      COMPLEX*32 LOOPCOEFS(0:LOOPMAXCOEFS-1,NSQUAREDSO,NLOOPGROUPS)
69
 
      COMMON/ML5_0_MP_LCOEFS/LOOPCOEFS
70
 
 
71
71
      COMPLEX*32 AMPL(3,NCTAMPS)
72
72
      COMMON/ML5_0_MP_AMPL/AMPL
73
73
 
74
 
      COMPLEX*16 LOOPRES(3,NSQUAREDSO,NLOOPGROUPS)
75
 
      LOGICAL S(NSQUAREDSO,NLOOPGROUPS)
76
 
      COMMON/ML5_0_LOOPRES/LOOPRES,S
77
74
C     
78
75
C     ----------
79
76
C     BEGIN CODE
85
82
        GOTO 1001
86
83
      ENDIF
87
84
 
88
 
C     Amplitude(s) for UVCT diagram with ID 153
 
85
C     Amplitude(s) for UVCT diagram with ID 135
89
86
      CALL MP_FFV1_0(W(1,5),W(1,7),W(1,6),GC_5,AMPL(1,237))
90
87
      AMPL(1,237)=AMPL(1,237)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
91
88
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
92
 
C     Amplitude(s) for UVCT diagram with ID 154
 
89
C     Amplitude(s) for UVCT diagram with ID 136
93
90
      CALL MP_FFV1_0(W(1,5),W(1,7),W(1,6),GC_5,AMPL(2,238))
94
91
      AMPL(2,238)=AMPL(2,238)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
95
92
     $ EPS)
96
 
C     Amplitude(s) for UVCT diagram with ID 155
 
93
C     Amplitude(s) for UVCT diagram with ID 137
97
94
      CALL MP_FFV1_0(W(1,8),W(1,4),W(1,6),GC_5,AMPL(1,239))
98
95
      AMPL(1,239)=AMPL(1,239)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
99
96
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
100
 
C     Amplitude(s) for UVCT diagram with ID 156
 
97
C     Amplitude(s) for UVCT diagram with ID 138
101
98
      CALL MP_FFV1_0(W(1,8),W(1,4),W(1,6),GC_5,AMPL(2,240))
102
99
      AMPL(2,240)=AMPL(2,240)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
103
100
     $ EPS)
104
 
C     Amplitude(s) for UVCT diagram with ID 157
 
101
C     Amplitude(s) for UVCT diagram with ID 139
105
102
      CALL MP_FFV2_0(W(1,10),W(1,9),W(1,3),GC_47,AMPL(1,241))
106
103
      AMPL(1,241)=AMPL(1,241)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
107
104
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
108
 
C     Amplitude(s) for UVCT diagram with ID 158
 
105
C     Amplitude(s) for UVCT diagram with ID 140
109
106
      CALL MP_FFV2_0(W(1,10),W(1,9),W(1,3),GC_47,AMPL(2,242))
110
107
      AMPL(2,242)=AMPL(2,242)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
111
108
     $ EPS)
112
 
C     Amplitude(s) for UVCT diagram with ID 159
 
109
C     Amplitude(s) for UVCT diagram with ID 141
113
110
      CALL MP_FFV1_0(W(1,8),W(1,9),W(1,2),GC_5,AMPL(1,243))
114
111
      AMPL(1,243)=AMPL(1,243)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
115
112
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
116
 
C     Amplitude(s) for UVCT diagram with ID 160
 
113
C     Amplitude(s) for UVCT diagram with ID 142
117
114
      CALL MP_FFV1_0(W(1,8),W(1,9),W(1,2),GC_5,AMPL(2,244))
118
115
      AMPL(2,244)=AMPL(2,244)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
119
116
     $ EPS)
120
 
C     Amplitude(s) for UVCT diagram with ID 161
 
117
C     Amplitude(s) for UVCT diagram with ID 143
121
118
      CALL MP_FFV2_0(W(1,11),W(1,12),W(1,3),GC_47,AMPL(1,245))
122
119
      AMPL(1,245)=AMPL(1,245)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
123
120
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
124
 
C     Amplitude(s) for UVCT diagram with ID 162
 
121
C     Amplitude(s) for UVCT diagram with ID 144
125
122
      CALL MP_FFV2_0(W(1,11),W(1,12),W(1,3),GC_47,AMPL(2,246))
126
123
      AMPL(2,246)=AMPL(2,246)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
127
124
     $ EPS)
128
 
C     Amplitude(s) for UVCT diagram with ID 163
 
125
C     Amplitude(s) for UVCT diagram with ID 145
129
126
      CALL MP_FFV1_0(W(1,11),W(1,7),W(1,2),GC_5,AMPL(1,247))
130
127
      AMPL(1,247)=AMPL(1,247)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
131
128
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
132
 
C     Amplitude(s) for UVCT diagram with ID 164
 
129
C     Amplitude(s) for UVCT diagram with ID 146
133
130
      CALL MP_FFV1_0(W(1,11),W(1,7),W(1,2),GC_5,AMPL(2,248))
134
131
      AMPL(2,248)=AMPL(2,248)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
135
132
     $ EPS)
136
 
C     Amplitude(s) for UVCT diagram with ID 165
 
133
C     Amplitude(s) for UVCT diagram with ID 147
137
134
      CALL MP_FFV1_0(W(1,8),W(1,12),W(1,1),GC_5,AMPL(1,249))
138
135
      AMPL(1,249)=AMPL(1,249)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
139
136
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
140
 
C     Amplitude(s) for UVCT diagram with ID 166
 
137
C     Amplitude(s) for UVCT diagram with ID 148
141
138
      CALL MP_FFV1_0(W(1,8),W(1,12),W(1,1),GC_5,AMPL(2,250))
142
139
      AMPL(2,250)=AMPL(2,250)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
143
140
     $ EPS)
144
 
C     Amplitude(s) for UVCT diagram with ID 167
 
141
C     Amplitude(s) for UVCT diagram with ID 149
145
142
      CALL MP_FFV1_0(W(1,10),W(1,7),W(1,1),GC_5,AMPL(1,251))
146
143
      AMPL(1,251)=AMPL(1,251)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
147
144
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
148
 
C     Amplitude(s) for UVCT diagram with ID 168
 
145
C     Amplitude(s) for UVCT diagram with ID 150
149
146
      CALL MP_FFV1_0(W(1,10),W(1,7),W(1,1),GC_5,AMPL(2,252))
150
147
      AMPL(2,252)=AMPL(2,252)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
151
148
     $ EPS)