← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_udx_wp%V0_udx_wp%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/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_udx_wp%V0_udx_wp%mp_compute_loop_coefs.f
268
268
 
269
269
      DPW_COPIED = .FALSE.
270
270
      DO H=1,NCOMB
271
 
        IF ((HELPICKED.EQ.H).OR.((HELPICKED.EQ.-1).AND.(CHECKPHASE.OR.(
272
 
     $.NOT.HELDOUBLECHECKED).OR.(GOODHEL(H).GT.-HELOFFSET.AND.GOODHEL(H)
273
 
     $   .NE.0)))) THEN
 
271
        IF ((HELPICKED.EQ.H).OR.((HELPICKED.EQ.-1)
 
272
     $   .AND.(CHECKPHASE.OR.(.NOT.HELDOUBLECHECKED).OR.(GOODHEL(H)
 
273
     $   .GT.-HELOFFSET.AND.GOODHEL(H).NE.0)))) THEN
274
274
 
275
275
C         Handle the possible requirement of specific polarizations
276
 
          IF ((.NOT.CHECKPHASE).AND.HELDOUBLECHECKED.AND.POLARIZATIONS(
277
 
     $0,0).EQ.0.AND.(.NOT.IS_HEL_SELECTED(H))) THEN
 
276
          IF ((.NOT.CHECKPHASE)
 
277
     $     .AND.HELDOUBLECHECKED.AND.POLARIZATIONS(0,0)
 
278
     $     .EQ.0.AND.(.NOT.IS_HEL_SELECTED(H))) THEN
278
279
            CYCLE
279
280
          ENDIF
280
281