~maddevelopers/mg5amcnlo/3.2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/long_ML_SMQCD_default/gg_wmtbx/mp_born_amps_and_wfs.f

  • Committer: olivier-mattelaer
  • Date: 2020-07-06 19:41:16 UTC
  • mfrom: (961.1.9 3.0.3)
  • Revision ID: olivier-mattelaer-20200706194116-pm8u0fi091uqpuon
pass to 3.0.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
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