← 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/helas_calls_ampb_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/helas_calls_ampb_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
      INTEGER NBORNAMPS
 
12
      PARAMETER (NBORNAMPS=8)
13
13
      INTEGER    NLOOPS, NLOOPGROUPS, NCTAMPS
14
 
      PARAMETER (NLOOPS=162, NLOOPGROUPS=77, NCTAMPS=252)
 
14
      PARAMETER (NLOOPS=144, NLOOPGROUPS=77, NCTAMPS=252)
 
15
      INTEGER    NLOOPAMPS
 
16
      PARAMETER (NLOOPAMPS=396)
15
17
      INTEGER    NWAVEFUNCS,NLOOPWAVEFUNCS
16
 
      PARAMETER (NWAVEFUNCS=28,NLOOPWAVEFUNCS=300)
 
18
      PARAMETER (NWAVEFUNCS=28,NLOOPWAVEFUNCS=267)
17
19
      INTEGER MAXLWFSIZE
18
20
      PARAMETER (MAXLWFSIZE=4)
19
21
      INTEGER LOOPMAXCOEFS, VERTEXMAXCOEFS
79
81
      COMPLEX*16 PL(0:3,0:NLOOPWAVEFUNCS)
80
82
      COMMON/ML5_0_WL/WL,PL
81
83
 
82
 
      COMPLEX*16 LOOPCOEFS(0:LOOPMAXCOEFS-1,NSQUAREDSO,NLOOPGROUPS)
83
 
      COMMON/ML5_0_LCOEFS/LOOPCOEFS
84
 
 
85
84
      COMPLEX*16 AMPL(3,NCTAMPS)
86
85
      COMMON/ML5_0_AMPL/AMPL
87
86
 
88
 
      COMPLEX*16 LOOPRES(3,NSQUAREDSO,NLOOPGROUPS)
89
 
      LOGICAL S(NSQUAREDSO,NLOOPGROUPS)
90
 
      COMMON/ML5_0_LOOPRES/LOOPRES,S
91
87
C     
92
88
C     ----------
93
89
C     BEGIN CODE
130
126
      CALL FFV1P0_3(W(1,5),W(1,7),GC_5,ZERO,ZERO,W(1,13))
131
127
C     Counter-term amplitude(s) for loop diagram number 9
132
128
      CALL R2_GG_1_0(W(1,6),W(1,13),R2_GGQ,AMPL(1,1))
 
129
      CALL R2_GG_1_0(W(1,6),W(1,13),R2_GGQ,AMPL(1,2))
 
130
      CALL R2_GG_1_0(W(1,6),W(1,13),R2_GGQ,AMPL(1,3))
 
131
      CALL R2_GG_1_0(W(1,6),W(1,13),R2_GGQ,AMPL(1,4))
133
132
      CALL FFV1P0_3(W(1,8),W(1,4),GC_5,ZERO,ZERO,W(1,14))
134
133
C     Counter-term amplitude(s) for loop diagram number 10
135
 
      CALL R2_GG_1_0(W(1,6),W(1,14),R2_GGQ,AMPL(1,2))
 
134
      CALL R2_GG_1_0(W(1,6),W(1,14),R2_GGQ,AMPL(1,5))
 
135
      CALL R2_GG_1_0(W(1,6),W(1,14),R2_GGQ,AMPL(1,6))
 
136
      CALL R2_GG_1_0(W(1,6),W(1,14),R2_GGQ,AMPL(1,7))
 
137
      CALL R2_GG_1_0(W(1,6),W(1,14),R2_GGQ,AMPL(1,8))
136
138
C     Counter-term amplitude(s) for loop diagram number 11
137
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GB_1EPS,AMPL(2,3))
138
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GB_1EPS,AMPL(2,4))
139
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GB_1EPS,AMPL(2,5))
140
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GB_1EPS,AMPL(2,6))
141
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GB,AMPL(1,7))
142
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GB_1EPS,AMPL(2,8))
143
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GT,AMPL(1,9))
 
139
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GB_1EPS,AMPL(2,9))
144
140
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GB_1EPS,AMPL(2,10))
145
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GG_1EPS,AMPL(2,11))
146
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),R2_3GQ,AMPL(1,12))
 
