← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to madgraph/iolibs/template_files/loop/loop_num.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/loop_num.inc
32
32
C GLOBAL VARIABLES
33
33
C
34
34
      INTEGER WE(NEXTERNAL)       
35
 
      INTEGER ID, SYMFACT,AMPLNUM
36
 
      common/%(proc_prefix)sLOOP/WE,ID,SYMFACT,AMPLNUM
 
35
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
36
      common/%(proc_prefix)sLOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
37
37
 
38
38
          LOGICAL GOODHEL(NCOMB)
39
39
          LOGICAL GOODAMP(NLOOPAMPS,NCOMB)
63
63
        %(dp_squaring)s
64
64
  ENDIF
65
65
  ENDDO
66
 
          RES=RES/SYMFACT
 
66
          RES=(RES*MULTIPLIER)/SYMFACT
67
67
 
68
68
          END
69
69
 
106
106
      common/%(proc_prefix)sDP_LOOP/LC,ML
107
107
 
108
108
      INTEGER WE(NEXTERNAL)  
109
 
      INTEGER ID, SYMFACT,AMPLNUM
110
 
      common/%(proc_prefix)sLOOP/WE,ID,SYMFACT,AMPLNUM
 
109
      INTEGER ID, SYMFACT,MULTIPLIER,AMPLNUM
 
110
      common/%(proc_prefix)sLOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
111
111
 
112
112
          %(dp_born_amps_decl)s   
113
113
          %(complex_dp_format)s W(20,NWAVEFUNCS%(ncomb_helas_objs)s)
168
168
      common/%(proc_prefix)sCT/LSCALE,CTMODE
169
169
 
170
170
      INTEGER WE(NEXTERNAL)  
171
 
      INTEGER ID, SYMFACT,AMPLNUM
172
 
      common/%(proc_prefix)sLOOP/WE,ID,SYMFACT,AMPLNUM
 
171
      INTEGER ID, SYMFACT,MULTIPLIER,AMPLNUM
 
172
      common/%(proc_prefix)sLOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
173
173
 
174
174
          LOGICAL GOODHEL(NCOMB)
175
175
          LOGICAL GOODAMP(NLOOPAMPS,NCOMB)
210
210
        %(mp_squaring)s
211
211
  ENDIF
212
212
  ENDDO
213
 
          QPRES=QPRES/SYMFACT
 
213
          QPRES=(QPRES*MULTIPLIER)/SYMFACT
214
214
 
215
215
          RES=QPRES
216
216
      END
254
254
      common/%(proc_prefix)sMP_LOOP/LC,ML
255
255
 
256
256
      INTEGER WE(NEXTERNAL)
257
 
      INTEGER ID, SYMFACT,AMPLNUM
258
 
      common/%(proc_prefix)sLOOP/WE,ID,SYMFACT,AMPLNUM
 
257
      INTEGER ID, SYMFACT,MULTIPLIER,AMPLNUM
 
258
      common/%(proc_prefix)sLOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
259
259
 
260
260
          %(mp_born_amps_decl)s   
261
261
          %(complex_mp_format)s W(20,NWAVEFUNCS%(ncomb_helas_objs)s)