← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/short_ML_SMQCD_default/gg_ttx/mp_born_amps_and_wfs.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/short_ML_SMQCD_default/gg_ttx/mp_born_amps_and_wfs.f
16
16
      INTEGER NBORNAMPS
17
17
      PARAMETER (NBORNAMPS=3)
18
18
      INTEGER    NLOOPAMPS, NCTAMPS
19
 
      PARAMETER (NLOOPAMPS=138, NCTAMPS=85)
 
19
      PARAMETER (NLOOPAMPS=129, NCTAMPS=85)
20
20
      INTEGER    NEXTERNAL
21
21
      PARAMETER (NEXTERNAL=4)
22
22
      INTEGER    NWAVEFUNCS
113
113
          CALL MP_FFV1P0_3(W(1,4,H),W(1,3,H),GC_5,ZERO,ZERO,W(1,8,H))
114
114
C         Counter-term amplitude(s) for loop diagram number 4
115
115
          CALL MP_R2_GG_1_0(W(1,5,H),W(1,8,H),R2_GGQ,AMPL(1,1))
 
116
          CALL MP_R2_GG_1_0(W(1,5,H),W(1,8,H),R2_GGQ,AMPL(1,2))
 
117
          CALL MP_R2_GG_1_0(W(1,5,H),W(1,8,H),R2_GGQ,AMPL(1,3))
 
118
          CALL MP_R2_GG_1_0(W(1,5,H),W(1,8,H),R2_GGQ,AMPL(1,4))
116
119
C         Counter-term amplitude(s) for loop diagram number 5
117
120
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GB_1EPS,AMPL(2
118
 
     $     ,2))
119
 
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GB_1EPS,AMPL(2
120
 
     $     ,3))
121
 
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GB_1EPS,AMPL(2
122
 
     $     ,4))
123
 
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GB_1EPS,AMPL(2
124
121
     $     ,5))
125
 
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GB,AMPL(1,6))
 
122
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GB_1EPS,AMPL(2
 
123
     $     ,6))
126
124
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GB_1EPS,AMPL(2
127
125
     $     ,7))
128
 
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GT,AMPL(1,8))
129
 
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GB_1EPS,AMPL(2
130
 
     $     ,9))
 
126
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GB_1EPS,AMPL(2
 
127
     $     ,8))
 
128
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GB,AMPL(1,9))
 
129
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GB_1EPS,AMPL(2
 
130
     $     ,10))
 
131
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GT,AMPL(1,11))
 
132
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GB_1EPS,AMPL(2
 
133
     $     ,12))
131
134
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),UV_3GG_1EPS,AMPL(2
132
 
     $     ,10))
133
 
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),R2_3GQ,AMPL(1,11))
134
 
C         Counter-term amplitude(s) for loop diagram number 7
135
 
          CALL MP_R2_GG_1_0(W(1,5,H),W(1,8,H),R2_GGQ,AMPL(1,12))
136
 
C         Counter-term amplitude(s) for loop diagram number 8
137
 
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),R2_3GQ,AMPL(1,13))
138
 
C         Counter-term amplitude(s) for loop diagram number 10
139
 
          CALL MP_R2_GG_1_0(W(1,5,H),W(1,8,H),R2_GGQ,AMPL(1,14))
140
 
C         Counter-term amplitude(s) for loop diagram number 11
 
135
     $     ,13))
 
136
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),R2_3GQ,AMPL(1,14))
141
137
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),R2_3GQ,AMPL(1,15))
142
 
C         Counter-term amplitude(s) for loop diagram number 13
143
 
          CALL MP_R2_GG_1_0(W(1,5,H),W(1,8,H),R2_GGQ,AMPL(1,16))
144
 
C         Counter-term amplitude(s) for loop diagram number 14
 
138
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),R2_3GQ,AMPL(1,16))
145
139
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),R2_3GQ,AMPL(1,17))
146
 
C         Counter-term amplitude(s) for loop diagram number 16
 
140
C         Counter-term amplitude(s) for loop diagram number 7
147
141
          CALL MP_R2_GG_1_R2_GG_3_0(W(1,5,H),W(1,8,H),R2_GGQ,R2_GGB
148
142
     $     ,AMPL(1,18))
149
 
C         Counter-term amplitude(s) for loop diagram number 17
 
143
C         Counter-term amplitude(s) for loop diagram number 8
150
144
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),R2_3GQ,AMPL(1,19))
151
 