141
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GB_1EPS,AMPL(2,11))
 
142
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GB_1EPS,AMPL(2,12))
 
143
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GB,AMPL(1,13))
 
144
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GB_1EPS,AMPL(2,14))
 
145
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GT,AMPL(1,15))
 
146
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GB_1EPS,AMPL(2,16))
 
147
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),UV_3GG_1EPS,AMPL(2,17))
 
148
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),R2_3GQ,AMPL(1,18))
 
149
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),R2_3GQ,AMPL(1,19))
 
150
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),R2_3GQ,AMPL(1,20))
 
151
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),R2_3GQ,AMPL(1,21))
147
152
C     Counter-term amplitude(s) for loop diagram number 12
148
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GB_1EPS,AMPL(2,13))
149
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GB_1EPS,AMPL(2,14))
150
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GB_1EPS,AMPL(2,15))
151
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GB_1EPS,AMPL(2,16))
152
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GB,AMPL(1,17))
153
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GB_1EPS,AMPL(2,18))
154
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GT,AMPL(1,19))
155
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GB_1EPS,AMPL(2,20))
156
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GG_1EPS,AMPL(2,21))
157
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),R2_3GQ,AMPL(1,22))
158
 
C     Counter-term amplitude(s) for loop diagram number 15
159
 
      CALL R2_GG_1_0(W(1,6),W(1,13),R2_GGQ,AMPL(1,23))
160
 
C     Counter-term amplitude(s) for loop diagram number 16
161
 
      CALL R2_GG_1_0(W(1,6),W(1,14),R2_GGQ,AMPL(1,24))
162
 
C     Counter-term amplitude(s) for loop diagram number 17
163
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),R2_3GQ,AMPL(1,25))
164
 
C     Counter-term amplitude(s) for loop diagram number 18
165
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),R2_3GQ,AMPL(1,26))
166
 
C     Counter-term amplitude(s) for loop diagram number 21
167
 
      CALL R2_GG_1_0(W(1,6),W(1,13),R2_GGQ,AMPL(1,27))
168
 
C     Counter-term amplitude(s) for loop diagram number 22
169
 
      CALL R2_GG_1_0(W(1,6),W(1,14),R2_GGQ,AMPL(1,28))
170
 
C     Counter-term amplitude(s) for loop diagram number 23
171
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),R2_3GQ,AMPL(1,29))
172
 
C     Counter-term amplitude(s) for loop diagram number 24
173
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),R2_3GQ,AMPL(1,30))
174
 
C     Counter-term amplitude(s) for loop diagram number 27
175
 
      CALL R2_GG_1_0(W(1,6),W(1,13),R2_GGQ,AMPL(1,31))
176
 
C     Counter-term amplitude(s) for loop diagram number 28
177
 
      CALL R2_GG_1_0(W(1,6),W(1,14),R2_GGQ,AMPL(1,32))
178
 
C     Counter-term amplitude(s) for loop diagram number 29
179
 
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),R2_3GQ,AMPL(1,33))
180
 
C     Counter-term amplitude(s) for loop diagram number 30
 
153
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GB_1EPS,AMPL(2,22))
 
154
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GB_1EPS,AMPL(2,23))
 
155
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GB_1EPS,AMPL(2,24))
 
156
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GB_1EPS,AMPL(2,25))
 
157
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GB,AMPL(1,26))
 
158
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GB_1EPS,AMPL(2,27))
 
159
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GT,AMPL(1,28))
 
160
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GB_1EPS,AMPL(2,29))
 
161
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),UV_3GG_1EPS,AMPL(2,30))
 
162
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),R2_3GQ,AMPL(1,31))
 
163
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),R2_3GQ,AMPL(1,32))
 
164
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),R2_3GQ,AMPL(1,33))
181
165
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),R2_3GQ,AMPL(1,34))
182
166
      CALL FFV1_2(W(1,5),W(1,6),GC_5,MDL_MB,ZERO,W(1,15))
183
 
C     Counter-term amplitude(s) for loop diagram number 33
 
167
C     Counter-term amplitude(s) for loop diagram number 15
184
168
      CALL R2_QQ_1_R2_QQ_2_0(W(1,15),W(1,7),R2_QQQ,R2_QQB,AMPL(1,35))
