← 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/ddx_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/ddx_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
171
173
          CALL MP_R2_GG_1_R2_GG_2_0(W(1,5,H),W(1,6,H),R2_GGG_1
172
174
     $     ,R2_GGG_2,AMPL(1,27))
173
175
C         Amplitude(s) for UVCT diagram with ID 13
174
 
          CALL MP_FFV1_0(W(1,4,H),W(1,3,H),W(1,5,H),GC_5,AMPL(1,28))
175
 
          AMPL(1,28)=AMPL(1,28)*(2.0D0*UVWFCT_T_0)
 
176
          CALL MP_FFV1_0(W(1,4,H),W(1,3,H),W(1,5,H),GC_5,AMPL(2,28))
 
177
          AMPL(2,28)=AMPL(2,28)*(2.0D0*UVWFCT_B_0_1EPS)
176
178
C         Amplitude(s) for UVCT diagram with ID 14
177
 
          CALL MP_FFV1_0(W(1,4,H),W(1,3,H),W(1,5,H),GC_5,AMPL(2,29))
178
 
          AMPL(2,29)=AMPL(2,29)*(2.0D0*UVWFCT_B_0_1EPS)
 
179
          CALL MP_FFV1_0(W(1,4,H),W(1,3,H),W(1,5,H),GC_5,AMPL(1,29))
 
180
          AMPL(1,29)=AMPL(1,29)*(2.0D0*UVWFCT_T_0)
179
181
C         Copy the qp wfs to the dp ones as they are used to setup the
180
182
C          CT calls.
181
183
          DO I=1,NWAVEFUNCS