~maddevelopers/mg5amcnlo/new_clustering

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fks_loonly/%SubProcesses%P0_uux_ttx%orders.inc

  • 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:
 
1
        ! The orders to be integrated for the Born and at NLO
 
2
      INTEGER NSPLITORDERS
 
3
      PARAMETER (NSPLITORDERS=2)
 
4
      CHARACTER*3 ORDERNAMES(NSPLITORDERS)
 
5
      DATA ORDERNAMES / 'QCD', 'QED' /
 
6
      INTEGER BORN_ORDERS(NSPLITORDERS), NLO_ORDERS(NSPLITORDERS)
 
7
        ! the order of the coupling orders is QCD, QED
 
8
      DATA BORN_ORDERS / 4, 0 /
 
9
      DATA NLO_ORDERS / 6, 0 /
 
10
        ! The position of the QCD /QED orders in the array
 
11
      INTEGER QCD_POS, QED_POS
 
12
        ! if = -1, then it is not in the split_orders
 
13
      PARAMETER (QCD_POS = 1)
 
14
      PARAMETER (QED_POS = 2)
 
15
        ! this is to keep track of the various 
 
16
        ! coupling combinations entering each ME
 
17
      INTEGER AMP_SPLIT_SIZE, AMP_SPLIT_SIZE_BORN
 
18
      PARAMETER (AMP_SPLIT_SIZE = 1)
 
19
        ! the first entries in the next line in amp_split are for the born 
 
20
      PARAMETER (AMP_SPLIT_SIZE_BORN = 1)
 
21
      DOUBLE PRECISION AMP_SPLIT(AMP_SPLIT_SIZE)
 
22
      DOUBLE COMPLEX AMP_SPLIT_CNT(AMP_SPLIT_SIZE,2,NSPLITORDERS)
 
23
      COMMON /TO_AMP_SPLIT/AMP_SPLIT, AMP_SPLIT_CNT
 
24