← 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_optimized/ddx_ttx/mp_compute_loop_coefs.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_optimized/ddx_ttx/mp_compute_loop_coefs.f
267
267
 
268
268
      DPW_COPIED = .FALSE.
269
269
      DO H=1,NCOMB
270
 
        IF ((HELPICKED.EQ.H).OR.((HELPICKED.EQ.-1).AND.(CHECKPHASE.OR.(
271
 
     $.NOT.HELDOUBLECHECKED).OR.(GOODHEL(H).GT.-HELOFFSET.AND.GOODHEL(H)
272
 
     $   .NE.0)))) THEN
 
270
        IF ((HELPICKED.EQ.H).OR.((HELPICKED.EQ.-1)
 
271
     $   .AND.(CHECKPHASE.OR.(.NOT.HELDOUBLECHECKED).OR.(GOODHEL(H)
 
272
     $   .GT.-HELOFFSET.AND.GOODHEL(H).NE.0)))) THEN
273
273
 
274
274
C         Handle the possible requirement of specific polarizations
275
 
          IF ((.NOT.CHECKPHASE).AND.HELDOUBLECHECKED.AND.POLARIZATIONS(
276
 
     $0,0).EQ.0.AND.(.NOT.ML5_0_IS_HEL_SELECTED(H))) THEN
 
275
          IF ((.NOT.CHECKPHASE)
 
276
     $     .AND.HELDOUBLECHECKED.AND.POLARIZATIONS(0,0)
 
277
     $     .EQ.0.AND.(.NOT.ML5_0_IS_HEL_SELECTED(H))) THEN
277
278
            CYCLE
278
279
          ENDIF
279
280
 
347
348
                CFTOT=CMPLX(CF_N(I,J)/REAL(ABS(CF_D(I,J)),KIND=16)
348
349
     $           ,0.0E0_16,KIND=16)
349
350
                IF(CF_D(I,J).LT.0) CFTOT=CFTOT*IMAG1
350
 
                ITEMP = ML5_0_ML5SQSOINDEX(ML5_0_ML5SOINDEX_FOR_LOOP_AM
351
 
     $P(I),ML5_0_ML5SOINDEX_FOR_BORN_AMP(J))
 
351
                ITEMP =
 
352
     $            ML5_0_ML5SQSOINDEX(ML5_0_ML5SOINDEX_FOR_LOOP_AMP(I)
 
353
     $           ,ML5_0_ML5SOINDEX_FOR_BORN_AMP(J))
352
354
                IF (.NOT.FILTER_SO.OR.SQSO_TARGET.EQ.ITEMP) THEN
353
355
                  DO K=1,3
354
356
                    TEMP2 = REAL(CFTOT*AMPL(K,I)*CTEMP,KIND=16)
367
369
                DP_CFTOT=CMPLX(CF_N(I,J)/REAL(ABS(CF_D(I,J)),KIND=8)
368
370
     $           ,0.0D0,KIND=8)
369
371
                IF(CF_D(I,J).LT.0) DP_CFTOT=DP_CFTOT*DP_IMAG1
370
 
                ITEMP = ML5_0_ML5SQSOINDEX(ML5_0_ML5SOINDEX_FOR_LOOP_AM
371
 
     $P(I),ML5_0_ML5SOINDEX_FOR_BORN_AMP(J))
 
372
                ITEMP =
 
373
     $            ML5_0_ML5SQSOINDEX(ML5_0_ML5SOINDEX_FOR_LOOP_AMP(I)
 
374
     $           ,ML5_0_ML5SOINDEX_FOR_BORN_AMP(J))
372
375
                IF (.NOT.FILTER_SO.OR.SQSO_TARGET.EQ.ITEMP) THEN
373
376
                  DO K=1,3
374
377
                    DP_TEMP2 = REAL(DP_CFTOT*DP_AMPL(K,I)*DP_CTEMP