C         Counter-term amplitude(s) for loop diagram number 19
 
145
C         Counter-term amplitude(s) for loop diagram number 10
152
146
          CALL MP_R2_GG_1_R2_GG_3_0(W(1,5,H),W(1,8,H),R2_GGQ,R2_GGT
153
147
     $     ,AMPL(1,20))
154
 
C         Counter-term amplitude(s) for loop diagram number 20
 
148
C         Counter-term amplitude(s) for loop diagram number 11
155
149
          CALL MP_FFV1_0(W(1,4,H),W(1,3,H),W(1,5,H),UV_GQQQ_1EPS
156
150
     $     ,AMPL(2,21))
157
151
          CALL MP_FFV1_0(W(1,4,H),W(1,3,H),W(1,5,H),UV_GQQQ_1EPS
170
164
     $     ,AMPL(2,29))
171
165
          CALL MP_FFV1_0(W(1,4,H),W(1,3,H),W(1,5,H),R2_GQQ,AMPL(1,30))
172
166
          CALL MP_FFV1_2(W(1,4,H),W(1,2,H),GC_5,MDL_MT,MDL_WT,W(1,9,H))
173
 
C         Counter-term amplitude(s) for loop diagram number 22
 
167
C         Counter-term amplitude(s) for loop diagram number 13
174
168
          CALL MP_R2_QQ_1_R2_QQ_2_0(W(1,9,H),W(1,6,H),R2_QQQ,R2_QQT
175
169
     $     ,AMPL(1,31))
176
170
          CALL MP_R2_QQ_2_0(W(1,9,H),W(1,6,H),UV_TMASS,AMPL(1,32))
177
171
          CALL MP_R2_QQ_2_0(W(1,9,H),W(1,6,H),UV_TMASS_1EPS,AMPL(2,33))
178
 
C         Counter-term amplitude(s) for loop diagram number 23
 
172
C         Counter-term amplitude(s) for loop diagram number 14
179
173
          CALL MP_FFV1_0(W(1,4,H),W(1,6,H),W(1,2,H),UV_GQQQ_1EPS
180
174
     $     ,AMPL(2,34))
181
175
          CALL MP_FFV1_0(W(1,4,H),W(1,6,H),W(1,2,H),UV_GQQQ_1EPS
195
189
          CALL MP_FFV1_0(W(1,4,H),W(1,6,H),W(1,2,H),R2_GQQ,AMPL(1,43))
196
190
          CALL MP_FFV1_1(W(1,3,H),W(1,2,H),GC_5,MDL_MT,MDL_WT,W(1,10
197
191
     $     ,H))
198
 
C         Counter-term amplitude(s) for loop diagram number 25
 
192
C         Counter-term amplitude(s) for loop diagram number 16
199
193
          CALL MP_R2_QQ_1_R2_QQ_2_0(W(1,7,H),W(1,10,H),R2_QQQ,R2_QQT
200
194
     $     ,AMPL(1,44))
201
195
          CALL MP_R2_QQ_2_0(W(1,7,H),W(1,10,H),UV_TMASS,AMPL(1,45))
202
196
          CALL MP_R2_QQ_2_0(W(1,7,H),W(1,10,H),UV_TMASS_1EPS,AMPL(2
203
197
     $     ,46))
204
 
C         Counter-term amplitude(s) for loop diagram number 26
 
198
C         Counter-term amplitude(s) for loop diagram number 17
205
199
          CALL MP_FFV1_0(W(1,7,H),W(1,3,H),W(1,2,H),UV_GQQQ_1EPS
206
200
     $     ,AMPL(2,47))
207
201
          CALL MP_FFV1_0(W(1,7,H),W(1,3,H),W(1,2,H),UV_GQQQ_1EPS
219
213
          CALL MP_FFV1_0(W(1,7,H),W(1,3,H),W(1,2,H),UV_GQQG_1EPS
220
214
     $     ,AMPL(2,55))
221
215
          CALL MP_FFV1_0(W(1,7,H),W(1,3,H),W(1,2,H),R2_GQQ,AMPL(1,56))
222
 
C         Counter-term amplitude(s) for loop diagram number 28
 
216
C         Counter-term amplitude(s) for loop diagram number 19
223
217
          CALL MP_FFV1_0(W(1,4,H),W(1,10,H),W(1,1,H),UV_GQQQ_1EPS
224
218
     $     ,AMPL(2,57))
225
219
          CALL MP_FFV1_0(W(1,4,H),W(1,10,H),W(1,1,H),UV_GQQQ_1EPS
239
233
          CALL MP_FFV1_0(W(1,4,H),W(1,10,H),W(1,1,H),UV_GQQG_1EPS
240
234
     $     ,AMPL(2,65))
241
235
          CALL MP_FFV1_0(W(1,4,H),W(1,10,H),W(1,1,H),R2_GQQ,AMPL(1,66))
242
 
C         Counter-term amplitude(s) for loop diagram number 29
 
236
C         Counter-term amplitude(s) for loop diagram number 20
243
237
          CALL MP_FFV1_0(W(1,9,H),W(1,3,H),W(1,1,H),UV_GQQQ_1EPS
244
238
     $     ,AMPL(2,67))
245
239
          CALL MP_FFV1_0(W(1,9,H),W(1,3,H),W(1,1,H),UV_GQQQ_1EPS
257
251
          CALL MP_FFV1_0(W(1,9,H),W(1,3,H),W(1,1,H),UV_GQQG_1EPS
258
252
     $     ,AMPL(2,75))
259
253
          CALL MP_FFV1_0(W(1,9,H),W(1,3,H),W(1,1,H),R2_GQQ,AMPL(1,76))
260
 
C         Counter-term amplitude(s) for loop diagram number 31
 
254
C         Counter-term amplitude(s) for loop diagram number 22
261
255
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),R2_3GQ,AMPL(1,77))
262
 
C         Counter-term amplitude(s) for loop diagram number 41
 
256
C         Counter-term amplitude(s) for loop diagram number 32
263
257
          CALL MP_R2_GG_1_R2_GG_2_0(W(1,5,H),W(1,8,H),R2_GGG_1
264
258
     $     ,R2_GGG_2,AMPL(1,78))
265
 
C         Counter-term amplitude(s) for loop diagram number 42
 
259
C         Counter-term amplitude(s) for loop diagram number 33
266
260
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),R2_3GG,AMPL(1,79))
267
 
