~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: 2020-08-21 09:16:56 UTC
  • mfrom: (284.2.24 python3)
  • Revision ID: olivier-mattelaer-20200821091656-iizux2mj94tkssuo
pass to 2.8.0 (and move to python3 branch)

Show diffs side-by-side

added added

removed removed

Lines of Context:
101
101
      CALL OXXXXX(P(0,4),MDL_MT,NHEL(4),+1*IC(4),W(1,4))
102
102
      CALL IXXXXX(P(0,5),MDL_MB,NHEL(5),-1*IC(5),W(1,5))
103
103
      CALL VVV1P0_1(W(1,1),W(1,2),GC_4,ZERO,ZERO,W(1,6))
104
 
      CALL FFV2_1(W(1,4),W(1,3),GC_47,MDL_MB,ZERO,W(1,7))
 
104
      CALL FFV2_1(W(1,4),W(1,3),GC_11,MDL_MB,ZERO,W(1,7))
105
105
C     Amplitude(s) for born diagram with ID 1
106
106
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),GC_5,AMP(1))
107
 
      CALL FFV2_2(W(1,5),W(1,3),GC_47,MDL_MT,MDL_WT,W(1,8))
 
107
      CALL FFV2_2(W(1,5),W(1,3),GC_11,MDL_MT,MDL_WT,W(1,8))
108
108
C     Amplitude(s) for born diagram with ID 2
109
109
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),GC_5,AMP(2))
110
110
      CALL FFV1_1(W(1,4),W(1,1),GC_5,MDL_MT,MDL_WT,W(1,9))
111
111
      CALL FFV1_2(W(1,5),W(1,2),GC_5,MDL_MB,ZERO,W(1,10))
112
112
C     Amplitude(s) for born diagram with ID 3
113
 
      CALL FFV2_0(W(1,10),W(1,9),W(1,3),GC_47,AMP(3))
 
113
      CALL FFV2_0(W(1,10),W(1,9),W(1,3),GC_11,AMP(3))
114
114
C     Amplitude(s) for born diagram with ID 4
115
115
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),GC_5,AMP(4))
116
116
      CALL FFV1_2(W(1,5),W(1,1),GC_5,MDL_MB,ZERO,W(1,11))
117
117
      CALL FFV1_1(W(1,4),W(1,2),GC_5,MDL_MT,MDL_WT,W(1,12))
118
118
C     Amplitude(s) for born diagram with ID 5
119
 
      CALL FFV2_0(W(1,11),W(1,12),W(1,3),GC_47,AMP(5))
 
119
      CALL FFV2_0(W(1,11),W(1,12),W(1,3),GC_11,AMP(5))
120
120
C     Amplitude(s) for born diagram with ID 6
121
121
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),GC_5,AMP(6))
122
122
C     Amplitude(s) for born diagram with ID 7
171
171
C     Counter-term amplitude(s) for loop diagram number 16
172
172
      CALL R2_GG_1_R2_GG_3_0(W(1,6),W(1,13),R2_GGQ,R2_GGB,AMPL(1,38))
173
173
C     Counter-term amplitude(s) for loop diagram number 17
174
 
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQQ_1EPS,AMPL(2,39))
175
 
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQQ_1EPS,AMPL(2,40))
176
 
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQQ_1EPS,AMPL(2,41))
177
 
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQQ_1EPS,AMPL(2,42))
 
174
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQB_1EPS,AMPL(2,39))
 
175
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQB_1EPS,AMPL(2,40))
 
176
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQB_1EPS,AMPL(2,41))
 
177
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQB_1EPS,AMPL(2,42))
178
178
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQB,AMPL(1,43))
179
 
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQQ_1EPS,AMPL(2,44))
 
179
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQB_1EPS,AMPL(2,44))
180
180
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQT,AMPL(1,45))
181
 
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQQ_1EPS,AMPL(2,46))
 
181
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQB_1EPS,AMPL(2,46))
182
182
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),UV_GQQG_1EPS,AMPL(2,47))
183
183
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),R2_GQQ,AMPL(1,48))
184
184
C     Counter-term amplitude(s) for loop diagram number 19
185
185
      CALL R2_GG_1_R2_GG_3_0(W(1,6),W(1,14),R2_GGQ,R2_GGB,AMPL(1,49))
