← Back to branch summary

~maddevelopers/mg5amcnlo/2.0.2_onshellsubtract_newresh

« back to all changes in this revision

Viewing changes to madgraph/iolibs/template_files/loop_optimized/mp_helas_calls_split.inc

  • Committer: Marco Zaro
  • Date: 2015-04-09 16:12:12 UTC
  • mfrom: (250.22.93 2.3)
  • Revision ID: marco.zaro@gmail.com-20150409161212-t7umsvk7p4z983rt
merged with 2.3 r345

Show diffs side-by-side

added added

removed removed

Lines of Context:
madgraph/iolibs/template_files/loop_optimized/mp_helas_calls_split.inc
1
 
      SUBROUTINE %(bunch_name)s_%(bunch_number)d(P,NHEL,H,IC)
 
1
      SUBROUTINE %(proc_prefix)s%(bunch_name)s_%(bunch_number)d(P,NHEL,H,IC)
2
2
C  
3
3
      IMPLICIT NONE
4
4
C  
5
5
C CONSTANTS
6
6
C  
7
 
          %(nbornamps_decl)s
8
7
      INTEGER    NEXTERNAL
9
8
      PARAMETER (NEXTERNAL=%(nexternal)d)
10
9
          INTEGER    NCOMB
11
10
      PARAMETER (NCOMB=%(ncomb)d)
 
11
  
 
12
## if (not LoopInduced) {
 
13
          INTEGER NBORNAMPS
 
14
      PARAMETER (NBORNAMPS=%(nbornamps)d)
 
15
## }
12
16
          INTEGER    NLOOPS, NLOOPGROUPS, NCTAMPS
13
17
      PARAMETER (NLOOPS=%(nloops)d, NLOOPGROUPS=%(nloop_groups)d, NCTAMPS=%(nctamps)d)
 
18
          INTEGER    NLOOPAMPS
 
19
          PARAMETER (NLOOPAMPS=%(nloopamps)d)
14
20
      INTEGER    NWAVEFUNCS,NLOOPWAVEFUNCS
15
21
      PARAMETER (NWAVEFUNCS=%(nwavefuncs)d,NLOOPWAVEFUNCS=%(nloopwavefuncs)d)
16
22
          INTEGER MAXLWFSIZE
21
27
      PARAMETER (ZERO=0.0e0_16)
22
28
          %(complex_mp_format)s     IZERO
23
29
      PARAMETER (IZERO=CMPLX(0.0e0_16,0.0e0_16,KIND=16))
 
30
C     These are constants related to the split orders
 
31
      INTEGER    NSO, NSQUAREDSO, NAMPSO
 
32
          PARAMETER (NSO=%(nSO)d, NSQUAREDSO=%(nSquaredSO)d, NAMPSO=%(nAmpSO)d)
24
33
C  
25
34
C ARGUMENTS
26
35
C
38
47
      include 'mp_coupl_same_name.inc'
39
48
 
40
49
          INTEGER GOODHEL(NCOMB)
41
 
          LOGICAL GOODAMP(NLOOPGROUPS)
42
 
          common/Filters/GOODAMP,GOODHEL
43
 
 
44
 
      %(mp_born_amps_decl)s
 
50
          LOGICAL GOODAMP(NSQUAREDSO,NLOOPGROUPS)
 
51
          common/%(proc_prefix)sFilters/GOODAMP,GOODHEL
 
52
 
 
53
          INTEGER SQSO_TARGET
 
54
          common/%(proc_prefix)sSOCHOICE/SQSO_TARGET
 
55
      
 
56
          LOGICAL UVCT_REQ_SO_DONE,MP_UVCT_REQ_SO_DONE,CT_REQ_SO_DONE,MP_CT_REQ_SO_DONE,LOOP_REQ_SO_DONE,MP_LOOP_REQ_SO_DONE,CTCALL_REQ_SO_DONE,FILTER_SO
 
57
          common/%(proc_prefix)sSO_REQS/UVCT_REQ_SO_DONE,MP_UVCT_REQ_SO_DONE,CT_REQ_SO_DONE,MP_CT_REQ_SO_DONE,LOOP_REQ_SO_DONE,MP_LOOP_REQ_SO_DONE,CTCALL_REQ_SO_DONE,FILTER_SO
 
58
 
 
59
## if(not LoopInduced) {
 
60
          %(complex_mp_format)s AMP(NBORNAMPS)
 
61
          common/%(proc_prefix)sMP_AMPS/AMP
 
62
## }      
45
63
          %(complex_mp_format)s W(20,NWAVEFUNCS)
46
 
          common/MP_W/W
 
64
          common/%(proc_prefix)sMP_W/W
47
65
 
48
66
          %(complex_mp_format)s WL(MAXLWFSIZE,0:LOOPMAXCOEFS-1,MAXLWFSIZE,0:NLOOPWAVEFUNCS)
49
67
          %(complex_mp_format)s PL(0:3,0:NLOOPWAVEFUNCS)
50
 
          common/MP_WL/WL,PL
51
 
 
52
 
          %(complex_mp_format)s LOOPCOEFS(0:LOOPMAXCOEFS-1,NLOOPS)
53
 
          common/MP_LCOEFS/LOOPCOEFS
54
 
 
 
68
          common/%(proc_prefix)sMP_WL/WL,PL
 
69
 
 
70
## if(not AmplitudeReduction){
55
71
      %(complex_mp_format)s AMPL(3,NCTAMPS)
56
 
          common/MP_AMPL/AMPL
 
72
## } else {
 
73
      %(complex_mp_format)s AMPL(3,NLOOPAMPS)
 
74
## } 
 
75
          common/%(proc_prefix)sMP_AMPL/AMPL
57
76
 
58
 
      %(complex_dp_format)s LOOPRES(3,NLOOPGROUPS)
59
 
          LOGICAL S(NLOOPGROUPS)
60
 
          common/LOOPRES/LOOPRES,S
61
77
C
62
78
C ----------
63
79
C BEGIN CODE
64
80
C ----------
65
81
 
 
82
C     The target squared split order contribution is already reached if true.
 
83
      IF (FILTER_SO.AND.%(required_so_broadcaster)s) THEN
 
84
            GOTO 1001
 
85
          ENDIF
 
86
 
66
87
%(helas_calls)s
67
88
 
 
89
      GOTO 1001
 
90
%(continue_label)d CONTINUE
 
91
      %(required_so_broadcaster)s=.TRUE.
 
92
1001  CONTINUE
68
93
      END