← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to Template/NLO/SubProcesses/setcuts.f

  • Committer: olivier Mattelaer
  • Date: 2016-05-12 11:00:18 UTC
  • mfrom: (262.1.150 2.3.4)
  • Revision ID: olivier.mattelaer@uclouvain.be-20160512110018-sevb79f0wm4g8mpp
pass to 2.4.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/NLO/SubProcesses/setcuts.f
60
60
      integer maxflow
61
61
      parameter (maxflow=999)
62
62
      integer idup(nexternal,maxproc),mothup(2,nexternal,maxproc),
63
 
     &     icolup(2,nexternal,maxflow)
 
63
     &     icolup(2,nexternal,maxflow),niprocs
64
64
c      include 'leshouche.inc'
65
 
      common /c_leshouche_inc/idup,mothup,icolup
 
65
      common /c_leshouche_inc/idup,mothup,icolup,niprocs
66
66
C
67
67
      LOGICAL  IS_A_J(NEXTERNAL),IS_A_LP(NEXTERNAL),IS_A_LM(NEXTERNAL)
68
68
      LOGICAL  IS_A_PH(NEXTERNAL)
190
190
      integer maxflow
191
191
      parameter (maxflow=999)
192
192
      integer idup(nexternal,maxproc),mothup(2,nexternal,maxproc),
193
 
     &     icolup(2,nexternal,maxflow)
194
 
      common /c_leshouche_inc/idup,mothup,icolup
 
193
     &     icolup(2,nexternal,maxflow),niprocs
 
194
      common /c_leshouche_inc/idup,mothup,icolup,niprocs
195
195
c
196
196
      real*8         emass(nexternal)
197
197
      common/to_mass/emass