186
186
C     Counter-term amplitude(s) for loop diagram number 20
187
 
      CALL FFV2_0(W(1,15),W(1,4),W(1,3),R2_SXCW,AMPL(1,50))
 
187
      CALL FFV2_0(W(1,15),W(1,4),W(1,3),R2_BXTW,AMPL(1,50))
188
188
      CALL FFV1_1(W(1,4),W(1,6),GC_5,MDL_MT,MDL_WT,W(1,16))
189
189
C     Counter-term amplitude(s) for loop diagram number 23
190
 
      CALL FFV2_0(W(1,5),W(1,16),W(1,3),R2_SXCW,AMPL(1,51))
191
 
      CALL FFV2_1(W(1,9),W(1,3),GC_47,MDL_MB,ZERO,W(1,17))
 
190
      CALL FFV2_0(W(1,5),W(1,16),W(1,3),R2_BXTW,AMPL(1,51))
 
191
      CALL FFV2_1(W(1,9),W(1,3),GC_11,MDL_MB,ZERO,W(1,17))
192
192
C     Counter-term amplitude(s) for loop diagram number 25
193
193
      CALL R2_QQ_1_R2_QQ_2_0(W(1,10),W(1,17),R2_QQQ,R2_QQB,AMPL(1,52))
194
194
      CALL R2_QQ_2_0(W(1,10),W(1,17),UV_BMASS,AMPL(1,53))
195
195
      CALL R2_QQ_2_0(W(1,10),W(1,17),UV_BMASS_1EPS,AMPL(2,54))
196
196
C     Counter-term amplitude(s) for loop diagram number 26
197
 
      CALL FFV2_0(W(1,10),W(1,9),W(1,3),R2_SXCW,AMPL(1,55))
 
197
      CALL FFV2_0(W(1,10),W(1,9),W(1,3),R2_BXTW,AMPL(1,55))
198
198
C     Counter-term amplitude(s) for loop diagram number 27
199
 
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQQ_1EPS,AMPL(2,56))
200
 
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQQ_1EPS,AMPL(2,57))
201
 
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQQ_1EPS,AMPL(2,58))
202
 
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQQ_1EPS,AMPL(2,59))
 
199
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQB_1EPS,AMPL(2,56))
 
200
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQB_1EPS,AMPL(2,57))
 
201
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQB_1EPS,AMPL(2,58))
 
202
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQB_1EPS,AMPL(2,59))
203
203
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQB,AMPL(1,60))
204
 
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQQ_1EPS,AMPL(2,61))
 
204
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQB_1EPS,AMPL(2,61))
205
205
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQT,AMPL(1,62))
206
 
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQQ_1EPS,AMPL(2,63))
 
206
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQB_1EPS,AMPL(2,63))
207
207
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),UV_GQQG_1EPS,AMPL(2,64))
208
208
      CALL FFV1_0(W(1,5),W(1,17),W(1,2),R2_GQQ,AMPL(1,65))
209
209
      CALL FFV1_1(W(1,9),W(1,2),GC_5,MDL_MT,MDL_WT,W(1,18))
210
210
C     Counter-term amplitude(s) for loop diagram number 29
211
 
      CALL FFV2_0(W(1,5),W(1,18),W(1,3),R2_SXCW,AMPL(1,66))
212
 
      CALL FFV2_1(W(1,12),W(1,3),GC_47,MDL_MB,ZERO,W(1,19))
 
211
      CALL FFV2_0(W(1,5),W(1,18),W(1,3),R2_BXTW,AMPL(1,66))
 
212
      CALL FFV2_1(W(1,12),W(1,3),GC_11,MDL_MB,ZERO,W(1,19))
213
213
C     Counter-term amplitude(s) for loop diagram number 33
214
214
      CALL R2_QQ_1_R2_QQ_2_0(W(1,11),W(1,19),R2_QQQ,R2_QQB,AMPL(1,67))
215
215
      CALL R2_QQ_2_0(W(1,11),W(1,19),UV_BMASS,AMPL(1,68))
216
216
      CALL R2_QQ_2_0(W(1,11),W(1,19),UV_BMASS_1EPS,AMPL(2,69))
217
217
C     Counter-term amplitude(s) for loop diagram number 34
218
 
      CALL FFV2_0(W(1,11),W(1,12),W(1,3),R2_SXCW,AMPL(1,70))
 
