← Back to branch summary

~maddevelopers/mg5amcnlo/rwgt_new_key

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_dxu_wp%V0_dxu_wp%loop_matrix.f

  • Committer: olivier-mattelaer
  • Date: 2019-05-23 07:08:20 UTC
  • Revision ID: olivier-mattelaer-20190523070820-xshgw0zj9qfgloa2
fix latest acceptance test 

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_dxu_wp%V0_dxu_wp%loop_matrix.f
636
636
        CALL SET_N_EVALS(N_DP_EVAL,N_QP_EVAL)
637
637
      ENDIF
638
638
 
 
639
      IF(USERHEL.EQ.-2) THEN
 
640
        NTRY = 0
 
641
      ENDIF
 
642
 
639
643
      IF(NTRY.EQ.0) THEN
640
644
        HELDOUBLECHECKED=(.NOT.DOUBLECHECKHELICITYFILTER)
641
645
     $   .OR.(HELICITYFILTERLEVEL.EQ.0)
655
659
 101    CONTINUE
656
660
        CLOSE(1)
657
661
 
658
 
        IF (HELICITYFILTERLEVEL.EQ.0) THEN
 
662
        IF (HELICITYFILTERLEVEL.EQ.0.OR.USERHEL.EQ.-2) THEN
659
663
          FOUNDHELFILTER=.TRUE.
660
664
          DO J=1,NCOMB
661
665
            GOODHEL(J)=1
796
800
        HELPICKED=1
797
801
        CTMODE=CTMODEINIT
798
802
      ELSE
799
 
        IF (USERHEL.NE.-1) THEN
 
803
        IF (USERHEL.GT.0) THEN
800
804
          IF(GOODHEL(USERHEL).EQ.-HELOFFSET) THEN
801
805
            DO I=0,NSQUAREDSO
802
806
              ANS(1,I)=0.0D0
806
810
            GOTO 9999
807
811
          ENDIF
808
812
        ENDIF
809
 
        HELPICKED=USERHEL
 
813
        HELPICKED=MAX(USERHEL,-1)
810
814
        IF (CTMODERUN.NE.-1) THEN
811
815
          CTMODE=CTMODERUN
812
816
        ELSE
1069
1073
 1226 CONTINUE
1070
1074
 
1071
1075
      IF (CHECKPHASE.OR.(.NOT.HELDOUBLECHECKED)) THEN
1072
 
        IF((USERHEL.EQ.-1).OR.(USERHEL.EQ.HELPICKED)) THEN
 
1076
        IF((USERHEL.LE.-1).OR.(USERHEL.EQ.HELPICKED)) THEN
1073
1077
C         Make sure that that no polarization constraint filters out
1074
1078
C          this helicity
1075
1079
          IF (POLARIZATIONS(0,0).EQ.-1.OR.IS_HEL_SELECTED(HELPICKED))
1287
1291
      DO K=1,3
1288
1292
        DO I=0,NSQUAREDSO
1289
1293
          ANS(K,I)=ANS(K,I)/DBLE(IDEN)
1290
 
          IF (USERHEL.NE.-1) THEN
 
1294
          IF (USERHEL.GT.-1) THEN
1291
1295
            ANS(K,I)=ANS(K,I)*HELAVGFACTOR
1292
1296
          ELSE
1293
1297
            DO J=1,NINITIAL