185
169
      CALL R2_QQ_2_0(W(1,15),W(1,7),UV_BMASS,AMPL(1,36))
186
170
      CALL R2_QQ_2_0(W(1,15),W(1,7),UV_BMASS_1EPS,AMPL(2,37))
187
 
C     Counter-term amplitude(s) for loop diagram number 34
 
171
C     Counter-term amplitude(s) for loop diagram number 16
188
172
      CALL R2_GG_1_R2_GG_3_0(W(1,6),W(1,13),R2_GGQ,R2_GGB,AMPL(1,38))
189
 
C     Counter-term amplitude(s) for loop diagram number 35
 
173
C     Counter-term amplitude(s) for loop diagram number 17
190
174
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQQ_1EPS,AMPL(2,39))
191
175
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQQ_1EPS,AMPL(2,40))
192
176
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQQ_1EPS,AMPL(2,41))
197
181
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQQ_1EPS,AMPL(2,46))
198
182
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQG_1EPS,AMPL(2,47))
199
183
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),R2_GQQ,AMPL(1,48))
200
 
C     Counter-term amplitude(s) for loop diagram number 37
 
184
C     Counter-term amplitude(s) for loop diagram number 19
201
185
      CALL R2_GG_1_R2_GG_3_0(W(1,6),W(1,14),R2_GGQ,R2_GGB,AMPL(1,49))
202
 
C     Counter-term amplitude(s) for loop diagram number 38
 
186
C     Counter-term amplitude(s) for loop diagram number 20
203
187
      CALL FFV2_0(W(1,15),W(1,4),W(1,3),R2_SXCW,AMPL(1,50))
204
188
      CALL FFV1_1(W(1,4),W(1,6),GC_5,MDL_MT,MDL_WT,W(1,16))
205
 
C     Counter-term amplitude(s) for loop diagram number 41
 
189
C     Counter-term amplitude(s) for loop diagram number 23
206
190
      CALL FFV2_0(W(1,5),W(1,16),W(1,3),R2_SXCW,AMPL(1,51))
207
191
      CALL FFV2_1(W(1,9),W(1,3),GC_47,MDL_MB,ZERO,W(1,17))
208
 
C     Counter-term amplitude(s) for loop diagram number 43
 
192
C     Counter-term amplitude(s) for loop diagram number 25
209
193
      CALL R2_QQ_1_R2_QQ_2_0(W(1,10),W(1,17),R2_QQQ,R2_QQB,AMPL(1,52))
210
194
      CALL R2_QQ_2_0(W(1,10),W(1,17),UV_BMASS,AMPL(1,53))
211
195
      CALL R2_QQ_2_0(W(1,10),W(1,17),UV_BMASS_1EPS,AMPL(2,54))
212
 
C     Counter-term amplitude(s) for loop diagram number 44
 
196
C     Counter-term amplitude(s) for loop diagram number 26
213
197
      CALL FFV2_0(W(1,10),W(1,9),W(1,3),R2_SXCW,AMPL(1,55))
214
 
C     Counter-term amplitude(s) for loop diagram number 45
 
198
C     Counter-term amplitude(s) for loop diagram number 27
215
199
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQQ_1EPS,AMPL(2,56))
216
200
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQQ_1EPS,AMPL(2,57))
217
201
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQQ_1EPS,AMPL(2,58))
223
207
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQG_1EPS,AMPL(2,64))
224
208
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),R2_GQQ,AMPL(1,65))
225
209
      CALL FFV1_1(W(1,9),W(1,2),GC_5,MDL_MT,MDL_WT,W(1,18))
226
 
C     Counter-term amplitude(s) for loop diagram number 47
 
210
C     Counter-term amplitude(s) for loop diagram number 29
227
211
      CALL FFV2_0(W(1,5),W(1,18),W(1,3),R2_SXCW,AMPL(1,66))
228
212
      CALL FFV2_1(W(1,12),W(1,3),GC_47,MDL_MB,ZERO,W(1,19))
229
 
C     Counter-term amplitude(s) for loop diagram number 51
 