218
      CALL FFV2_0(W(1,11),W(1,12),W(1,3),R2_BXTW,AMPL(1,70))
219
219
C     Counter-term amplitude(s) for loop diagram number 35
220
 
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQQ_1EPS,AMPL(2,71))
221
 
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQQ_1EPS,AMPL(2,72))
222
 
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQQ_1EPS,AMPL(2,73))
223
 
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQQ_1EPS,AMPL(2,74))
 
220
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQB_1EPS,AMPL(2,71))
 
221
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQB_1EPS,AMPL(2,72))
 
222
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQB_1EPS,AMPL(2,73))
 
223
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQB_1EPS,AMPL(2,74))
224
224
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQB,AMPL(1,75))
225
 
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQQ_1EPS,AMPL(2,76))
 
225
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQB_1EPS,AMPL(2,76))
226
226
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQT,AMPL(1,77))
227
 
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQQ_1EPS,AMPL(2,78))
 
227
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQB_1EPS,AMPL(2,78))
228
228
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),UV_GQQG_1EPS,AMPL(2,79))
229
229
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),R2_GQQ,AMPL(1,80))
230
230
      CALL FFV1_2(W(1,11),W(1,2),GC_5,MDL_MB,ZERO,W(1,20))
238
238
      CALL R2_QQ_2_0(W(1,11),W(1,21),UV_BMASS,AMPL(1,85))
239
239
      CALL R2_QQ_2_0(W(1,11),W(1,21),UV_BMASS_1EPS,AMPL(2,86))
240
240
C     Counter-term amplitude(s) for loop diagram number 40
241
 
      CALL FFV2_0(W(1,20),W(1,4),W(1,3),R2_SXCW,AMPL(1,87))
 
241
      CALL FFV2_0(W(1,20),W(1,4),W(1,3),R2_BXTW,AMPL(1,87))
242
242
C     Counter-term amplitude(s) for loop diagram number 43
243
 
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQQ_1EPS,AMPL(2,88))
244
 
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQQ_1EPS,AMPL(2,89))
245
 
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQQ_1EPS,AMPL(2,90))
246
 
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQQ_1EPS,AMPL(2,91))
 
243
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQB_1EPS,AMPL(2,88))
 
244
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQB_1EPS,AMPL(2,89))
 
245
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQB_1EPS,AMPL(2,90))
 
246
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQB_1EPS,AMPL(2,91))
247
247
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQB,AMPL(1,92))
248
 
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQQ_1EPS,AMPL(2,93))
 
248
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQB_1EPS,AMPL(2,93))
249
249
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQT,AMPL(1,94))
250
 
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQQ_1EPS,AMPL(2,95))
 
250
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQB_1EPS,AMPL(2,95))
251
251
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),UV_GQQG_1EPS,AMPL(2,96))
252
252
      CALL FFV1_0(W(1,5),W(1,19),W(1,1),R2_GQQ,AMPL(1,97))
253
253
C     Counter-term amplitude(s) for loop diagram number 45
254
 
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQQ_1EPS,AMPL(2,98))
255
 
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQQ_1EPS,AMPL(2,99))
256
 
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQQ_1EPS,AMPL(2,100))
257
 
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQQ_1EPS,AMPL(2,101))
 
254
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQB_1EPS,AMPL(2,98))
 
255
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQB_1EPS,AMPL(2,99))
 
256
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQB_1EPS,AMPL(2,100))
 
257
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQB_1EPS,AMPL(2,101))
258
258
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQB,AMPL(1,102))
259
 
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQQ_1EPS,AMPL(2,103))
 
259
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQB_1EPS,AMPL(2,103))
260
260
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQT,AMPL(1,104))
261
 
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQQ_1EPS,AMPL(2,105))
 
261
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQB_1EPS,AMPL(2,105))
262
262
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),UV_GQQG_1EPS,AMPL(2,106))
263
263
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),R2_GQQ,AMPL(1,107))
264
264
C     Counter-term amplitude(s) for loop diagram number 48
266
266
C     Counter-term amplitude(s) for loop diagram number 50
267
267
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),R2_3GQ,AMPL(1,109))
268
268
C     Counter-term amplitude(s) for loop diagram number 53
269
 
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQQ_1EPS,AMPL(2,110))
270
 
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQQ_1EPS,AMPL(2,111))
271
 
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQQ_1EPS,AMPL(2,112))
272
 
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQQ_1EPS,AMPL(2,113))
 
