← Back to branch summary

~maddevelopers/mg5amcnlo/2.7.1.3

« back to all changes in this revision

Viewing changes to madgraph/iolibs/template_files/matrix_madevent_group_v4.inc

  • Committer: olivier-mattelaer
  • Date: 2018-11-09 20:46:26 UTC
  • mfrom: (279.1.34 2.6.4)
  • Revision ID: olivier-mattelaer-20181109204626-50om03249xt7cyv5
merge 2.6.4

Show diffs side-by-side

added added

removed removed

Lines of Context:
madgraph/iolibs/template_files/matrix_madevent_group_v4.inc
68
68
 
69
69
    REAL*8 POL(2)
70
70
    COMMON/TO_POLARIZATION/ POL
 
71
 
 
72
        double precision small_width_treatment
 
73
        common/narrow_width/small_width_treatment
71
74
    
72
75
    INTEGER          ISUM_HEL
73
76
    LOGICAL                    MULTI_CHANNEL
87
90
C ----------
88
91
C BEGIN CODE
89
92
C ----------
 
93
 
90
94
    NTRY(IMIRROR)=NTRY(IMIRROR)+1
91
95
    THIS_NTRY(IMIRROR) = THIS_NTRY(IMIRROR)+1 
92
96
    DO I=1,NEXTERNAL
255
259
C   Needed for v4 models
256
260
    COMPLEX*16 DUM0,DUM1
257
261
    DATA DUM0, DUM1/(0d0, 0d0), (1d0, 0d0)/
 
262
 
 
263
        %(fake_width_declaration)s
 
264
        logical first
 
265
        data first /.true./
 
266
        save first
258
267
C
259
268
C FUNCTION
260
269
C
265
274
    Double Precision amp2(maxamps), jamp2(0:maxflow)
266
275
    common/to_amps/  amp2,       jamp2
267
276
    include 'coupl.inc'
 
277
 
 
278
        double precision small_width_treatment
 
279
        common/narrow_width/small_width_treatment
268
280
C  
269
281
C COLOR DATA
270
282
C  
272
284
C ----------
273
285
C BEGIN CODE
274
286
C ----------
 
287
if (first) then
 
288
        first=.false.
 
289
        %(fake_width_definitions)s
 
290
endif
 
291
 
 
292
 
275
293
%(helas_calls)s
276
294
%(jamp_lines)s
277
295