213
C     Counter-term amplitude(s) for loop diagram number 33
230
214
      CALL R2_QQ_1_R2_QQ_2_0(W(1,11),W(1,19),R2_QQQ,R2_QQB,AMPL(1,67))
231
215
      CALL R2_QQ_2_0(W(1,11),W(1,19),UV_BMASS,AMPL(1,68))
232
216
      CALL R2_QQ_2_0(W(1,11),W(1,19),UV_BMASS_1EPS,AMPL(2,69))
233
 
C     Counter-term amplitude(s) for loop diagram number 52
 
217
C     Counter-term amplitude(s) for loop diagram number 34
234
218
      CALL FFV2_0(W(1,11),W(1,12),W(1,3),R2_SXCW,AMPL(1,70))
235
 
C     Counter-term amplitude(s) for loop diagram number 53
 
219
C     Counter-term amplitude(s) for loop diagram number 35
236
220
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQQ_1EPS,AMPL(2,71))
237
221
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQQ_1EPS,AMPL(2,72))
238
222
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQQ_1EPS,AMPL(2,73))
244
228
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQG_1EPS,AMPL(2,79))
245
229
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),R2_GQQ,AMPL(1,80))
246
230
      CALL FFV1_2(W(1,11),W(1,2),GC_5,MDL_MB,ZERO,W(1,20))
247
 
C     Counter-term amplitude(s) for loop diagram number 55
 
231
C     Counter-term amplitude(s) for loop diagram number 37
248
232
      CALL R2_QQ_1_R2_QQ_2_0(W(1,20),W(1,7),R2_QQQ,R2_QQB,AMPL(1,81))
249
233
      CALL R2_QQ_2_0(W(1,20),W(1,7),UV_BMASS,AMPL(1,82))
250
234
      CALL R2_QQ_2_0(W(1,20),W(1,7),UV_BMASS_1EPS,AMPL(2,83))
251
235
      CALL FFV1_1(W(1,7),W(1,2),GC_5,MDL_MB,ZERO,W(1,21))
252
 
C     Counter-term amplitude(s) for loop diagram number 56
 
236
C     Counter-term amplitude(s) for loop diagram number 38
253
237
      CALL R2_QQ_1_R2_QQ_2_0(W(1,11),W(1,21),R2_QQQ,R2_QQB,AMPL(1,84))
254
238
      CALL R2_QQ_2_0(W(1,11),W(1,21),UV_BMASS,AMPL(1,85))
255
239
      CALL R2_QQ_2_0(W(1,11),W(1,21),UV_BMASS_1EPS,AMPL(2,86))
256
 
C     Counter-term amplitude(s) for loop diagram number 58
 
240
C     Counter-term amplitude(s) for loop diagram number 40
257
241
      CALL FFV2_0(W(1,20),W(1,4),W(1,3),R2_SXCW,AMPL(1,87))
258
 
C     Counter-term amplitude(s) for loop diagram number 61
 
242
C     Counter-term amplitude(s) for loop diagram number 43
259
243
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQQ_1EPS,AMPL(2,88))
260
244
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQQ_1EPS,AMPL(2,89))
261
245
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQQ_1EPS,AMPL(2,90))
266
250
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQQ_1EPS,AMPL(2,95))
267
251
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQG_1EPS,AMPL(2,96))
268
252
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),R2_GQQ,AMPL(1,97))
269
 
C     Counter-term amplitude(s) for loop diagram number 63
 
253
C     Counter-term amplitude(s) for loop diagram number 45
270
254
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQQ_1EPS,AMPL(2,98))
271
255
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQQ_1EPS,AMPL(2,99))
272
256
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQQ_1EPS,AMPL(2,100))
277
261
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQQ_1EPS,AMPL(2,105))
278
262
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQG_1EPS,AMPL(2,106))
279
263
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),R2_GQQ,AMPL(1,107))
280
 
C     Counter-term amplitude(s) for loop diagram number 66
 
264
C     Counter-term amplitude(s) for loop diagram number 48
281
265
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),R2_3GQ,AMPL(1,108))
282
 
C     Counter-term amplitude(s) for loop diagram number 68
 
266
C     Counter-term amplitude(s) for loop diagram number 50
283
267
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),R2_3GQ,AMPL(1,109))
284
 