269
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQB_1EPS,AMPL(2,110))
 
270
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQB_1EPS,AMPL(2,111))
 
271
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQB_1EPS,AMPL(2,112))
 
272
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQB_1EPS,AMPL(2,113))
273
273
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQB,AMPL(1,114))
274
 
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQQ_1EPS,AMPL(2,115))
 
274
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQB_1EPS,AMPL(2,115))
275
275
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQT,AMPL(1,116))
276
 
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQQ_1EPS,AMPL(2,117))
 
276
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQB_1EPS,AMPL(2,117))
277
277
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),UV_GQQG_1EPS,AMPL(2,118))
278
278
      CALL FFV1_0(W(1,5),W(1,21),W(1,1),R2_GQQ,AMPL(1,119))
279
279
      CALL FFV1_1(W(1,12),W(1,1),GC_5,MDL_MT,MDL_WT,W(1,22))
280
280
C     Counter-term amplitude(s) for loop diagram number 59
281
 
      CALL FFV2_0(W(1,5),W(1,22),W(1,3),R2_SXCW,AMPL(1,120))
 
281
      CALL FFV2_0(W(1,5),W(1,22),W(1,3),R2_BXTW,AMPL(1,120))
282
282
      CALL FFV1_2(W(1,10),W(1,1),GC_5,MDL_MB,ZERO,W(1,23))
283
283
C     Counter-term amplitude(s) for loop diagram number 63
284
284
      CALL R2_QQ_1_R2_QQ_2_0(W(1,23),W(1,7),R2_QQQ,R2_QQB,AMPL(1,121))
290
290
      CALL R2_QQ_2_0(W(1,10),W(1,24),UV_BMASS,AMPL(1,125))
291
291
      CALL R2_QQ_2_0(W(1,10),W(1,24),UV_BMASS_1EPS,AMPL(2,126))
292
292
C     Counter-term amplitude(s) for loop diagram number 66
293
 
      CALL FFV2_0(W(1,23),W(1,4),W(1,3),R2_SXCW,AMPL(1,127))
 
293
      CALL FFV2_0(W(1,23),W(1,4),W(1,3),R2_BXTW,AMPL(1,127))
294
294
C     Counter-term amplitude(s) for loop diagram number 69
295
 
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQQ_1EPS,AMPL(2,128))
296
 
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQQ_1EPS,AMPL(2,129))
297
 
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQQ_1EPS,AMPL(2,130))
298
 
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQQ_1EPS,AMPL(2,131))
 
295
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQB_1EPS,AMPL(2,128))
 
296
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQB_1EPS,AMPL(2,129))
 
297
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQB_1EPS,AMPL(2,130))
 
298
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQB_1EPS,AMPL(2,131))
299
299
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQB,AMPL(1,132))
300
 
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQQ_1EPS,AMPL(2,133))
 
300
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQB_1EPS,AMPL(2,133))
301
301
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQT,AMPL(1,134))
302
 
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQQ_1EPS,AMPL(2,135))
 
302
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQB_1EPS,AMPL(2,135))
303
303
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),UV_GQQG_1EPS,AMPL(2,136))
304
304
      CALL FFV1_0(W(1,5),W(1,24),W(1,2),R2_GQQ,AMPL(1,137))
305
305
C     Counter-term amplitude(s) for loop diagram number 85
311
311
C     Counter-term amplitude(s) for loop diagram number 87
312
312
      CALL R2_GG_1_R2_GG_3_0(W(1,6),W(1,14),R2_GGQ,R2_GGT,AMPL(1,142))
313
313
C     Counter-term amplitude(s) for loop diagram number 88
314
 
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQQ_1EPS,AMPL(2,143))
315
 
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQQ_1EPS,AMPL(2,144))
316
 
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQQ_1EPS,AMPL(2,145))
317
 
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQQ_1EPS,AMPL(2,146))
 
314
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQB_1EPS,AMPL(2,143))
 
315
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQB_1EPS,AMPL(2,144))
 
316
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQB_1EPS,AMPL(2,145))
 
