subroutine setnotag()
      implicit none
      include 'removebr.f'
      integer nproc,notag
      common/nproc/nproc
      common/notag/notag
c--- this routine sets the value of "notag", the number of jets
c--- that may be safely ignored without affecting finiteness of result;
c--- the minimum number of jets allowed by the code is equal to
c---    nqcdjets - notag
c--- where nqcdjets is itself process-dependent

c--- Modifying this routine to allowe *larger* values of notag
c--- than the defaults below (or >0 for processes not listed here)
c--- should be done with care

c--- Modifying this routine to allow *smaller* values of notag,
c--- i.e. stricter constraints on the number of jets observed,
c--- should not cause problems

      if     ((nproc .eq. 62) .or. (nproc .eq. 63)
     &    .or.(nproc .eq. 64) .or. (nproc .eq. 65)) then
c---- WW production, hadronic W decays
        notag=2

      elseif ((nproc .eq. 74) .or. (nproc .eq. 75)) then
c---- WZ production, hadronic Z decays
        notag=2

      elseif(((nproc .eq. 161) .or. (nproc .eq. 162)
     &    .or.(nproc .eq. 163) .or. (nproc .eq. 166)
     &    .or.(nproc .eq. 167) .or. (nproc .eq. 168))
     &   .and.(removebr)) then
c---- 5-flavor t-channel single top, top BR removed
c---    the calculation is inclusive of all additional jets; 
c---    can set notag=0 to explicitly require an additional jet at LO
        notag=1

      elseif ((nproc .eq. 231) .or. (nproc .eq. 232)
     &    .or.(nproc .eq. 233) .or. (nproc .eq. 234)
     &    .or.(nproc .eq. 235) .or. (nproc .eq. 236)
     &    .or.(nproc .eq. 237) .or. (nproc .eq. 238)
     &    .or.(nproc .eq. 239) .or. (nproc .eq. 240)) then
c---- 4-flavor t-channel single top
c---    the calculation requires the presence of two light jets that
c---    are present; to compute an inclusive cross section, one
c---    can set notag=1, or use jet cuts that have no effect
c---    (for the studies in arXiv:1204.1513, FERMILAB-PUB-12-078-T
c---      we have set notag=1)    
        notag=0

      elseif (nproc .eq. 280) then
c---- direct photon production, presence of jet not required
        notag=1

      elseif ((nproc .eq. 503) .or. (nproc .eq. 506)
     &   .or. (nproc .eq. 513) .or. (nproc .eq. 516)) then
c---- ttW production, hadronic W in top decay
        notag=2

      elseif ((nproc .eq. 532) .or. (nproc .eq. 533)) then
c---- ttZ production, Z-> bb~ and hadronic W in top decay
        notag=4

      elseif ((nproc .eq. 564) .or. (nproc .eq. 567)) then
c---- tZ production with top decay
        notag=2
      endif
      
      return
      end