← Back to branch summary

~maddevelopers/mg5amcnlo/APPLGRID_PS

« back to all changes in this revision

Viewing changes to Template/LO/SubProcesses/cuts.f

  • Committer: Rikkert Frederix
  • Date: 2015-11-10 11:52:48 UTC
  • mfrom: (253.34.4 madgraph5)
  • Revision ID: frederix@physik.uzh.ch-20151110115248-5lb5ub00tysnytih
merge with public 2.3.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/LO/SubProcesses/cuts.f
116
116
      LOGICAL  IS_A_J(NEXTERNAL),IS_A_L(NEXTERNAL)
117
117
      LOGICAL  IS_A_B(NEXTERNAL),IS_A_A(NEXTERNAL),IS_A_ONIUM(NEXTERNAL)
118
118
      LOGICAL  IS_A_NU(NEXTERNAL),IS_HEAVY(NEXTERNAL)
 
119
      logical  do_cuts(nexternal)
119
120
      COMMON /TO_SPECISA/IS_A_J,IS_A_A,IS_A_L,IS_A_B,IS_A_NU,IS_HEAVY,
120
 
     . IS_A_ONIUM
 
121
     . IS_A_ONIUM, do_cuts
121
122
C
122
123
C     Keep track of whether cuts already calculated for this event
123
124
C
517
518
      ENDDO
518
519
 
519
520
      do i=nincoming+1,nexternal
520
 
         if(is_a_j(i)) then
 
521
         if(is_a_j(i).and.do_cuts(i)) then
521
522
           njets=njets+1
522
523
           DO J=0,3
523
524
             PJET(NJETS,J) = P(J,I)