← 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.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.inc
16
16
      INTEGER NPSPOINTS
17
17
      PARAMETER (NPSPOINTS = 4)
18
18
 
 
19
C integer nexternal and number particles (incoming+outgoing) in the me 
 
20
      INTEGER NEXTERNAL, NINCOMING
 
21
          PARAMETER (NEXTERNAL=%(nexternal)d,NINCOMING=%(nincoming)d)
 
22
 
19
23
          character(512) MadLoopResourcePath
20
24
 
21
25
C     
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
369
371
C       auxiliary function to change convention between madgraph and rambo
370
372
c       four momenta.         
371
373
        IMPLICIT NONE
372
 
        INCLUDE "nexternal.inc"
 
374
        INTEGER NEXTERNAL, NINCOMING
 
375
            PARAMETER (NEXTERNAL=%(nexternal)d,NINCOMING=%(nincoming)d)
373
376
C        ARGUMENTS
374
377
        REAL*8 ENERGY,PMASS(NEXTERNAL),P(0:3,NEXTERNAL),PRAMBO(4,10),WGT
375
378
C         LOCAL
442
445
C    WT = WEIGHT OF THE EVENT                                         *
443
446
C **********************************************************************
444
447
      IMPLICIT REAL*8(A-H,O-Z)
445
 
      INCLUDE "nexternal.inc"
446
 
      DIMENSION XM(NEXTERNAL-NINCOMING),P(4,NEXTERNAL-NINCOMING)
 
448
      INTEGER NEXTERNAL, NINCOMING
 
449
          PARAMETER (NEXTERNAL=%(nexternal)d,NINCOMING=%(nincoming)d)
 
450
          DIMENSION XM(NEXTERNAL-NINCOMING),P(4,NEXTERNAL-NINCOMING)
447
451
      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)
448
452
      SAVE ACC,ITMAX,IBEGIN,IWARN
449
453
      DATA ACC/1.D-14/,ITMAX/6/,IBEGIN/0/,IWARN/5*0/