← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to madgraph/iolibs/template_files/check_sa_splitOrders.f

  • 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/check_sa_splitOrders.f
17
17
C     
18
18
C ---  the include file with the values of the parameters and masses    
19
19
      INCLUDE "coupl.inc"
20
 
C ---  integer nexternal ! number particles (incoming+outgoing) in the me 
21
 
      INCLUDE "nexternal.inc" 
 
20
C integer nexternal and number particles (incoming+outgoing) in the me 
 
21
      INTEGER NEXTERNAL, NINCOMING
 
22
      PARAMETER (NEXTERNAL=%(nexternal)d,NINCOMING=%(nincoming)d)
22
23
C ---  particle masses
23
24
      REAL*8 PMASS(NEXTERNAL)   
24
25
C ---  integer    n_max_cg
100
101
c     
101
102
c     Now we can call the matrix element!
102
103
c
103
 
      CALL SMATRIX_SPLITORDERS(P,MATELEMS)
 
104
      CALL %(proc_prefix)sSMATRIX_SPLITORDERS(P,MATELEMS)
104
105
      MATELEM=MATELEMS(0)
105
106
      %(printout_sqorders)s
106
107
c
161
162
C ---- auxiliary function to change convention between madgraph and rambo
162
163
c ---- four momenta.      
163
164
          IMPLICIT NONE
164
 
          INCLUDE "nexternal.inc"
 
165
C integer nexternal and number particles (incoming+outgoing) in the me 
 
166
        INTEGER NEXTERNAL, NINCOMING
 
167
        PARAMETER (NEXTERNAL=%(nexternal)d,NINCOMING=%(nincoming)d)
165
168
C         ARGUMENTS
166
169
          REAL*8 ENERGY,PMASS(NEXTERNAL),P(0:3,NEXTERNAL),PRAMBO(4,10),WGT
167
170
C         LOCAL
234
237
C *    WT = WEIGHT OF THE EVENT                                         *
235
238
C ***********************************************************************
236
239
      IMPLICIT REAL*8(A-H,O-Z)
237
 
      INCLUDE "nexternal.inc"
 
240
C integer nexternal and number particles (incoming+outgoing) in the me 
 
241
      INTEGER NEXTERNAL, NINCOMING
 
242
      PARAMETER (NEXTERNAL=%(nexternal)d,NINCOMING=%(nincoming)d)
238
243
      DIMENSION XM(NEXTERNAL-NINCOMING),P(4,NEXTERNAL-NINCOMING)
239
244
      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)
240
245
      SAVE ACC,ITMAX,IBEGIN,IWARN