C     Counter-term amplitude(s) for loop diagram number 71
 
268
C     Counter-term amplitude(s) for loop diagram number 53
285
269
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQQ_1EPS,AMPL(2,110))
286
270
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQQ_1EPS,AMPL(2,111))
287
271
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQQ_1EPS,AMPL(2,112))
293
277
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQG_1EPS,AMPL(2,118))
294
278
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),R2_GQQ,AMPL(1,119))
295
279
      CALL FFV1_1(W(1,12),W(1,1),GC_5,MDL_MT,MDL_WT,W(1,22))
296
 
C     Counter-term amplitude(s) for loop diagram number 77
 
280
C     Counter-term amplitude(s) for loop diagram number 59
297
281
      CALL FFV2_0(W(1,5),W(1,22),W(1,3),R2_SXCW,AMPL(1,120))
298
282
      CALL FFV1_2(W(1,10),W(1,1),GC_5,MDL_MB,ZERO,W(1,23))
299
 
C     Counter-term amplitude(s) for loop diagram number 81
 
283
C     Counter-term amplitude(s) for loop diagram number 63
300
284
      CALL R2_QQ_1_R2_QQ_2_0(W(1,23),W(1,7),R2_QQQ,R2_QQB,AMPL(1,121))
301
285
      CALL R2_QQ_2_0(W(1,23),W(1,7),UV_BMASS,AMPL(1,122))
302
286
      CALL R2_QQ_2_0(W(1,23),W(1,7),UV_BMASS_1EPS,AMPL(2,123))
303
287
      CALL FFV1_1(W(1,7),W(1,1),GC_5,MDL_MB,ZERO,W(1,24))
304
 
C     Counter-term amplitude(s) for loop diagram number 82
 
288
C     Counter-term amplitude(s) for loop diagram number 64
305
289
      CALL R2_QQ_1_R2_QQ_2_0(W(1,10),W(1,24),R2_QQQ,R2_QQB,AMPL(1,124))
306
290
      CALL R2_QQ_2_0(W(1,10),W(1,24),UV_BMASS,AMPL(1,125))
307
291
      CALL R2_QQ_2_0(W(1,10),W(1,24),UV_BMASS_1EPS,AMPL(2,126))
308
 
C     Counter-term amplitude(s) for loop diagram number 84
 
292
C     Counter-term amplitude(s) for loop diagram number 66
309
293
      CALL FFV2_0(W(1,23),W(1,4),W(1,3),R2_SXCW,AMPL(1,127))
310
 
C     Counter-term amplitude(s) for loop diagram number 87
 
294
C     Counter-term amplitude(s) for loop diagram number 69
311
295
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQQ_1EPS,AMPL(2,128))
312
296
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQQ_1EPS,AMPL(2,129))
313
297
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQQ_1EPS,AMPL(2,130))
318
302
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQQ_1EPS,AMPL(2,135))
319
303
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQG_1EPS,AMPL(2,136))
320
304
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),R2_GQQ,AMPL(1,137))
321
 
C     Counter-term amplitude(s) for loop diagram number 103
 
305
C     Counter-term amplitude(s) for loop diagram number 85
322
306
      CALL R2_GG_1_R2_GG_3_0(W(1,6),W(1,13),R2_GGQ,R2_GGT,AMPL(1,138))
323
 
C     Counter-term amplitude(s) for loop diagram number 104
 
307
C     Counter-term amplitude(s) for loop diagram number 86
324
308
      CALL R2_QQ_1_R2_QQ_2_0(W(1,8),W(1,16),R2_QQQ,R2_QQT,AMPL(1,139))
325
309
      CALL R2_QQ_2_0(W(1,8),W(1,16),UV_TMASS,AMPL(1,140))
326
310
      CALL R2_QQ_2_0(W(1,8),W(1,16),UV_TMASS_1EPS,AMPL(2,141))
327
 
C     Counter-term amplitude(s) for loop diagram number 105
 
311
C     Counter-term amplitude(s) for loop diagram number 87
328
312
      CALL R2_GG_1_R2_GG_3_0(W(1,6),W(1,14),R2_GGQ,R2_GGT,AMPL(1,142))
