← Back to branch summary

~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

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

pass to v2.0.0

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)
 
2
C  
 
3
      IMPLICIT NONE
 
4
C  
 
5
C CONSTANTS
 
6
C  
 
7
          %(nbornamps_decl)s
 
8
      INTEGER    NEXTERNAL
 
9
      PARAMETER (NEXTERNAL=%(nexternal)d)
 
10
          INTEGER    NCOMB
 
11
      PARAMETER (NCOMB=%(ncomb)d)
 
12
          INTEGER    NLOOPS, NLOOPGROUPS, NCTAMPS
 
13
      PARAMETER (NLOOPS=%(nloops)d, NLOOPGROUPS=%(nloop_groups)d, NCTAMPS=%(nctamps)d)
 
14
      INTEGER    NWAVEFUNCS,NLOOPWAVEFUNCS
 
15
      PARAMETER (NWAVEFUNCS=%(nwavefuncs)d,NLOOPWAVEFUNCS=%(nloopwavefuncs)d)
 
16
          INTEGER MAXLWFSIZE
 
17
          PARAMETER (MAXLWFSIZE=%(max_lwf_size)d)
 
18
          INTEGER LOOPMAXCOEFS, VERTEXMAXCOEFS
 
19
          PARAMETER (LOOPMAXCOEFS=%(loop_max_coefs)d, VERTEXMAXCOEFS=%(vertex_max_coefs)d)
 
20
          %(real_mp_format)s     ZERO
 
21
      PARAMETER (ZERO=0.0e0_16)
 
22
          %(complex_mp_format)s     IZERO
 
23
      PARAMETER (IZERO=CMPLX(0.0e0_16,0.0e0_16,KIND=16))
 
24
C  
 
25
C ARGUMENTS
 
26
C
 
27
     %(real_mp_format)s P(0:3,NEXTERNAL)
 
28
      INTEGER NHEL(NEXTERNAL), IC(NEXTERNAL)
 
29
          INTEGER H
 
30
C
 
31
C LOCAL VARIABLES
 
32
C
 
33
          INTEGER I,J,K
 
34
          %(complex_mp_format)s COEFS(MAXLWFSIZE,0:VERTEXMAXCOEFS-1,MAXLWFSIZE)
 
35
C  
 
36
C GLOBAL VARIABLES
 
37
C  
 
38
      include 'mp_coupl_same_name.inc'
 
39
 
 
40
          INTEGER GOODHEL(NCOMB)
 
41
          LOGICAL GOODAMP(NLOOPGROUPS)
 
42
          common/Filters/GOODAMP,GOODHEL
 
43
 
 
44
      %(mp_born_amps_decl)s
 
45
          %(complex_mp_format)s W(20,NWAVEFUNCS)
 
46
          common/MP_W/W
 
47
 
 
48
          %(complex_mp_format)s WL(MAXLWFSIZE,0:LOOPMAXCOEFS-1,MAXLWFSIZE,0:NLOOPWAVEFUNCS)
 
49
          %(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
 
 
55
      %(complex_mp_format)s AMPL(3,NCTAMPS)
 
56
          common/MP_AMPL/AMPL
 
57
 
 
58
      %(complex_dp_format)s LOOPRES(3,NLOOPGROUPS)
 
59
          LOGICAL S(NLOOPGROUPS)
 
60
          common/LOOPRES/LOOPRES,S
 
61
C
 
62
C ----------
 
63
C BEGIN CODE
 
64
C ----------
 
65
 
 
66
%(helas_calls)s
 
67
 
 
68
      END