← Back to branch summary

~maddevelopers/mg5amcnlo/new_clustering

« 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

  • Committer: Rikkert Frederix
  • Date: 2021-09-09 15:51:40 UTC
  • mfrom: (78.75.502 3.2.1)
  • Revision ID: frederix@physik.uzh.ch-20210909155140-rg6umfq68h6h47cf
merge with 3.2.1

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
8
8
C     and helicities for the point in phase space P(0:3,NEXTERNAL)
9
9
C     and external lines W(0:6,NEXTERNAL)
10
10
C     
11
 
C     Process: u d~ > w+ QED<=1 WEIGHTED<=2 [ all = QCD ]
12
 
C     Process: c s~ > w+ QED<=1 WEIGHTED<=2 [ all = QCD ]
 
11
C     Process: u d~ > w+ [ all = QCD QED ] QCD^2<=2 QED^2<=2
 
12
C     Process: c s~ > w+ [ all = QCD QED ] QCD^2<=2 QED^2<=2
13
13
C     
14
14
C     Modules
15
15
C     
43
43
      PARAMETER (DP_IMAG1=(0D0,1D0))
44
44
C     These are constants related to the split orders
45
45
      INTEGER    NSO, NSQUAREDSO, NAMPSO
46
 
      PARAMETER (NSO=1, NSQUAREDSO=1, NAMPSO=2)
 
46
      PARAMETER (NSO=2, NSQUAREDSO=1, NAMPSO=2)
47
47
 
48
48
 
49
49
C     
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