C         Amplitude(s) for UVCT diagram with ID 49
 
261
C         Amplitude(s) for UVCT diagram with ID 40
268
262
          CALL MP_FFV1_0(W(1,4,H),W(1,3,H),W(1,5,H),GC_5,AMPL(1,80))
269
263
          AMPL(1,80)=AMPL(1,80)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
270
264
     $     +2.0D0*UVWFCT_T_0)
271
 
C         Amplitude(s) for UVCT diagram with ID 50
 
265
C         Amplitude(s) for UVCT diagram with ID 41
272
266
          CALL MP_FFV1_0(W(1,4,H),W(1,3,H),W(1,5,H),GC_5,AMPL(2,81))
273
267
          AMPL(2,81)=AMPL(2,81)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2
274
268
     $     _1EPS)
275
 
C         Amplitude(s) for UVCT diagram with ID 51
 
269
C         Amplitude(s) for UVCT diagram with ID 42
276
270
          CALL MP_FFV1_0(W(1,4,H),W(1,6,H),W(1,2,H),GC_5,AMPL(1,82))
277
271
          AMPL(1,82)=AMPL(1,82)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
278
272
     $     +2.0D0*UVWFCT_T_0)
279
 
C         Amplitude(s) for UVCT diagram with ID 52
 
273
C         Amplitude(s) for UVCT diagram with ID 43
280
274
          CALL MP_FFV1_0(W(1,4,H),W(1,6,H),W(1,2,H),GC_5,AMPL(2,83))
281
275
          AMPL(2,83)=AMPL(2,83)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2
282
276
     $     _1EPS)
283
 
C         Amplitude(s) for UVCT diagram with ID 53
 
277
C         Amplitude(s) for UVCT diagram with ID 44
284
278
          CALL MP_FFV1_0(W(1,7,H),W(1,3,H),W(1,2,H),GC_5,AMPL(1,84))
285
279
          AMPL(1,84)=AMPL(1,84)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
286
280
     $     +2.0D0*UVWFCT_T_0)
287
 
C         Amplitude(s) for UVCT diagram with ID 54
 
281
C         Amplitude(s) for UVCT diagram with ID 45
288
282
          CALL MP_FFV1_0(W(1,7,H),W(1,3,H),W(1,2,H),GC_5,AMPL(2,85))
289
283
          AMPL(2,85)=AMPL(2,85)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2
290
284
     $     _1EPS)