329
 
C     Counter-term amplitude(s) for loop diagram number 106
 
313
C     Counter-term amplitude(s) for loop diagram number 88
330
314
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQQ_1EPS,AMPL(2,143))
331
315
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQQ_1EPS,AMPL(2,144))
332
316
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQQ_1EPS,AMPL(2,145))
338
322
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQG_1EPS,AMPL(2,151))
339
323
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),R2_GQQ,AMPL(1,152))
340
324
      CALL FFV2_2(W(1,10),W(1,3),GC_47,MDL_MT,MDL_WT,W(1,25))
341
 
C     Counter-term amplitude(s) for loop diagram number 108
 
325
C     Counter-term amplitude(s) for loop diagram number 90
342
326
      CALL R2_QQ_1_R2_QQ_2_0(W(1,25),W(1,9),R2_QQQ,R2_QQT,AMPL(1,153))
343
327
      CALL R2_QQ_2_0(W(1,25),W(1,9),UV_TMASS,AMPL(1,154))
344
328
      CALL R2_QQ_2_0(W(1,25),W(1,9),UV_TMASS_1EPS,AMPL(2,155))
345
 
C     Counter-term amplitude(s) for loop diagram number 109
 
329
C     Counter-term amplitude(s) for loop diagram number 91
346
330
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQQ_1EPS,AMPL(2,156))
347
331
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQQ_1EPS,AMPL(2,157))
348
332
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQQ_1EPS,AMPL(2,158))
353
337
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQQ_1EPS,AMPL(2,163))
354
338
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQG_1EPS,AMPL(2,164))
355
339
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),R2_GQQ,AMPL(1,165))
356
 
C     Counter-term amplitude(s) for loop diagram number 110
 
340
C     Counter-term amplitude(s) for loop diagram number 92
357
341
      CALL R2_QQ_1_R2_QQ_2_0(W(1,8),W(1,18),R2_QQQ,R2_QQT,AMPL(1,166))
358
342
      CALL R2_QQ_2_0(W(1,8),W(1,18),UV_TMASS,AMPL(1,167))
359
343
      CALL R2_QQ_2_0(W(1,8),W(1,18),UV_TMASS_1EPS,AMPL(2,168))
360
344
      CALL FFV1_2(W(1,8),W(1,2),GC_5,MDL_MT,MDL_WT,W(1,26))
361
 
C     Counter-term amplitude(s) for loop diagram number 111
 
345
C     Counter-term amplitude(s) for loop diagram number 93
362
346
      CALL R2_QQ_1_R2_QQ_2_0(W(1,26),W(1,9),R2_QQQ,R2_QQT,AMPL(1,169))
363
347
      CALL R2_QQ_2_0(W(1,26),W(1,9),UV_TMASS,AMPL(1,170))
364
348
      CALL R2_QQ_2_0(W(1,26),W(1,9),UV_TMASS_1EPS,AMPL(2,171))
365
349
      CALL FFV2_2(W(1,11),W(1,3),GC_47,MDL_MT,MDL_WT,W(1,27))
366
 
C     Counter-term amplitude(s) for loop diagram number 113
 
350
C     Counter-term amplitude(s) for loop diagram number 95
367
351
      CALL R2_QQ_1_R2_QQ_2_0(W(1,27),W(1,12),R2_QQQ,R2_QQT,AMPL(1,172))
368
352
      CALL R2_QQ_2_0(W(1,27),W(1,12),UV_TMASS,AMPL(1,173))
369
353
      CALL R2_QQ_2_0(W(1,27),W(1,12),UV_TMASS_1EPS,AMPL(2,174))
370
 
C     Counter-term amplitude(s) for loop diagram number 114
 
354
C     Counter-term amplitude(s) for loop diagram number 96
371
355
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,175))
372
356
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,176))
373
357
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,177))
378
362
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,182))
379
363
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQG_1EPS,AMPL(2,183))
380
364
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),R2_GQQ,AMPL(1,184))
381
 
C     Counter-term amplitude(s) for loop diagram number 116
 
