1
SUBROUTINE LOOP_CT_CALLS_1(P,NHEL,H,IC)
5
USE POLYNOMIAL_CONSTANTS
12
PARAMETER (NEXTERNAL=3)
16
PARAMETER (NBORNAMPS=1)
17
INTEGER NLOOPS, NLOOPGROUPS, NCTAMPS
18
PARAMETER (NLOOPS=1, NLOOPGROUPS=1, NCTAMPS=1)
20
PARAMETER (NLOOPAMPS=2)
21
INTEGER NWAVEFUNCS,NLOOPWAVEFUNCS
22
PARAMETER (NWAVEFUNCS=3,NLOOPWAVEFUNCS=3)
26
PARAMETER (MP__ZERO=0.0E0_16)
27
C These are constants related to the split orders
28
INTEGER NSO, NSQUAREDSO, NAMPSO
29
PARAMETER (NSO=1, NSQUAREDSO=1, NAMPSO=2)
33
REAL*8 P(0:3,NEXTERNAL)
34
INTEGER NHEL(NEXTERNAL), IC(NEXTERNAL)
40
COMPLEX*16 COEFS(MAXLWFSIZE,0:VERTEXMAXCOEFS-1,MAXLWFSIZE)
43
DATA DUMMYFALSE/.FALSE./
48
INCLUDE 'mp_coupl.inc'
51
INTEGER GOODHEL(NCOMB)
52
LOGICAL GOODAMP(NSQUAREDSO,NLOOPGROUPS)
53
COMMON/FILTERS/GOODAMP,GOODHEL,HELOFFSET
56
LOGICAL HELDOUBLECHECKED
57
COMMON/INIT/CHECKPHASE, HELDOUBLECHECKED
60
COMMON/SOCHOICE/SQSO_TARGET
62
LOGICAL UVCT_REQ_SO_DONE,MP_UVCT_REQ_SO_DONE,CT_REQ_SO_DONE
63
$ ,MP_CT_REQ_SO_DONE,LOOP_REQ_SO_DONE,MP_LOOP_REQ_SO_DONE
64
$ ,CTCALL_REQ_SO_DONE,FILTER_SO
65
COMMON/SO_REQS/UVCT_REQ_SO_DONE,MP_UVCT_REQ_SO_DONE
66
$ ,CT_REQ_SO_DONE,MP_CT_REQ_SO_DONE,LOOP_REQ_SO_DONE
67
$ ,MP_LOOP_REQ_SO_DONE,CTCALL_REQ_SO_DONE,FILTER_SO
74
COMPLEX*16 AMP(NBORNAMPS)
76
COMPLEX*16 W(20,NWAVEFUNCS)
79
COMPLEX*16 WL(MAXLWFSIZE,0:LOOPMAXCOEFS-1,MAXLWFSIZE
81
COMPLEX*16 PL(0:3,0:NLOOPWAVEFUNCS)
84
COMPLEX*16 AMPL(3,NCTAMPS)
92
C The target squared split order contribution is already reached
94
IF (FILTER_SO.AND.CTCALL_REQ_SO_DONE) THEN
98
C CutTools call for loop numbers 1
99
CALL LOOP_3(1,2,3,DCMPLX(ZERO),DCMPLX(ZERO),DCMPLX(ZERO),2,I_SO
101
C At this point, all reductions needed for (QCD=2), i.e. of split
102
C order ID=1, are computed.
103
IF(FILTER_SO.AND.SQSO_TARGET.EQ.1) GOTO 5000
107
CTCALL_REQ_SO_DONE=.TRUE.