317
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQB_1EPS,AMPL(2,146))
318
318
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQB,AMPL(1,147))
319
 
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQQ_1EPS,AMPL(2,148))
 
319
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQB_1EPS,AMPL(2,148))
320
320
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQT,AMPL(1,149))
321
 
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQQ_1EPS,AMPL(2,150))
 
321
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQB_1EPS,AMPL(2,150))
322
322
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),UV_GQQG_1EPS,AMPL(2,151))
323
323
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),R2_GQQ,AMPL(1,152))
324
 
      CALL FFV2_2(W(1,10),W(1,3),GC_47,MDL_MT,MDL_WT,W(1,25))
 
324
      CALL FFV2_2(W(1,10),W(1,3),GC_11,MDL_MT,MDL_WT,W(1,25))
325
325
C     Counter-term amplitude(s) for loop diagram number 90
326
326
      CALL R2_QQ_1_R2_QQ_2_0(W(1,25),W(1,9),R2_QQQ,R2_QQT,AMPL(1,153))
327
327
      CALL R2_QQ_2_0(W(1,25),W(1,9),UV_TMASS,AMPL(1,154))
328
328
      CALL R2_QQ_2_0(W(1,25),W(1,9),UV_TMASS_1EPS,AMPL(2,155))
329
329
C     Counter-term amplitude(s) for loop diagram number 91
330
 
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQQ_1EPS,AMPL(2,156))
331
 
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQQ_1EPS,AMPL(2,157))
332
 
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQQ_1EPS,AMPL(2,158))
333
 
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQQ_1EPS,AMPL(2,159))
 
330
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQB_1EPS,AMPL(2,156))
 
331
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQB_1EPS,AMPL(2,157))
 
332
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQB_1EPS,AMPL(2,158))
 
333
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQB_1EPS,AMPL(2,159))
334
334
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQB,AMPL(1,160))
335
 
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQQ_1EPS,AMPL(2,161))
 
335
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQB_1EPS,AMPL(2,161))
336
336
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQT,AMPL(1,162))
337
 
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQQ_1EPS,AMPL(2,163))
 
337
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQB_1EPS,AMPL(2,163))
338
338
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),UV_GQQG_1EPS,AMPL(2,164))
339
339
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),R2_GQQ,AMPL(1,165))
340
340
C     Counter-term amplitude(s) for loop diagram number 92
346
346
      CALL R2_QQ_1_R2_QQ_2_0(W(1,26),W(1,9),R2_QQQ,R2_QQT,AMPL(1,169))
347
347
      CALL R2_QQ_2_0(W(1,26),W(1,9),UV_TMASS,AMPL(1,170))
348
348
      CALL R2_QQ_2_0(W(1,26),W(1,9),UV_TMASS_1EPS,AMPL(2,171))
349
 
      CALL FFV2_2(W(1,11),W(1,3),GC_47,MDL_MT,MDL_WT,W(1,27))
 
349
      CALL FFV2_2(W(1,11),W(1,3),GC_11,MDL_MT,MDL_WT,W(1,27))
350
350
C     Counter-term amplitude(s) for loop diagram number 95
351
351
      CALL R2_QQ_1_R2_QQ_2_0(W(1,27),W(1,12),R2_QQQ,R2_QQT,AMPL(1,172))
352
352
      CALL R2_QQ_2_0(W(1,27),W(1,12),UV_TMASS,AMPL(1,173))
353
353
      CALL R2_QQ_2_0(W(1,27),W(1,12),UV_TMASS_1EPS,AMPL(2,174))
354
354
C     Counter-term amplitude(s) for loop diagram number 96
355
 
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,175))
356
 
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,176))
357
 
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,177))
358
 
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,178))
 
355
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQB_1EPS,AMPL(2,175))
 
356
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQB_1EPS,AMPL(2,176))
 
357
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQB_1EPS,AMPL(2,177))
 
358
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQB_1EPS,AMPL(2,178))
359
359
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQB,AMPL(1,179))
360
 
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,180))
 
360
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQB_1EPS,AMPL(2,180))
361
361
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQT,AMPL(1,181))
362
 
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,182))
 
362
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQB_1EPS,AMPL(2,182))
363
363
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),UV_GQQG_1EPS,AMPL(2,183))
364
364
      CALL FFV1_0(W(1,27),W(1,4),W(1,2),R2_GQQ,AMPL(1,184))