365
C     Counter-term amplitude(s) for loop diagram number 98
382
366
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQQ_1EPS,AMPL(2,185))
383
367
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQQ_1EPS,AMPL(2,186))
384
368
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQQ_1EPS,AMPL(2,187))
389
373
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQQ_1EPS,AMPL(2,192))
390
374
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQG_1EPS,AMPL(2,193))
391
375
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),R2_GQQ,AMPL(1,194))
392
 
C     Counter-term amplitude(s) for loop diagram number 117
 
376
C     Counter-term amplitude(s) for loop diagram number 99
393
377
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,195))
394
378
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,196))
395
379
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,197))
400
384
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,202))
401
385
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQG_1EPS,AMPL(2,203))
402
386
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),R2_GQQ,AMPL(1,204))
403
 
C     Counter-term amplitude(s) for loop diagram number 118
 
387
C     Counter-term amplitude(s) for loop diagram number 100
404
388
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),R2_3GQ,AMPL(1,205))
405
 
C     Counter-term amplitude(s) for loop diagram number 119
 
389
C     Counter-term amplitude(s) for loop diagram number 101
406
390
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),R2_3GQ,AMPL(1,206))
407
 
C     Counter-term amplitude(s) for loop diagram number 125
 
391
C     Counter-term amplitude(s) for loop diagram number 107
408
392
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,207))
409
393
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,208))
410
394
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,209))
415
399
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,214))
416
400
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQG_1EPS,AMPL(2,215))
417
401
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),R2_GQQ,AMPL(1,216))
418
 
C     Counter-term amplitude(s) for loop diagram number 126
 
402
C     Counter-term amplitude(s) for loop diagram number 108
419
403
      CALL R2_QQ_1_R2_QQ_2_0(W(1,8),W(1,22),R2_QQQ,R2_QQT,AMPL(1,217))
420
404
      CALL R2_QQ_2_0(W(1,8),W(1,22),UV_TMASS,AMPL(1,218))
421
405
      CALL R2_QQ_2_0(W(1,8),W(1,22),UV_TMASS_1EPS,AMPL(2,219))
422
406
      CALL FFV1_2(W(1,8),W(1,1),GC_5,MDL_MT,MDL_WT,W(1,28))
423
 
C     Counter-term amplitude(s) for loop diagram number 127
 
407
C     Counter-term amplitude(s) for loop diagram number 109
424
408
      CALL R2_QQ_1_R2_QQ_2_0(W(1,28),W(1,12),R2_QQQ,R2_QQT,AMPL(1,220))
425
409
      CALL R2_QQ_2_0(W(1,28),W(1,12),UV_TMASS,AMPL(1,221))
426
410
      CALL R2_QQ_2_0(W(1,28),W(1,12),UV_TMASS_1EPS,AMPL(2,222))
427
 
C     Counter-term amplitude(s) for loop diagram number 130
 
411
C     Counter-term amplitude(s) for loop diagram number 112
428
412
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,223))
429
413
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,224))
430
414
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,225))
435
419
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,230))
436
420
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQG_1EPS,AMPL(2,231))
437
421
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),R2_GQQ,AMPL(1,232))
438
 
C     Counter-term amplitude(s) for loop diagram number 137
 
422
C     Counter-term amplitude(s) for loop diagram number 119
439
423
      CALL R2_GG_1_R2_GG_2_0(W(1,6),W(1,13),R2_GGG_1,R2_GGG_2,AMPL(1
440
424
     $ ,233))
441
 
C     Counter-term amplitude(s) for loop diagram number 138
 
425
C     Counter-term amplitude(s) for loop diagram number 120
442
426
      CALL R2_GG_1_R2_GG_2_0(W(1,6),W(1,14),R2_GGG_1,R2_GGG_2,AMPL(1
443
427
     $ ,234))
444
 
C     Counter-term amplitude(s) for loop diagram number 139
 
428
C     Counter-term amplitude(s) for loop diagram number 121
445
429
      CALL VVV1_0(W(1,1),W(1,2),W(1,13),R2_3GG,AMPL(1,235))
446
 
C     Counter-term amplitude(s) for loop diagram number 140
 
430
C     Counter-term amplitude(s) for loop diagram number 122
447
431
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),R2_3GG,AMPL(1,236))
448
432
 
449
433
      GOTO 1001