1
! The orders to be integrated for the Born and at NLO
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