← 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_LoopInduced/gg_hh/loop_matrix.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_LoopInduced/gg_hh/loop_matrix.f
705
705
 
706
706
      VALIDH=-1
707
707
      DO H=1,NCOMB
708
 
        IF ((HELPICKED.EQ.H).OR.((HELPICKED.EQ.-1).AND.(CHECKPHASE.OR.(
709
 
     $.NOT.HELDOUBLECHECKED).OR.GOODHEL(H)))) THEN
 
708
        IF ((HELPICKED.EQ.H).OR.((HELPICKED.EQ.-1)
 
709
     $   .AND.(CHECKPHASE.OR.(.NOT.HELDOUBLECHECKED).OR.GOODHEL(H))))
 
710
     $    THEN
710
711
 
711
712
C         Handle the possible requirement of specific polarizations
712
 
          IF ((.NOT.CHECKPHASE).AND.HELDOUBLECHECKED.AND.POLARIZATIONS(
713
 
     $0,0).EQ.0.AND.(.NOT.ML5_0_IS_HEL_SELECTED(H))) THEN
 
713
          IF ((.NOT.CHECKPHASE)
 
714
     $     .AND.HELDOUBLECHECKED.AND.POLARIZATIONS(0,0)
 
715
     $     .EQ.0.AND.(.NOT.ML5_0_IS_HEL_SELECTED(H))) THEN
714
716
            CYCLE
715
717
          ENDIF
716
718
 
984
986
            ENDDO
985
987
          ENDIF
986
988
        ELSEIF (.NOT.HELDOUBLECHECKED)THEN
987
 
          IF ((.NOT.GOODHEL(HELPICKED)).AND.(.NOT.ML5_0_ISZERO(ABS(ANS(
988
 
     $1))+ABS(ANS(2))+ABS(ANS(3)),REF/DBLE(NCOMB),-1))) THEN
 
989
          IF ((.NOT.GOODHEL(HELPICKED))
 
990
     $     .AND.(.NOT.ML5_0_ISZERO(ABS(ANS(1))+ABS(ANS(2))+ABS(ANS(3))
 
991
     $     ,REF/DBLE(NCOMB),-1))) THEN
989
992
            WRITE(*,*) '##W15 Helicity filter could not be'
990
993
     $       //' successfully double checked.'
991
994
            WRITE(*,*) '##One reason for this is that you have changed'
1076
1079
 
1077
1080
        CTMODE=BASIC_CT_MODE
1078
1081
 
1079
 
        IF(.NOT.EVAL_DONE(3).AND. ((DOING_QP_EVALS.AND.NROTATIONS_QP.GE
1080
 
     $.1).OR.((.NOT.DOING_QP_EVALS).AND.NROTATIONS_DP.GE.1)) ) THEN
 
1082
        IF(.NOT.EVAL_DONE(3).AND.
 
1083
     $    ((DOING_QP_EVALS.AND.NROTATIONS_QP.GE.1)
 
1084
     $   .OR.((.NOT.DOING_QP_EVALS).AND.NROTATIONS_DP.GE.1)) ) THEN
1081
1085
          EVAL_DONE(3)=.TRUE.
1082
1086
          CALL ML5_0_ROTATE_PS(PS,P,1)
1083
1087
          IF (DOING_QP_EVALS) CALL ML5_0_MP_ROTATE_PS(MP_PS,MP_P,1)
1084
1088
          GOTO 200
1085
1089
        ENDIF
1086
1090
 
1087
 
        IF(.NOT.EVAL_DONE(4).AND. ((DOING_QP_EVALS.AND.NROTATIONS_QP.GE
1088
 
     $.2).OR.((.NOT.DOING_QP_EVALS).AND.NROTATIONS_DP.GE.2)) ) THEN
 
1091
        IF(.NOT.EVAL_DONE(4).AND.
 
1092
     $    ((DOING_QP_EVALS.AND.NROTATIONS_QP.GE.2)
 
1093
     $   .OR.((.NOT.DOING_QP_EVALS).AND.NROTATIONS_DP.GE.2)) ) THEN
1089
1094
          EVAL_DONE(4)=.TRUE.
1090
1095
          CALL ML5_0_ROTATE_PS(PS,P,2)
1091
1096
          IF (DOING_QP_EVALS) CALL ML5_0_MP_ROTATE_PS(MP_PS,MP_P,2)