← 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

mwrge with 2.7.3

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
102
102
      CALL MP_UPDATE_AS_PARAM()
103
103
 
104
104
      DO H=1,NCOMB
105
 
        IF ((HELPICKED.EQ.H).OR.((HELPICKED.EQ.-1).AND.((CHECKPHASE.OR.
106
 
     $.NOT.HELDOUBLECHECKED).OR.GOODHEL(H)))) THEN
 
105
        IF ((HELPICKED.EQ.H).OR.((HELPICKED.EQ.-1)
 
106
     $   .AND.((CHECKPHASE.OR..NOT.HELDOUBLECHECKED).OR.GOODHEL(H))))
 
107
     $    THEN
107
108
C         Handle the possible requirement of specific polarizations
108
 
          IF ((.NOT.CHECKPHASE).AND.HELDOUBLECHECKED.AND.POLARIZATIONS(
109
 
     $0,0).EQ.0.AND.(.NOT.ML5_0_IS_HEL_SELECTED(H))) THEN
 
109
          IF ((.NOT.CHECKPHASE)
 
110
     $     .AND.HELDOUBLECHECKED.AND.POLARIZATIONS(0,0)
 
111
     $     .EQ.0.AND.(.NOT.ML5_0_IS_HEL_SELECTED(H))) THEN
110
112
            CYCLE
111
113
          ENDIF
112
114
          DO I=1,NEXTERNAL
274
276
C         Counter-term amplitude(s) for loop diagram number 33
275
277
          CALL MP_VVV1_0(W(1,1,H),W(1,2,H),W(1,8,H),R2_3GG,AMPL(1,79))
276
278
C         Amplitude(s) for UVCT diagram with ID 40
277
 
          CALL MP_FFV1_0(W(1,4,H),W(1,3,H),W(1,5,H),GC_5,AMPL(1,80))
278
 
          AMPL(1,80)=AMPL(1,80)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
279
 
     $     +2.0D0*UVWFCT_T_0)
 
279
          CALL MP_FFV1_0(W(1,4,H),W(1,3,H),W(1,5,H),GC_5,AMPL(2,80))
 
280
          AMPL(2,80)=AMPL(2,80)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
 
281
     $     *UVWFCT_B_0_1EPS)
280
282
C         Amplitude(s) for UVCT diagram with ID 41
281
 
          CALL MP_FFV1_0(W(1,4,H),W(1,3,H),W(1,5,H),GC_5,AMPL(2,81))
282
 
          AMPL(2,81)=AMPL(2,81)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
283
 
     $     *UVWFCT_G_1_1EPS)
 
283
          CALL MP_FFV1_0(W(1,4,H),W(1,3,H),W(1,5,H),GC_5,AMPL(1,81))
 
284
          AMPL(1,81)=AMPL(1,81)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_T_0
 
285
     $     +2.0D0*UVWFCT_G_1)
284
286
C         Amplitude(s) for UVCT diagram with ID 42
285
 
          CALL MP_FFV1_0(W(1,4,H),W(1,6,H),W(1,2,H),GC_5,AMPL(1,82))
286
 
          AMPL(1,82)=AMPL(1,82)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
287
 
     $     +2.0D0*UVWFCT_T_0)
 
287
          CALL MP_FFV1_0(W(1,4,H),W(1,6,H),W(1,2,H),GC_5,AMPL(2,82))
 
288
          AMPL(2,82)=AMPL(2,82)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
 
289
     $     *UVWFCT_B_0_1EPS)
288
290
C         Amplitude(s) for UVCT diagram with ID 43
289
 
          CALL MP_FFV1_0(W(1,4,H),W(1,6,H),W(1,2,H),GC_5,AMPL(2,83))
290
 
          AMPL(2,83)=AMPL(2,83)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
291
 
     $     *UVWFCT_G_1_1EPS)
 
291
          CALL MP_FFV1_0(W(1,4,H),W(1,6,H),W(1,2,H),GC_5,AMPL(1,83))
 
292
          AMPL(1,83)=AMPL(1,83)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_T_0
 
293
     $     +2.0D0*UVWFCT_G_1)
292
294
C         Amplitude(s) for UVCT diagram with ID 44
293
 
          CALL MP_FFV1_0(W(1,7,H),W(1,3,H),W(1,2,H),GC_5,AMPL(1,84))
294
 
          AMPL(1,84)=AMPL(1,84)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
295
 
     $     +2.0D0*UVWFCT_T_0)
 
295
          CALL MP_FFV1_0(W(1,7,H),W(1,3,H),W(1,2,H),GC_5,AMPL(2,84))
 
296
          AMPL(2,84)=AMPL(2,84)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
 
297
     $     *UVWFCT_B_0_1EPS)
296
298
C         Amplitude(s) for UVCT diagram with ID 45
297
 
          CALL MP_FFV1_0(W(1,7,H),W(1,3,H),W(1,2,H),GC_5,AMPL(2,85))
298
 
          AMPL(2,85)=AMPL(2,85)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
299
 
     $     *UVWFCT_G_1_1EPS)
 
299
          CALL MP_FFV1_0(W(1,7,H),W(1,3,H),W(1,2,H),GC_5,AMPL(1,85))
 
300
          AMPL(1,85)=AMPL(1,85)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_T_0
 
301
     $     +2.0D0*UVWFCT_G_1)
300
302
C         Copy the qp wfs to the dp ones as they are used to setup the
301
303
C          CT calls.
302
304
          DO I=1,NWAVEFUNCS