← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to madgraph/iolibs/template_files/loop/helas_loop_amplitude.inc

  • Committer: olivier Mattelaer
  • Date: 2015-03-05 00:14:16 UTC
  • mfrom: (258.1.9 2.3)
  • mto: (258.8.1 2.3)
  • mto: This revision was merged to the branch mainline in revision 259.
  • Revision ID: olivier.mattelaer@uclouvain.be-20150305001416-y9mzeykfzwnl9t0j
partial merge

Show diffs side-by-side

added added

removed removed

Lines of Context:
madgraph/iolibs/template_files/loop/helas_loop_amplitude.inc
1
 
      SUBROUTINE %(proc_prefix)sLOOP_%(nloopline)d%(nwfsargs_header)s_%(ncplsargs)d( LID, %(pairingargs)s%(wfsargs)s%(margs)s%(cplsargs)s RANK, LSYMFACT, AMPLN, RES, STABLE)
 
1
      SUBROUTINE %(proc_prefix)sLOOP_%(nloopline)d%(nwfsargs_header)s_%(ncplsargs)d( LID, %(pairingargs)s%(wfsargs)s%(margs)s%(cplsargs)s RANK, LSYMFACT, LMULTIPLIER, AMPLN, RES, STABLE)
2
2
 
3
3
      INTEGER    NEXTERNAL
4
4
      PARAMETER (NEXTERNAL=%(nexternal)d)
20
20
      %(complex_mp_format)s %(mp_cplsdecl)s       
21
21
      %(pairingdecl)s
22
22
      %(complex_dp_format)s RES(3)
23
 
      INTEGER LID, RANK, LSYMFACT
 
23
      INTEGER LID, RANK, LSYMFACT, LMULTIPLIER
24
24
          INTEGER AMPLN
25
25
          LOGICAL STABLE
26
26
C
34
34
C GLOBAL VARIABLES
35
35
C
36
36
      INTEGER WE(NEXTERNAL)  
37
 
      INTEGER ID, SYMFACT, AMPLNUM
38
 
      common/%(proc_prefix)sLOOP/WE,ID,SYMFACT, AMPLNUM
 
37
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM 
 
38
      common/%(proc_prefix)sLOOP/WE,ID, SYMFACT, MULTIPLIER,AMPLNUM
39
39
 
40
40
          %(complex_dp_format)s LC(MAXLCOUPLINGS)         
41
41
      %(mass_dp_format)s ML(NEXTERNAL+2)        
62
62
          AMPLNUM=AMPLN
63
63
      ID=LID
64
64
          SYMFACT=LSYMFACT
 
65
          MULTIPLIER=LMULTIPLIER
65
66
      DO I=0,3
66
67
        TEMP=1
67
68
        DO J=1,NLOOPLINE