← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to madgraph/iolibs/template_files/loop/check_sa_loop_induced.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/check_sa_loop_induced.inc
14
14
      PARAMETER (READPS = .FALSE.)
15
15
 
16
16
      INTEGER NPSPOINTS
17
 
      PARAMETER (NPSPOINTS = 4)
 
17
      PARAMETER (NPSPOINTS = 10)
 
18
 
 
19
C integer nexternal C number particles (incoming+outgoing) in the me 
 
20
      INTEGER NEXTERNAL, NINCOMING
 
21
          PARAMETER (NEXTERNAL=%(nexternal)d,NINCOMING=%(nincoming)d)
18
22
 
19
23
          character(512) MadLoopResourcePath
20
24
 
23
27
C     
24
28
C the include file with the values of the parameters and masses      
25
29
      INCLUDE "coupl.inc"
26
 
C integer nexternal C number particles (incoming+outgoing) in the me 
27
 
      INCLUDE "nexternal.inc" 
28
30
C particle masses
29
31
      REAL*8 PMASS(NEXTERNAL)      
30
32
C integer    n_max_cg
323
325
C       auxiliary function to change convention between madgraph and rambo
324
326
c       four momenta.         
325
327
        IMPLICIT NONE
326
 
        INCLUDE "nexternal.inc"
 
328
        INTEGER NEXTERNAL, NINCOMING
 
329
            PARAMETER (NEXTERNAL=%(nexternal)d,NINCOMING=%(nincoming)d)
327
330
C        ARGUMENTS
328
331
        REAL*8 ENERGY,PMASS(NEXTERNAL),P(0:3,NEXTERNAL),PRAMBO(4,10),WGT
329
332
C         LOCAL
396
399
C    WT = WEIGHT OF THE EVENT                                         *
397
400
C **********************************************************************
398
401
      IMPLICIT REAL*8(A-H,O-Z)
399
 
      INCLUDE "nexternal.inc"
 
402
      INTEGER NEXTERNAL, NINCOMING
 
403
          PARAMETER (NEXTERNAL=%(nexternal)d,NINCOMING=%(nincoming)d)
400
404
      DIMENSION XM(NEXTERNAL-NINCOMING),P(4,NEXTERNAL-NINCOMING)
401
405
      DIMENSION Q(4,NEXTERNAL-NINCOMING),Z(NEXTERNAL-NINCOMING),R(4),B(3),P2(NEXTERNAL-NINCOMING),XM2(NEXTERNAL-NINCOMING),E(NEXTERNAL-NINCOMING),V(NEXTERNAL-NINCOMING),IWARN(5)
402
406
      SAVE ACC,ITMAX,IBEGIN,IWARN