365
365
C     Counter-term amplitude(s) for loop diagram number 98
366
 
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQQ_1EPS,AMPL(2,185))
367
 
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQQ_1EPS,AMPL(2,186))
368
 
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQQ_1EPS,AMPL(2,187))
369
 
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQQ_1EPS,AMPL(2,188))
 
366
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQB_1EPS,AMPL(2,185))
 
367
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQB_1EPS,AMPL(2,186))
 
368
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQB_1EPS,AMPL(2,187))
 
369
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQB_1EPS,AMPL(2,188))
370
370
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQB,AMPL(1,189))
371
 
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQQ_1EPS,AMPL(2,190))
 
371
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQB_1EPS,AMPL(2,190))
372
372
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQT,AMPL(1,191))
373
 
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQQ_1EPS,AMPL(2,192))
 
373
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQB_1EPS,AMPL(2,192))
374
374
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),UV_GQQG_1EPS,AMPL(2,193))
375
375
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),R2_GQQ,AMPL(1,194))
376
376
C     Counter-term amplitude(s) for loop diagram number 99
377
 
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,195))
378
 
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,196))
379
 
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,197))
380
 
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,198))
 
377
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQB_1EPS,AMPL(2,195))
 
378
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQB_1EPS,AMPL(2,196))
 
379
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQB_1EPS,AMPL(2,197))
 
380
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQB_1EPS,AMPL(2,198))
381
381
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQB,AMPL(1,199))
382
 
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,200))
 
382
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQB_1EPS,AMPL(2,200))
383
383
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQT,AMPL(1,201))
384
 
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,202))
 
384
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQB_1EPS,AMPL(2,202))
385
385
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),UV_GQQG_1EPS,AMPL(2,203))
386
386
      CALL FFV1_0(W(1,25),W(1,4),W(1,1),R2_GQQ,AMPL(1,204))
387
387
C     Counter-term amplitude(s) for loop diagram number 100
389
389
C     Counter-term amplitude(s) for loop diagram number 101
390
390
      CALL VVV1_0(W(1,1),W(1,2),W(1,14),R2_3GQ,AMPL(1,206))
391
391
C     Counter-term amplitude(s) for loop diagram number 107
392
 
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,207))
393
 
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,208))
394
 
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,209))
395
 
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,210))
 
392
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQB_1EPS,AMPL(2,207))
 
393
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQB_1EPS,AMPL(2,208))
 
394
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQB_1EPS,AMPL(2,209))
 
395
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQB_1EPS,AMPL(2,210))
396
396
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQB,AMPL(1,211))
397
 
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,212))
 
397
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQB_1EPS,AMPL(2,212))
398
398
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQT,AMPL(1,213))
399
 
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQQ_1EPS,AMPL(2,214))
 
399
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQB_1EPS,AMPL(2,214))
400
400
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),UV_GQQG_1EPS,AMPL(2,215))
401
401
      CALL FFV1_0(W(1,26),W(1,4),W(1,1),R2_GQQ,AMPL(1,216))
402
402
C     Counter-term amplitude(s) for loop diagram number 108
409
409
      CALL R2_QQ_2_0(W(1,28),W(1,12),UV_TMASS,AMPL(1,221))
410
410
      CALL R2_QQ_2_0(W(1,28),W(1,12),UV_TMASS_1EPS,AMPL(2,222))
411
411
C     Counter-term amplitude(s) for loop diagram number 112
412
 
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,223))
413
 
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,224))
414
 
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,225))
415
 
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,226))
 
412
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQB_1EPS,AMPL(2,223))
 
413
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQB_1EPS,AMPL(2,224))
 
414
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQB_1EPS,AMPL(2,225))
 
415
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQB_1EPS,AMPL(2,226))
416
416
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQB,AMPL(1,227))
417
 
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,228))
 
417
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQB_1EPS,AMPL(2,228))
418
418
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQT,AMPL(1,229))
419
 
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQQ_1EPS,AMPL(2,230))
 
419
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQB_1EPS,AMPL(2,230))
420
420
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),UV_GQQG_1EPS,AMPL(2,231))
421
421
      CALL FFV1_0(W(1,28),W(1,4),W(1,2),R2_GQQ,AMPL(1,232))
422
422
C     Counter-term amplitude(s) for loop diagram number 119