COMP/CMSDIST/alpgen.patch

diff -Naur alpgen-213.orig/alplib/cms_alpgen.mk alpgen-213/alplib/cms_alpgen.mk
--- alpgen-213.orig/alplib/cms_alpgen.mk        1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/alplib/cms_alpgen.mk     2007-07-19 21:49:26.000000000 +0200
@@ -0,0 +1,75 @@
+# DO NOT EDIT FROM HERE ON:
+#
+# DEFINE DIRECTORY AND FILE ALIASES
+alp= ../alplib
+her= ../herlib
+prclib= ../$(prc)lib
+prcusr=.
+prcfile=$(prclib)/$(prc)
+execfile=$(prc)_$(usrfun)gen
+usrfile=$(prcusr)/$(prc)usr_$(usrfun)
+
+VF90= ../VF90
+
+# DEFINE FILE GROUPS:
+# Files used for the parton-level event genertaion:
+ALPGEN= $(alp)/alpgen.f $(alp)/Acp.f $(alp)/Aint.f $(alp)/alputi.f \
+       $(alp)/alppdf.f $(alp)/Asu3.f
+PARTON= $(prcfile).f $(usrfile).f $(ALPGEN)
+
+# Include files
+INC=  $(prclib)/$(prc).inc $(alp)/alpgen.inc
+
+# include files' dependencies
+$(PARTON): $(INC)
+
+# object files
+OBJ=$(PARTON:.f=.o) $(PARTON90:.f90=.o)
+
+
+# compilation
+%.o: %.f $(PARTON) $(INC)
+       $(FFF) -c -o $*.o $*.f 
+$(prclib)/XXX.o90 : $(alp)/A90.f90 $(prclib)/ini_$(prc).f90
+       cd $(prclib); cp $(alp)/A90.f90 XXX.f90; \
+       cat $(prclib)/ini_$(prc).f90 >> XXX.f90;\
+       $(FF90)  -c XXX.f90; cp XXX.o XXX.o90
+
+$(prclib)/XXX.o90V : $(alp)/A90.f90 $(prclib)/ini_$(prc).f90
+       cd $(VF90); cp $(alp)/A90.f90 XXX.f90;\
+        cat $(prclib)/ini_$(prc).f90 >> XXX.f90;\
+       $(FF90V) -c XXX.f90; cp XXX.o $(prclib)/XXX.o90V; mv XXX.o $(prclib); \
+       rm -f *.vo; rm -f V*.inc;
+
+# fortran77 version
+gen: $(OBJ)
+       $(FFF) -o $(execfile) $(usrfile).o $(prcfile).o \
+       $(alp)/alpgen.o $(alp)/alputi.o $(alp)/alppdf.o \
+       $(alp)/Acp.o $(alp)/Asu3.o $(alp)/Aint.o
+# fortran90 version
+gen90: $(usrfile).o $(prcfile).o $(prclib)/$(prc).inc\
+       $(alp)/alpgen.o $(alp)/alputi.o $(alp)/alppdf.o \
+       $(alp)/Aint90.o $(prclib)/XXX.o90 $(alp)/alpgen.inc 
+       $(FF90) -o $(execfile)90 $(usrfile).o $(prcfile).o \
+       $(alp)/alpgen.o $(alp)/alputi.o $(alp)/alppdf.o \
+       $(alp)/Aint90.o $(prclib)/XXX.o
+# fortran90 version, Vast/Veridian compyler
+gen90V: $(usrfile).o $(prcfile).o $(prclib)/$(prc).inc\
+       $(alp)/alpgen.o $(alp)/alputi.o $(alp)/alppdf.o \
+       $(alp)/Aint90.o $(prclib)/XXX.o90V $(alp)/alpgen.inc 
+       $(FFF) -o $(execfile)90V $(usrfile).o $(prcfile).o \
+       $(alp)/alpgen.o $(alp)/alputi.o $(alp)/alppdf.o \
+       $(prclib)/XXX.o $(alp)/Aint90.o $(VF90)/libvast90.a
+
+# DIRECTORY CLEANUP UTILITIES:
+#
+# remove object files only
+cleanobj:
+       -rm $(PARTON:.f=.o) $(PARTON90:.f90=.o) $(prcusr)/../*/*.o90*
+
+# remove object files, etc
+cleanall:
+       -rm $(OBJ) $(prcusr)/fort.* $(prcusr)/*.top $(prcusr)/*.par \
+       $(prcusr)/*.wgt $(prcusr)/*.unw $(prcusr)/*.mon \
+       $(prcusr)/*.stat $(prcusr)/../*/*.o90*
+
diff -Naur alpgen-213.orig/phjetwork/cmsMakefile alpgen-213/phjetwork/cmsMakefile
--- alpgen-213.orig/phjetwork/cmsMakefile       1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/phjetwork/cmsMakefile    2007-07-19 21:50:22.000000000 +0200
@@ -0,0 +1,4 @@
+include ../compile.mk
+prc=phjet
+usrfun=$(USRF)
+include ../alplib/cms_alpgen.mk
diff -Naur alpgen-213.orig/phjetwork/phjetusr_120_180bin.f alpgen-213/phjetwork/phjetusr_120_180bin.f
--- alpgen-213.orig/phjetwork/phjetusr_120_180bin.f     1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/phjetwork/phjetusr_120_180bin.f  2007-07-19 21:50:17.000000000 +0200
@@ -0,0 +1,137 @@
+c      data resc/1d3/
+c-----------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-----------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+c
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      double precision wusr
+      integer lnot,i
+      double precision PTGMIN, PTGMAX, ptg
+      integer init
+      data init /0/
+
+c initialize output parameters
+      lnot=0
+      wusr=1d0
+      PTGMIN = 120d0
+      PTGMAX = 180d0
+       ptg=sqrt(pphot(1,1)**2+pphot(2,1)**2) 
+c      if(cuts not passed) goto 10
+C      write (*,*)  ptg , ptp(1)
+       if(ptg.le.PTGMIN) goto 10
+       if(ptg.gt.PTGMAX) goto 10 
+ 5    return
+ 10     lnot= 1
+       return 
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      ptbin=2e0
+      ptmax=200e0
+      xmbin=4e0
+      xmmax=400e0
+c
+      call mbook(1,'pt_1',2.*ptbin,0e0,2.*ptmax)
+      call mbook(2,'pt_2',ptbin,0e0,ptmax)
+      call mbook(3,'pt_3',ptbin,0e0,ptmax)
+      call mbook(4,'pt_4',ptbin,0e0,ptmax)
+      call mbook(5,'pt_5',ptbin,0e0,ptmax)
+      call mbook(6,'pt_6',ptbin,0e0,ptmax)
+      end
+
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,njets
+         call mtop(i,99,'pt'//jet(i),' ','LOG')
+      enddo
+
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,100000).eq.0) then
+c     save histograms contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      real*8 wgt,tmp,ptlep,etmiss,xmz,mll
+      real rwgt
+      integer i,j,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+c     reordering according to pt
+      call alusor(ptj,njets,ord,2)              
+      do i=1,njets
+         call mfill(i,real(ptj(ord(njets+1-i))),rwgt)
+      enddo
+c
+      end
diff -Naur alpgen-213.orig/phjetwork/phjetusr_180_240bin.f alpgen-213/phjetwork/phjetusr_180_240bin.f
--- alpgen-213.orig/phjetwork/phjetusr_180_240bin.f     1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/phjetwork/phjetusr_180_240bin.f  2007-07-19 21:50:17.000000000 +0200
@@ -0,0 +1,137 @@
+c      data resc/1d3/
+c-----------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-----------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+c
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      double precision wusr
+      integer lnot,i
+      double precision PTGMIN, PTGMAX, ptg
+      integer init
+      data init /0/
+
+c initialize output parameters
+      lnot=0
+      wusr=1d0
+      PTGMIN = 180d0
+      PTGMAX = 240d0
+       ptg=sqrt(pphot(1,1)**2+pphot(2,1)**2) 
+c      if(cuts not passed) goto 10
+C      write (*,*)  ptg , ptp(1)
+       if(ptg.le.PTGMIN) goto 10
+       if(ptg.gt.PTGMAX) goto 10 
+ 5    return
+ 10     lnot= 1
+       return 
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      ptbin=2e0
+      ptmax=200e0
+      xmbin=4e0
+      xmmax=400e0
+c
+      call mbook(1,'pt_1',2.*ptbin,0e0,2.*ptmax)
+      call mbook(2,'pt_2',ptbin,0e0,ptmax)
+      call mbook(3,'pt_3',ptbin,0e0,ptmax)
+      call mbook(4,'pt_4',ptbin,0e0,ptmax)
+      call mbook(5,'pt_5',ptbin,0e0,ptmax)
+      call mbook(6,'pt_6',ptbin,0e0,ptmax)
+      end
+
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,njets
+         call mtop(i,99,'pt'//jet(i),' ','LOG')
+      enddo
+
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,100000).eq.0) then
+c     save histograms contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      real*8 wgt,tmp,ptlep,etmiss,xmz,mll
+      real rwgt
+      integer i,j,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+c     reordering according to pt
+      call alusor(ptj,njets,ord,2)              
+      do i=1,njets
+         call mfill(i,real(ptj(ord(njets+1-i))),rwgt)
+      enddo
+c
+      end
diff -Naur alpgen-213.orig/phjetwork/phjetusr_20_60bin.f alpgen-213/phjetwork/phjetusr_20_60bin.f
--- alpgen-213.orig/phjetwork/phjetusr_20_60bin.f       1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/phjetwork/phjetusr_20_60bin.f    2007-07-19 21:50:17.000000000 +0200
@@ -0,0 +1,137 @@
+c      data resc/1d3/
+c-----------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-----------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+c
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      double precision wusr
+      integer lnot,i
+      double precision PTGMIN, PTGMAX, ptg
+      integer init
+      data init /0/
+
+c initialize output parameters
+      lnot=0
+      wusr=1d0
+      PTGMIN = 20d0
+      PTGMAX = 60d0
+       ptg=sqrt(pphot(1,1)**2+pphot(2,1)**2) 
+c      if(cuts not passed) goto 10
+C      write (*,*)  ptg , ptp(1)
+       if(ptg.le.PTGMIN) goto 10
+       if(ptg.gt.PTGMAX) goto 10 
+ 5    return
+ 10     lnot= 1
+       return 
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      ptbin=2e0
+      ptmax=200e0
+      xmbin=4e0
+      xmmax=400e0
+c
+      call mbook(1,'pt_1',2.*ptbin,0e0,2.*ptmax)
+      call mbook(2,'pt_2',ptbin,0e0,ptmax)
+      call mbook(3,'pt_3',ptbin,0e0,ptmax)
+      call mbook(4,'pt_4',ptbin,0e0,ptmax)
+      call mbook(5,'pt_5',ptbin,0e0,ptmax)
+      call mbook(6,'pt_6',ptbin,0e0,ptmax)
+      end
+
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,njets
+         call mtop(i,99,'pt'//jet(i),' ','LOG')
+      enddo
+
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,100000).eq.0) then
+c     save histograms contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      real*8 wgt,tmp,ptlep,etmiss,xmz,mll
+      real rwgt
+      integer i,j,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+c     reordering according to pt
+      call alusor(ptj,njets,ord,2)              
+      do i=1,njets
+         call mfill(i,real(ptj(ord(njets+1-i))),rwgt)
+      enddo
+c
+      end
diff -Naur alpgen-213.orig/phjetwork/phjetusr_240_300bin.f alpgen-213/phjetwork/phjetusr_240_300bin.f
--- alpgen-213.orig/phjetwork/phjetusr_240_300bin.f     1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/phjetwork/phjetusr_240_300bin.f  2007-07-19 21:50:17.000000000 +0200
@@ -0,0 +1,137 @@
+c      data resc/1d3/
+c-----------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-----------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+c
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      double precision wusr
+      integer lnot,i
+      double precision PTGMIN, PTGMAX, ptg
+      integer init
+      data init /0/
+
+c initialize output parameters
+      lnot=0
+      wusr=1d0
+      PTGMIN = 240d0
+      PTGMAX = 300d0
+       ptg=sqrt(pphot(1,1)**2+pphot(2,1)**2) 
+c      if(cuts not passed) goto 10
+C      write (*,*)  ptg , ptp(1)
+       if(ptg.le.PTGMIN) goto 10
+       if(ptg.gt.PTGMAX) goto 10 
+ 5    return
+ 10     lnot= 1
+       return 
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      ptbin=2e0
+      ptmax=200e0
+      xmbin=4e0
+      xmmax=400e0
+c
+      call mbook(1,'pt_1',2.*ptbin,0e0,2.*ptmax)
+      call mbook(2,'pt_2',ptbin,0e0,ptmax)
+      call mbook(3,'pt_3',ptbin,0e0,ptmax)
+      call mbook(4,'pt_4',ptbin,0e0,ptmax)
+      call mbook(5,'pt_5',ptbin,0e0,ptmax)
+      call mbook(6,'pt_6',ptbin,0e0,ptmax)
+      end
+
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,njets
+         call mtop(i,99,'pt'//jet(i),' ','LOG')
+      enddo
+
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,100000).eq.0) then
+c     save histograms contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      real*8 wgt,tmp,ptlep,etmiss,xmz,mll
+      real rwgt
+      integer i,j,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+c     reordering according to pt
+      call alusor(ptj,njets,ord,2)              
+      do i=1,njets
+         call mfill(i,real(ptj(ord(njets+1-i))),rwgt)
+      enddo
+c
+      end
diff -Naur alpgen-213.orig/phjetwork/phjetusr_300_7000bin.f alpgen-213/phjetwork/phjetusr_300_7000bin.f
--- alpgen-213.orig/phjetwork/phjetusr_300_7000bin.f    1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/phjetwork/phjetusr_300_7000bin.f 2007-07-19 21:50:17.000000000 +0200
@@ -0,0 +1,137 @@
+c      data resc/1d3/
+c-----------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-----------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+c
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      double precision wusr
+      integer lnot,i
+      double precision PTGMIN, PTGMAX, ptg
+      integer init
+      data init /0/
+
+c initialize output parameters
+      lnot=0
+      wusr=1d0
+      PTGMIN = 300d0
+      PTGMAX = 7000d0
+       ptg=sqrt(pphot(1,1)**2+pphot(2,1)**2) 
+c      if(cuts not passed) goto 10
+C      write (*,*)  ptg , ptp(1)
+       if(ptg.le.PTGMIN) goto 10
+       if(ptg.gt.PTGMAX) goto 10 
+ 5    return
+ 10     lnot= 1
+       return 
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      ptbin=2e0
+      ptmax=200e0
+      xmbin=4e0
+      xmmax=400e0
+c
+      call mbook(1,'pt_1',2.*ptbin,0e0,2.*ptmax)
+      call mbook(2,'pt_2',ptbin,0e0,ptmax)
+      call mbook(3,'pt_3',ptbin,0e0,ptmax)
+      call mbook(4,'pt_4',ptbin,0e0,ptmax)
+      call mbook(5,'pt_5',ptbin,0e0,ptmax)
+      call mbook(6,'pt_6',ptbin,0e0,ptmax)
+      end
+
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,njets
+         call mtop(i,99,'pt'//jet(i),' ','LOG')
+      enddo
+
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,100000).eq.0) then
+c     save histograms contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      real*8 wgt,tmp,ptlep,etmiss,xmz,mll
+      real rwgt
+      integer i,j,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+c     reordering according to pt
+      call alusor(ptj,njets,ord,2)              
+      do i=1,njets
+         call mfill(i,real(ptj(ord(njets+1-i))),rwgt)
+      enddo
+c
+      end
diff -Naur alpgen-213.orig/phjetwork/phjetusr_60_120bin.f alpgen-213/phjetwork/phjetusr_60_120bin.f
--- alpgen-213.orig/phjetwork/phjetusr_60_120bin.f      1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/phjetwork/phjetusr_60_120bin.f   2007-07-19 21:50:17.000000000 +0200
@@ -0,0 +1,137 @@
+c      data resc/1d3/
+c-----------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-----------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+c
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      double precision wusr
+      integer lnot,i
+      double precision PTGMIN, PTGMAX, ptg
+      integer init
+      data init /0/
+
+c initialize output parameters
+      lnot=0
+      wusr=1d0
+      PTGMIN = 60d0
+      PTGMAX = 120d0
+       ptg=sqrt(pphot(1,1)**2+pphot(2,1)**2) 
+c      if(cuts not passed) goto 10
+C      write (*,*)  ptg , ptp(1)
+       if(ptg.le.PTGMIN) goto 10
+       if(ptg.gt.PTGMAX) goto 10 
+ 5    return
+ 10     lnot= 1
+       return 
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      ptbin=2e0
+      ptmax=200e0
+      xmbin=4e0
+      xmmax=400e0
+c
+      call mbook(1,'pt_1',2.*ptbin,0e0,2.*ptmax)
+      call mbook(2,'pt_2',ptbin,0e0,ptmax)
+      call mbook(3,'pt_3',ptbin,0e0,ptmax)
+      call mbook(4,'pt_4',ptbin,0e0,ptmax)
+      call mbook(5,'pt_5',ptbin,0e0,ptmax)
+      call mbook(6,'pt_6',ptbin,0e0,ptmax)
+      end
+
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,njets
+         call mtop(i,99,'pt'//jet(i),' ','LOG')
+      enddo
+
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,100000).eq.0) then
+c     save histograms contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'phjet.inc'
+      real*8 wgt,tmp,ptlep,etmiss,xmz,mll
+      real rwgt
+      integer i,j,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+c     reordering according to pt
+      call alusor(ptj,njets,ord,2)              
+      do i=1,njets
+         call mfill(i,real(ptj(ord(njets+1-i))),rwgt)
+      enddo
+c
+      end
diff -Naur alpgen-213.orig/wjetwork/cmsMakefile alpgen-213/wjetwork/cmsMakefile
--- alpgen-213.orig/wjetwork/cmsMakefile        1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/wjetwork/cmsMakefile     2007-07-19 21:50:53.000000000 +0200
@@ -0,0 +1,4 @@
+include ../compile.mk
+prc=wjet
+usrfun=$(USRF)
+include ../alplib/cms_alpgen.mk
\ No newline at end of file
diff -Naur alpgen-213.orig/wjetwork/wjetusr_0ptw100.f alpgen-213/wjetwork/wjetusr_0ptw100.f
--- alpgen-213.orig/wjetwork/wjetusr_0ptw100.f  1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/wjetwork/wjetusr_0ptw100.f       2007-07-19 21:50:49.000000000 +0200
@@ -0,0 +1,157 @@
+c-------------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-------------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c     pt(lept)>ptlmin  etmiss > minetmiss 
+c     abs(eta(lept)) < etalmax 
+c     lepton/jet isolation 
+c
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer lnot
+      double precision wusr
+
+c     smaria@cern.ch sep.2005 for tails cut
+      real ptw
+c
+      lnot=0
+      wusr=1d0
+c
+c  USR will add possible extra cuts at this point. 
+c     if(cut-not-passed) goto 10
+c     smaria@cern.ch sep.2005 for tails cut
+      ptw=sqrt(pw(1)**2+pw(2)**2)
+      if(ptw.gt.100) goto 10
+
+      return
+ 10      lnot= 1
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      character*1 ijet(6)
+      integer i
+      data ijet/'1','2','3','4','5','6'/
+      ptbin=2.5e0
+      ptmax=100*ptbin
+      xmbin=4e0
+      xmmax=400e0
+c
+      do i=1,min(5,njets)
+        call mbook(i,'pt j'//ijet(i),ptbin,0e0,ptmax)
+        call mbook(5+i,'eta j'//ijet(i),0.1,-3e0,3e0)
+      enddo
+      call mbook(12,'ptlept',2.,0e0,200.)
+      call mbook(13,'mW',0.5,70.,110.)
+      call mbook(14,'etal',0.2,-5.,5.)
+      end
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c debug
+      integer idbg
+      double precision fcount
+      common/fldbg/fcount(16),idbg
+      data idbg/0/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,min(5,njets)
+        call mtop(i,99,'pt j'//jet(i),' ','LOG')
+      enddo
+      do i=1,min(5,njets)
+        call mtop(5+i,99,'eta j'//jet(i),' ','LIN')
+      enddo
+c
+      call mtop(12,99,'ptl',' ','LIN')
+      call mtop(13,99,'mW',' ','LIN')
+      call mtop(14,99,'etal',' ','LIN')
+c
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,1000000).eq.0) then
+c     save histograms' contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      real*8 wgt,xmw
+      real rwgt
+      integer i,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+      call mfill(12,real(ptlep),rwgt)
+      if(njets.eq.0) return
+      call alusor(ptj,njets,ord,2)
+      do i=1,min(5,njets)
+        call mfill(i,real(ptj(ord(njets-i+1))),rwgt)
+        call mfill(5+i,real(etaj(ord(njets-i+1))),rwgt)
+      enddo
+      xmw=sqrt(pw(4)**2-pw(1)**2-pw(2)**2-pw(3)**2)
+      call mfill(13,real(xmw),rwgt)
+      call mfill(14,real(etalep),rwgt)
+      end
+      
diff -Naur alpgen-213.orig/wjetwork/wjetusr_100ptw300.f alpgen-213/wjetwork/wjetusr_100ptw300.f
--- alpgen-213.orig/wjetwork/wjetusr_100ptw300.f        1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/wjetwork/wjetusr_100ptw300.f     2007-07-19 21:50:49.000000000 +0200
@@ -0,0 +1,158 @@
+c-------------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-------------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c     pt(lept)>ptlmin  etmiss > minetmiss 
+c     abs(eta(lept)) < etalmax 
+c     lepton/jet isolation 
+c
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer lnot
+      double precision wusr
+
+c     smaria@cern.ch sep.2005 for tails cut
+      real ptw
+c
+      lnot=0
+      wusr=1d0
+c
+c  USR will add possible extra cuts at this point. 
+c     if(cut-not-passed) goto 10
+c     smaria@cern.ch sep.2005 for tails cut
+      ptw=sqrt(pw(1)**2+pw(2)**2)
+      if(ptw.le.100) goto 10
+      if(ptw.gt.300) goto 10
+
+      return
+ 10      lnot= 1
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      character*1 ijet(6)
+      integer i
+      data ijet/'1','2','3','4','5','6'/
+      ptbin=2.5e0
+      ptmax=100*ptbin
+      xmbin=4e0
+      xmmax=400e0
+c
+      do i=1,min(5,njets)
+        call mbook(i,'pt j'//ijet(i),ptbin,0e0,ptmax)
+        call mbook(5+i,'eta j'//ijet(i),0.1,-3e0,3e0)
+      enddo
+      call mbook(12,'ptlept',2.,0e0,200.)
+      call mbook(13,'mW',0.5,70.,110.)
+      call mbook(14,'etal',0.2,-5.,5.)
+      end
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c debug
+      integer idbg
+      double precision fcount
+      common/fldbg/fcount(16),idbg
+      data idbg/0/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,min(5,njets)
+        call mtop(i,99,'pt j'//jet(i),' ','LOG')
+      enddo
+      do i=1,min(5,njets)
+        call mtop(5+i,99,'eta j'//jet(i),' ','LIN')
+      enddo
+c
+      call mtop(12,99,'ptl',' ','LIN')
+      call mtop(13,99,'mW',' ','LIN')
+      call mtop(14,99,'etal',' ','LIN')
+c
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,1000000).eq.0) then
+c     save histograms' contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      real*8 wgt,xmw
+      real rwgt
+      integer i,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+      call mfill(12,real(ptlep),rwgt)
+      if(njets.eq.0) return
+      call alusor(ptj,njets,ord,2)
+      do i=1,min(5,njets)
+        call mfill(i,real(ptj(ord(njets-i+1))),rwgt)
+        call mfill(5+i,real(etaj(ord(njets-i+1))),rwgt)
+      enddo
+      xmw=sqrt(pw(4)**2-pw(1)**2-pw(2)**2-pw(3)**2)
+      call mfill(13,real(xmw),rwgt)
+      call mfill(14,real(etalep),rwgt)
+      end
+      
diff -Naur alpgen-213.orig/wjetwork/wjetusr_1600ptw3200.f alpgen-213/wjetwork/wjetusr_1600ptw3200.f
--- alpgen-213.orig/wjetwork/wjetusr_1600ptw3200.f      1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/wjetwork/wjetusr_1600ptw3200.f   2007-07-19 21:50:49.000000000 +0200
@@ -0,0 +1,158 @@
+c-------------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-------------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c     pt(lept)>ptlmin  etmiss > minetmiss 
+c     abs(eta(lept)) < etalmax 
+c     lepton/jet isolation 
+c
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer lnot
+      double precision wusr
+
+c     smaria@cern.ch sep.2005 for tails cut
+      real ptw
+c
+      lnot=0
+      wusr=1d0
+c
+c  USR will add possible extra cuts at this point. 
+c     if(cut-not-passed) goto 10
+c     smaria@cern.ch sep.2005 for tails cut
+      ptw=sqrt(pw(1)**2+pw(2)**2)
+      if(ptw.le.1600) goto 10
+      if(ptw.gt.3200) goto 10
+
+      return
+ 10      lnot= 1
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      character*1 ijet(6)
+      integer i
+      data ijet/'1','2','3','4','5','6'/
+      ptbin=2.5e0
+      ptmax=100*ptbin
+      xmbin=4e0
+      xmmax=400e0
+c
+      do i=1,min(5,njets)
+        call mbook(i,'pt j'//ijet(i),ptbin,0e0,ptmax)
+        call mbook(5+i,'eta j'//ijet(i),0.1,-3e0,3e0)
+      enddo
+      call mbook(12,'ptlept',2.,0e0,200.)
+      call mbook(13,'mW',0.5,70.,110.)
+      call mbook(14,'etal',0.2,-5.,5.)
+      end
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c debug
+      integer idbg
+      double precision fcount
+      common/fldbg/fcount(16),idbg
+      data idbg/0/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,min(5,njets)
+        call mtop(i,99,'pt j'//jet(i),' ','LOG')
+      enddo
+      do i=1,min(5,njets)
+        call mtop(5+i,99,'eta j'//jet(i),' ','LIN')
+      enddo
+c
+      call mtop(12,99,'ptl',' ','LIN')
+      call mtop(13,99,'mW',' ','LIN')
+      call mtop(14,99,'etal',' ','LIN')
+c
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,1000000).eq.0) then
+c     save histograms' contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      real*8 wgt,xmw
+      real rwgt
+      integer i,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+      call mfill(12,real(ptlep),rwgt)
+      if(njets.eq.0) return
+      call alusor(ptj,njets,ord,2)
+      do i=1,min(5,njets)
+        call mfill(i,real(ptj(ord(njets-i+1))),rwgt)
+        call mfill(5+i,real(etaj(ord(njets-i+1))),rwgt)
+      enddo
+      xmw=sqrt(pw(4)**2-pw(1)**2-pw(2)**2-pw(3)**2)
+      call mfill(13,real(xmw),rwgt)
+      call mfill(14,real(etalep),rwgt)
+      end
+      
diff -Naur alpgen-213.orig/wjetwork/wjetusr_300ptw800.f alpgen-213/wjetwork/wjetusr_300ptw800.f
--- alpgen-213.orig/wjetwork/wjetusr_300ptw800.f        1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/wjetwork/wjetusr_300ptw800.f     2007-07-19 21:50:49.000000000 +0200
@@ -0,0 +1,158 @@
+c-------------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-------------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c     pt(lept)>ptlmin  etmiss > minetmiss 
+c     abs(eta(lept)) < etalmax 
+c     lepton/jet isolation 
+c
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer lnot
+      double precision wusr
+
+c     smaria@cern.ch sep.2005 for tails cut
+      real ptw
+c
+      lnot=0
+      wusr=1d0
+c
+c  USR will add possible extra cuts at this point. 
+c     if(cut-not-passed) goto 10
+c     smaria@cern.ch sep.2005 for tails cut
+      ptw=sqrt(pw(1)**2+pw(2)**2)
+      if(ptw.le.300) goto 10
+      if(ptw.gt.800) goto 10
+
+      return
+ 10      lnot= 1
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      character*1 ijet(6)
+      integer i
+      data ijet/'1','2','3','4','5','6'/
+      ptbin=2.5e0
+      ptmax=100*ptbin
+      xmbin=4e0
+      xmmax=400e0
+c
+      do i=1,min(5,njets)
+        call mbook(i,'pt j'//ijet(i),ptbin,0e0,ptmax)
+        call mbook(5+i,'eta j'//ijet(i),0.1,-3e0,3e0)
+      enddo
+      call mbook(12,'ptlept',2.,0e0,200.)
+      call mbook(13,'mW',0.5,70.,110.)
+      call mbook(14,'etal',0.2,-5.,5.)
+      end
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c debug
+      integer idbg
+      double precision fcount
+      common/fldbg/fcount(16),idbg
+      data idbg/0/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,min(5,njets)
+        call mtop(i,99,'pt j'//jet(i),' ','LOG')
+      enddo
+      do i=1,min(5,njets)
+        call mtop(5+i,99,'eta j'//jet(i),' ','LIN')
+      enddo
+c
+      call mtop(12,99,'ptl',' ','LIN')
+      call mtop(13,99,'mW',' ','LIN')
+      call mtop(14,99,'etal',' ','LIN')
+c
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,1000000).eq.0) then
+c     save histograms' contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      real*8 wgt,xmw
+      real rwgt
+      integer i,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+      call mfill(12,real(ptlep),rwgt)
+      if(njets.eq.0) return
+      call alusor(ptj,njets,ord,2)
+      do i=1,min(5,njets)
+        call mfill(i,real(ptj(ord(njets-i+1))),rwgt)
+        call mfill(5+i,real(etaj(ord(njets-i+1))),rwgt)
+      enddo
+      xmw=sqrt(pw(4)**2-pw(1)**2-pw(2)**2-pw(3)**2)
+      call mfill(13,real(xmw),rwgt)
+      call mfill(14,real(etalep),rwgt)
+      end
+      
diff -Naur alpgen-213.orig/wjetwork/wjetusr_3200ptw5000.f alpgen-213/wjetwork/wjetusr_3200ptw5000.f
--- alpgen-213.orig/wjetwork/wjetusr_3200ptw5000.f      1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/wjetwork/wjetusr_3200ptw5000.f   2007-07-19 21:50:49.000000000 +0200
@@ -0,0 +1,158 @@
+c-------------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-------------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c     pt(lept)>ptlmin  etmiss > minetmiss 
+c     abs(eta(lept)) < etalmax 
+c     lepton/jet isolation 
+c
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer lnot
+      double precision wusr
+
+c     smaria@cern.ch sep.2005 for tails cut
+      real ptw
+c
+      lnot=0
+      wusr=1d0
+c
+c  USR will add possible extra cuts at this point. 
+c     if(cut-not-passed) goto 10
+c     smaria@cern.ch sep.2005 for tails cut
+      ptw=sqrt(pw(1)**2+pw(2)**2)
+      if(ptw.le.3200) goto 10
+      if(ptw.gt.5000) goto 10
+
+      return
+ 10      lnot= 1
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      character*1 ijet(6)
+      integer i
+      data ijet/'1','2','3','4','5','6'/
+      ptbin=2.5e0
+      ptmax=100*ptbin
+      xmbin=4e0
+      xmmax=400e0
+c
+      do i=1,min(5,njets)
+        call mbook(i,'pt j'//ijet(i),ptbin,0e0,ptmax)
+        call mbook(5+i,'eta j'//ijet(i),0.1,-3e0,3e0)
+      enddo
+      call mbook(12,'ptlept',2.,0e0,200.)
+      call mbook(13,'mW',0.5,70.,110.)
+      call mbook(14,'etal',0.2,-5.,5.)
+      end
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c debug
+      integer idbg
+      double precision fcount
+      common/fldbg/fcount(16),idbg
+      data idbg/0/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,min(5,njets)
+        call mtop(i,99,'pt j'//jet(i),' ','LOG')
+      enddo
+      do i=1,min(5,njets)
+        call mtop(5+i,99,'eta j'//jet(i),' ','LIN')
+      enddo
+c
+      call mtop(12,99,'ptl',' ','LIN')
+      call mtop(13,99,'mW',' ','LIN')
+      call mtop(14,99,'etal',' ','LIN')
+c
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,1000000).eq.0) then
+c     save histograms' contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      real*8 wgt,xmw
+      real rwgt
+      integer i,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+      call mfill(12,real(ptlep),rwgt)
+      if(njets.eq.0) return
+      call alusor(ptj,njets,ord,2)
+      do i=1,min(5,njets)
+        call mfill(i,real(ptj(ord(njets-i+1))),rwgt)
+        call mfill(5+i,real(etaj(ord(njets-i+1))),rwgt)
+      enddo
+      xmw=sqrt(pw(4)**2-pw(1)**2-pw(2)**2-pw(3)**2)
+      call mfill(13,real(xmw),rwgt)
+      call mfill(14,real(etalep),rwgt)
+      end
+      
diff -Naur alpgen-213.orig/wjetwork/wjetusr_800ptw1600.f alpgen-213/wjetwork/wjetusr_800ptw1600.f
--- alpgen-213.orig/wjetwork/wjetusr_800ptw1600.f       1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/wjetwork/wjetusr_800ptw1600.f    2007-07-19 21:50:49.000000000 +0200
@@ -0,0 +1,158 @@
+c-------------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-------------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c     pt(lept)>ptlmin  etmiss > minetmiss 
+c     abs(eta(lept)) < etalmax 
+c     lepton/jet isolation 
+c
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer lnot
+      double precision wusr
+
+c     smaria@cern.ch sep.2005 for tails cut
+      real ptw
+c
+      lnot=0
+      wusr=1d0
+c
+c  USR will add possible extra cuts at this point. 
+c     if(cut-not-passed) goto 10
+c     smaria@cern.ch sep.2005 for tails cut
+      ptw=sqrt(pw(1)**2+pw(2)**2)
+      if(ptw.le.1600) goto 10
+      if(ptw.gt.3200) goto 10
+
+      return
+ 10      lnot= 1
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      character*1 ijet(6)
+      integer i
+      data ijet/'1','2','3','4','5','6'/
+      ptbin=2.5e0
+      ptmax=100*ptbin
+      xmbin=4e0
+      xmmax=400e0
+c
+      do i=1,min(5,njets)
+        call mbook(i,'pt j'//ijet(i),ptbin,0e0,ptmax)
+        call mbook(5+i,'eta j'//ijet(i),0.1,-3e0,3e0)
+      enddo
+      call mbook(12,'ptlept',2.,0e0,200.)
+      call mbook(13,'mW',0.5,70.,110.)
+      call mbook(14,'etal',0.2,-5.,5.)
+      end
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c debug
+      integer idbg
+      double precision fcount
+      common/fldbg/fcount(16),idbg
+      data idbg/0/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,min(5,njets)
+        call mtop(i,99,'pt j'//jet(i),' ','LOG')
+      enddo
+      do i=1,min(5,njets)
+        call mtop(5+i,99,'eta j'//jet(i),' ','LIN')
+      enddo
+c
+      call mtop(12,99,'ptl',' ','LIN')
+      call mtop(13,99,'mW',' ','LIN')
+      call mtop(14,99,'etal',' ','LIN')
+c
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,1000000).eq.0) then
+c     save histograms' contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      real*8 wgt,xmw
+      real rwgt
+      integer i,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+      call mfill(12,real(ptlep),rwgt)
+      if(njets.eq.0) return
+      call alusor(ptj,njets,ord,2)
+      do i=1,min(5,njets)
+        call mfill(i,real(ptj(ord(njets-i+1))),rwgt)
+        call mfill(5+i,real(etaj(ord(njets-i+1))),rwgt)
+      enddo
+      xmw=sqrt(pw(4)**2-pw(1)**2-pw(2)**2-pw(3)**2)
+      call mfill(13,real(xmw),rwgt)
+      call mfill(14,real(etalep),rwgt)
+      end
+      
diff -Naur alpgen-213.orig/wjetwork/wjetusr_VBFHiggsTo2Tau.f alpgen-213/wjetwork/wjetusr_VBFHiggsTo2Tau.f
--- alpgen-213.orig/wjetwork/wjetusr_VBFHiggsTo2Tau.f   1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/wjetwork/wjetusr_VBFHiggsTo2Tau.f        2007-07-19 21:50:49.000000000 +0200
@@ -0,0 +1,231 @@
+c-------------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-------------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c     pt(lept)>ptlmin  etmiss > minetmiss 
+c     abs(eta(lept)) < etalmax 
+c     lepton/jet isolation 
+c
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer lnot
+      double precision wusr
+c local params
+      double precision emax,emin, ptjbig, ptjets(maxpar-2), xmjj
+      integer i,j1,j2
+c
+      lnot=0
+      wusr=1d0
+c
+c  USR will add possible extra cuts at this point. 
+c     if(cut-not-passed) goto 10
+      do i = 1, njets
+         ptjets(i) = ptj(i)
+      enddo
+c  first max pt jet selection
+      ptjbig = -10.
+      do i = 1, njets
+         if(ptjets(i).gt.ptjbig) then
+            ptjbig = ptjets(i)
+            j1 = i
+         endif
+      enddo
+      ptjets(j1) = -10.
+      ptjbig = -10.
+c  second max pt jet selection      
+      do i = 1, njets
+         if(ptjets(i).gt.ptjbig) then
+            ptjbig = ptjets(i)
+            j2 = i
+         endif
+      enddo
+
+      if((etaj(j1)-etaj(j2)).ge.0.and.(etaj(j1)-etaj(j2)).le. 2) goto 10
+      if((etaj(j1)-etaj(j2)).le.0.and.(etaj(j1)-etaj(j2)).ge.-2) goto 10
+
+      xmjj = sqrt( (pjet(4,j1)+pjet(4,j2))**2 -
+     &             (pjet(1,j1)+pjet(1,j2))**2 -      
+     &             (pjet(2,j1)+pjet(2,j2))**2 -      
+     &             (pjet(3,j1)+pjet(3,j2))**2 )
+
+      if(xmjj.le.300) goto 10
+
+ 5    return
+c     if(cut-not-passed) goto 10
+
+      return
+ 10   lnot= 1
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      character*1 ijet(6)
+      integer i
+      data ijet/'1','2','3','4','5','6'/
+      ptbin=2.5e0
+      ptmax=100*ptbin
+      xmbin=4e0
+      xmmax=400e0
+c
+      do i=1,min(5,njets)
+        call mbook(i,'pt j'//ijet(i),ptbin,0e0,ptmax)
+        call mbook(5+i,'eta j'//ijet(i),0.1,-3e0,3e0)
+      enddo
+      call mbook(12,'ptlept',2.,0e0,200.)
+      call mbook(13,'mW',0.5,70.,110.)
+      call mbook(14,'etal',0.2,-5.,5.)
+      call mbook(15,'detajj',0.2,0.,10.)
+      call mbook(16,'mjj',100.,0.,5000.)
+      end
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c debug
+      integer idbg
+      double precision fcount
+      common/fldbg/fcount(16),idbg
+      data idbg/0/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,min(5,njets)
+        call mtop(i,99,'pt j'//jet(i),' ','LOG')
+      enddo
+      do i=1,min(5,njets)
+        call mtop(5+i,99,'eta j'//jet(i),' ','LIN')
+      enddo
+c
+      call mtop(12,99,'ptl',' ','LIN')
+      call mtop(13,99,'mW',' ','LIN')
+      call mtop(14,99,'etal',' ','LIN')
+      call mtop(15,99,'detajj',' ','LIN')
+      call mtop(16,99,'mjj',' ','LIN')
+c
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,1000000).eq.0) then
+c     save histograms' contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'wjet.inc'
+      real*8 wgt,xmw
+      real rwgt
+      integer i,jproc,ord(10)
+c ===================================================
+      double precision emax,emin, ptjbig, ptjets(maxpar-2), xmjj, deta
+      integer j1,j2
+c ===================================================
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+      call mfill(12,real(ptlep),rwgt)
+      if(njets.eq.0) return
+      call alusor(ptj,njets,ord,2)
+      do i=1,min(5,njets)
+        call mfill(i,real(ptj(ord(njets-i+1))),rwgt)
+        call mfill(5+i,real(etaj(ord(njets-i+1))),rwgt)
+      enddo
+      xmw=sqrt(pw(4)**2-pw(1)**2-pw(2)**2-pw(3)**2)
+      call mfill(13,real(xmw),rwgt)
+      call mfill(14,real(etalep),rwgt)
+c ===================================================
+c  USR will add possible extra cuts at this point. 
+      do i = 1, njets
+         ptjets(i) = ptj(i)
+      enddo
+c  first max pt jet selection
+      ptjbig = -10.
+      do i = 1, njets
+         if(ptjets(i).gt.ptjbig) then
+            ptjbig = ptjets(i)
+            j1 = i
+         endif
+      enddo
+      ptjets(j1) = -10.
+      ptjbig = -10.
+c  second max pt jet selection      
+      do i = 1, njets
+         if(ptjets(i).gt.ptjbig) then
+            ptjbig = ptjets(i)
+            j2 = i
+         endif
+      enddo
+c
+      deta = abs(etaj(j2)-etaj(j1))
+      if(abs(etaj(j1)-etaj(j2)).ge.abs(etaj(j2)-etaj(j1))) then
+         deta = abs(etaj(j1)-etaj(j2))
+      endif
+c
+      xmjj = sqrt( (pjet(4,j1)+pjet(4,j2))**2 
+     &           - (pjet(1,j1)+pjet(1,j2))**2       
+     &           - (pjet(2,j1)+pjet(2,j2))**2       
+     &           - (pjet(3,j1)+pjet(3,j2))**2 )
+c
+      call mfill(15,real(deta),rwgt)
+      call mfill(16,real(xmjj),rwgt)
+c ===================================================
+      end
+      
diff -Naur alpgen-213.orig/zjetwork/cmsMakefile alpgen-213/zjetwork/cmsMakefile
--- alpgen-213.orig/zjetwork/cmsMakefile        1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/zjetwork/cmsMakefile     2007-07-19 21:51:02.000000000 +0200
@@ -0,0 +1,4 @@
+include ../compile.mk
+prc=zjet
+usrfun=$(USRF)
+include ../alplib/cms_alpgen.mk
diff -Naur alpgen-213.orig/zjetwork/zjetusr_0ptz100.f alpgen-213/zjetwork/zjetusr_0ptz100.f
--- alpgen-213.orig/zjetwork/zjetusr_0ptz100.f  1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/zjetwork/zjetusr_0ptz100.f       2007-07-19 21:51:05.000000000 +0200
@@ -0,0 +1,149 @@
+c-----------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-----------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c     mllmin < m(l+l-) < mllmax
+c     pt(lept)>ptlmin (if l+l-) or  etmiss > minetmiss (if nu nubar)
+c     abs(eta(lept)) < etalmax (if l+l-) 
+c     lepton/jet isolation (if l+l-) 
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+c
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      double precision wusr
+      integer lnot
+
+      real ptz
+
+c local params
+      double precision emax,emin
+      integer i,imax,imin
+c initialize output parameters
+      lnot=0
+      wusr=1d0
+
+c     if(cut-not-passed) goto 10
+c      for tails cut
+      ptz=sqrt(pz(1)**2+pz(2)**2)
+      if(ptz.lt.0) goto 10
+      if(ptz.gt.100) goto 10
+      return
+ 10   lnot= 1
+
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      ptbin=2e0
+      ptmax=200e0
+      xmbin=4e0
+      xmmax=400e0
+c
+      call mbook(1,'pt_1',2.*ptbin,0e0,2.*ptmax)
+      call mbook(2,'pt_2',ptbin,0e0,ptmax)
+      call mbook(3,'pt_3',ptbin,0e0,ptmax)
+c
+      call mbook(11,'eta_1',0.2,-5.0,5.0)
+      call mbook(12,'eta_2',0.2,-5.0,5.0)
+      call mbook(13,'eta_3',0.2,-5.0,5.0)
+
+      end
+
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,min(3,njets)
+         call mtop(i,99,'pt'//jet(i),' ','LOG')
+      enddo
+      do i=1,min(3,njets)
+         call mtop(10+i,99,'eta'//jet(i),' ','LIN')
+      enddo
+c
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,100000).eq.0) then
+c     save histograms' contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      real*8 wgt,tmp,ptlep,etmiss,xmz,mll
+      real rwgt
+      integer i,j,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+c     reordering according to pt
+      call alusor(ptj,njets,ord,2)              
+      do i=1,min(3,njets)
+         call mfill(i,real(ptj(ord(njets+1-i))),rwgt)
+         call mfill(10+i,real(etaj(ord(njets+1-i))),rwgt)
+      enddo
+c
+      end
+
+
diff -Naur alpgen-213.orig/zjetwork/zjetusr_100ptz300.f alpgen-213/zjetwork/zjetusr_100ptz300.f
--- alpgen-213.orig/zjetwork/zjetusr_100ptz300.f        1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/zjetwork/zjetusr_100ptz300.f     2007-07-19 21:51:05.000000000 +0200
@@ -0,0 +1,149 @@
+c-----------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-----------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c     mllmin < m(l+l-) < mllmax
+c     pt(lept)>ptlmin (if l+l-) or  etmiss > minetmiss (if nu nubar)
+c     abs(eta(lept)) < etalmax (if l+l-) 
+c     lepton/jet isolation (if l+l-) 
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+c
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      double precision wusr
+      integer lnot
+
+      real ptz
+
+c local params
+      double precision emax,emin
+      integer i,imax,imin
+c initialize output parameters
+      lnot=0
+      wusr=1d0
+
+c     if(cut-not-passed) goto 10
+c      for tails cut
+      ptz=sqrt(pz(1)**2+pz(2)**2)
+      if(ptz.lt.100) goto 10
+      if(ptz.gt.300) goto 10
+      return
+ 10   lnot= 1
+
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      ptbin=2e0
+      ptmax=200e0
+      xmbin=4e0
+      xmmax=400e0
+c
+      call mbook(1,'pt_1',2.*ptbin,0e0,2.*ptmax)
+      call mbook(2,'pt_2',ptbin,0e0,ptmax)
+      call mbook(3,'pt_3',ptbin,0e0,ptmax)
+c
+      call mbook(11,'eta_1',0.2,-5.0,5.0)
+      call mbook(12,'eta_2',0.2,-5.0,5.0)
+      call mbook(13,'eta_3',0.2,-5.0,5.0)
+
+      end
+
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,min(3,njets)
+         call mtop(i,99,'pt'//jet(i),' ','LOG')
+      enddo
+      do i=1,min(3,njets)
+         call mtop(10+i,99,'eta'//jet(i),' ','LIN')
+      enddo
+c
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,100000).eq.0) then
+c     save histograms' contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      real*8 wgt,tmp,ptlep,etmiss,xmz,mll
+      real rwgt
+      integer i,j,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+c     reordering according to pt
+      call alusor(ptj,njets,ord,2)              
+      do i=1,min(3,njets)
+         call mfill(i,real(ptj(ord(njets+1-i))),rwgt)
+         call mfill(10+i,real(etaj(ord(njets+1-i))),rwgt)
+      enddo
+c
+      end
+
+
diff -Naur alpgen-213.orig/zjetwork/zjetusr_1600ptz3200.f alpgen-213/zjetwork/zjetusr_1600ptz3200.f
--- alpgen-213.orig/zjetwork/zjetusr_1600ptz3200.f      1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/zjetwork/zjetusr_1600ptz3200.f   2007-07-19 21:51:05.000000000 +0200
@@ -0,0 +1,149 @@
+c-----------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-----------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c     mllmin < m(l+l-) < mllmax
+c     pt(lept)>ptlmin (if l+l-) or  etmiss > minetmiss (if nu nubar)
+c     abs(eta(lept)) < etalmax (if l+l-) 
+c     lepton/jet isolation (if l+l-) 
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+c
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      double precision wusr
+      integer lnot
+
+      real ptz
+
+c local params
+      double precision emax,emin
+      integer i,imax,imin
+c initialize output parameters
+      lnot=0
+      wusr=1d0
+
+c     if(cut-not-passed) goto 10
+c      for tails cut
+      ptz=sqrt(pz(1)**2+pz(2)**2)
+      if(ptz.lt.1600) goto 10
+      if(ptz.gt.3200) goto 10
+      return
+ 10   lnot= 1
+
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      ptbin=2e0
+      ptmax=200e0
+      xmbin=4e0
+      xmmax=400e0
+c
+      call mbook(1,'pt_1',2.*ptbin,0e0,2.*ptmax)
+      call mbook(2,'pt_2',ptbin,0e0,ptmax)
+      call mbook(3,'pt_3',ptbin,0e0,ptmax)
+c
+      call mbook(11,'eta_1',0.2,-5.0,5.0)
+      call mbook(12,'eta_2',0.2,-5.0,5.0)
+      call mbook(13,'eta_3',0.2,-5.0,5.0)
+
+      end
+
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,min(3,njets)
+         call mtop(i,99,'pt'//jet(i),' ','LOG')
+      enddo
+      do i=1,min(3,njets)
+         call mtop(10+i,99,'eta'//jet(i),' ','LIN')
+      enddo
+c
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,100000).eq.0) then
+c     save histograms' contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      real*8 wgt,tmp,ptlep,etmiss,xmz,mll
+      real rwgt
+      integer i,j,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+c     reordering according to pt
+      call alusor(ptj,njets,ord,2)              
+      do i=1,min(3,njets)
+         call mfill(i,real(ptj(ord(njets+1-i))),rwgt)
+         call mfill(10+i,real(etaj(ord(njets+1-i))),rwgt)
+      enddo
+c
+      end
+
+
diff -Naur alpgen-213.orig/zjetwork/zjetusr_300ptz800.f alpgen-213/zjetwork/zjetusr_300ptz800.f
--- alpgen-213.orig/zjetwork/zjetusr_300ptz800.f        1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/zjetwork/zjetusr_300ptz800.f     2007-07-19 21:51:05.000000000 +0200
@@ -0,0 +1,149 @@
+c-----------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-----------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c     mllmin < m(l+l-) < mllmax
+c     pt(lept)>ptlmin (if l+l-) or  etmiss > minetmiss (if nu nubar)
+c     abs(eta(lept)) < etalmax (if l+l-) 
+c     lepton/jet isolation (if l+l-) 
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+c
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      double precision wusr
+      integer lnot
+
+      real ptz
+
+c local params
+      double precision emax,emin
+      integer i,imax,imin
+c initialize output parameters
+      lnot=0
+      wusr=1d0
+
+c     if(cut-not-passed) goto 10
+c      for tails cut
+      ptz=sqrt(pz(1)**2+pz(2)**2)
+      if(ptz.lt.300) goto 10
+      if(ptz.gt.800) goto 10
+      return
+ 10   lnot= 1
+
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      ptbin=2e0
+      ptmax=200e0
+      xmbin=4e0
+      xmmax=400e0
+c
+      call mbook(1,'pt_1',2.*ptbin,0e0,2.*ptmax)
+      call mbook(2,'pt_2',ptbin,0e0,ptmax)
+      call mbook(3,'pt_3',ptbin,0e0,ptmax)
+c
+      call mbook(11,'eta_1',0.2,-5.0,5.0)
+      call mbook(12,'eta_2',0.2,-5.0,5.0)
+      call mbook(13,'eta_3',0.2,-5.0,5.0)
+
+      end
+
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,min(3,njets)
+         call mtop(i,99,'pt'//jet(i),' ','LOG')
+      enddo
+      do i=1,min(3,njets)
+         call mtop(10+i,99,'eta'//jet(i),' ','LIN')
+      enddo
+c
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,100000).eq.0) then
+c     save histograms' contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      real*8 wgt,tmp,ptlep,etmiss,xmz,mll
+      real rwgt
+      integer i,j,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+c     reordering according to pt
+      call alusor(ptj,njets,ord,2)              
+      do i=1,min(3,njets)
+         call mfill(i,real(ptj(ord(njets+1-i))),rwgt)
+         call mfill(10+i,real(etaj(ord(njets+1-i))),rwgt)
+      enddo
+c
+      end
+
+
diff -Naur alpgen-213.orig/zjetwork/zjetusr_3200ptz5000.f alpgen-213/zjetwork/zjetusr_3200ptz5000.f
--- alpgen-213.orig/zjetwork/zjetusr_3200ptz5000.f      1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/zjetwork/zjetusr_3200ptz5000.f   2007-07-19 21:51:05.000000000 +0200
@@ -0,0 +1,149 @@
+c-----------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-----------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c     mllmin < m(l+l-) < mllmax
+c     pt(lept)>ptlmin (if l+l-) or  etmiss > minetmiss (if nu nubar)
+c     abs(eta(lept)) < etalmax (if l+l-) 
+c     lepton/jet isolation (if l+l-) 
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+c
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      double precision wusr
+      integer lnot
+
+      real ptz
+
+c local params
+      double precision emax,emin
+      integer i,imax,imin
+c initialize output parameters
+      lnot=0
+      wusr=1d0
+
+c     if(cut-not-passed) goto 10
+c      for tails cut
+      ptz=sqrt(pz(1)**2+pz(2)**2)
+      if(ptz.lt.3200) goto 10
+      if(ptz.gt.5000) goto 10
+      return
+ 10   lnot= 1
+
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      ptbin=2e0
+      ptmax=200e0
+      xmbin=4e0
+      xmmax=400e0
+c
+      call mbook(1,'pt_1',2.*ptbin,0e0,2.*ptmax)
+      call mbook(2,'pt_2',ptbin,0e0,ptmax)
+      call mbook(3,'pt_3',ptbin,0e0,ptmax)
+c
+      call mbook(11,'eta_1',0.2,-5.0,5.0)
+      call mbook(12,'eta_2',0.2,-5.0,5.0)
+      call mbook(13,'eta_3',0.2,-5.0,5.0)
+
+      end
+
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,min(3,njets)
+         call mtop(i,99,'pt'//jet(i),' ','LOG')
+      enddo
+      do i=1,min(3,njets)
+         call mtop(10+i,99,'eta'//jet(i),' ','LIN')
+      enddo
+c
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,100000).eq.0) then
+c     save histograms' contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      real*8 wgt,tmp,ptlep,etmiss,xmz,mll
+      real rwgt
+      integer i,j,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+c     reordering according to pt
+      call alusor(ptj,njets,ord,2)              
+      do i=1,min(3,njets)
+         call mfill(i,real(ptj(ord(njets+1-i))),rwgt)
+         call mfill(10+i,real(etaj(ord(njets+1-i))),rwgt)
+      enddo
+c
+      end
+
+
diff -Naur alpgen-213.orig/zjetwork/zjetusr_800ptz1600.f alpgen-213/zjetwork/zjetusr_800ptz1600.f
--- alpgen-213.orig/zjetwork/zjetusr_800ptz1600.f       1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/zjetwork/zjetusr_800ptz1600.f    2007-07-19 21:51:05.000000000 +0200
@@ -0,0 +1,149 @@
+c-----------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-----------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c     mllmin < m(l+l-) < mllmax
+c     pt(lept)>ptlmin (if l+l-) or  etmiss > minetmiss (if nu nubar)
+c     abs(eta(lept)) < etalmax (if l+l-) 
+c     lepton/jet isolation (if l+l-) 
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+c
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      double precision wusr
+      integer lnot
+
+      real ptz
+
+c local params
+      double precision emax,emin
+      integer i,imax,imin
+c initialize output parameters
+      lnot=0
+      wusr=1d0
+
+c     if(cut-not-passed) goto 10
+c      for tails cut
+      ptz=sqrt(pz(1)**2+pz(2)**2)
+      if(ptz.lt.800) goto 10
+      if(ptz.gt.1600) goto 10
+      return
+ 10   lnot= 1
+
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      ptbin=2e0
+      ptmax=200e0
+      xmbin=4e0
+      xmmax=400e0
+c
+      call mbook(1,'pt_1',2.*ptbin,0e0,2.*ptmax)
+      call mbook(2,'pt_2',ptbin,0e0,ptmax)
+      call mbook(3,'pt_3',ptbin,0e0,ptmax)
+c
+      call mbook(11,'eta_1',0.2,-5.0,5.0)
+      call mbook(12,'eta_2',0.2,-5.0,5.0)
+      call mbook(13,'eta_3',0.2,-5.0,5.0)
+
+      end
+
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,min(3,njets)
+         call mtop(i,99,'pt'//jet(i),' ','LOG')
+      enddo
+      do i=1,min(3,njets)
+         call mtop(10+i,99,'eta'//jet(i),' ','LIN')
+      enddo
+c
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,100000).eq.0) then
+c     save histograms' contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      real*8 wgt,tmp,ptlep,etmiss,xmz,mll
+      real rwgt
+      integer i,j,jproc,ord(10)
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+c     reordering according to pt
+      call alusor(ptj,njets,ord,2)              
+      do i=1,min(3,njets)
+         call mfill(i,real(ptj(ord(njets+1-i))),rwgt)
+         call mfill(10+i,real(etaj(ord(njets+1-i))),rwgt)
+      enddo
+c
+      end
+
+
diff -Naur alpgen-213.orig/zjetwork/zjetusr_VBFHiggsTo2Tau.f alpgen-213/zjetwork/zjetusr_VBFHiggsTo2Tau.f
--- alpgen-213.orig/zjetwork/zjetusr_VBFHiggsTo2Tau.f   1970-01-01 01:00:00.000000000 +0100
+++ alpgen-213/zjetwork/zjetusr_VBFHiggsTo2Tau.f        2007-07-19 21:51:05.000000000 +0200
@@ -0,0 +1,219 @@
+c-----------------------------------------------------------------
+      subroutine usrcut(lnot,wusr)
+c-----------------------------------------------------------------
+c PRIMARY CUTS ALREADY APPLIED TO PHASE-SPACE GENERATION:
+c     ptjmin < pt(jet) < ptjmax for all light jets
+c     -etajmax < eta(jet) < etajmax for all light jets
+c     delta R(jj) > drjmin for all (light jet, light jet) pairs
+c     mllmin < m(l+l-) < mllmax
+c     pt(lept)>ptlmin (if l+l-) or  etmiss > minetmiss (if nu nubar)
+c     abs(eta(lept)) < etalmax (if l+l-) 
+c     lepton/jet isolation (if l+l-) 
+c USE THIS ROUTINE TO ENFORCE OTHER CUTS    
+c
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      double precision wusr
+      integer lnot
+c local params
+      double precision emax,emin, ptjbig, ptjets(maxpar-2), xmjj
+      integer i,imax,imin,j1,j2
+c initialize output parameters
+      lnot=0
+      wusr=1d0
+c
+c  USR will add possible extra cuts at this point. 
+c     if(cut-not-passed) goto 10
+      do i = 1, njets
+         ptjets(i) = ptj(i)
+      enddo
+c  first max pt jet selection
+      ptjbig = -10.
+      do i = 1, njets
+         if(ptjets(i).gt.ptjbig) then
+            ptjbig = ptjets(i)
+            j1 = i
+         endif
+      enddo
+      ptjets(j1) = -10.
+      ptjbig = -10.
+c  second max pt jet selection      
+      do i = 1, njets
+         if(ptjets(i).gt.ptjbig) then
+            ptjbig = ptjets(i)
+            j2 = i
+         endif
+      enddo
+
+      if((etaj(j1)-etaj(j2)).ge.0.and.(etaj(j1)-etaj(j2)).le. 2) goto 10
+      if((etaj(j1)-etaj(j2)).le.0.and.(etaj(j1)-etaj(j2)).ge.-2) goto 10
+
+      xmjj = sqrt( (pjet(4,j1)+pjet(4,j2))**2 -
+     &             (pjet(1,j1)+pjet(1,j2))**2 -      
+     &             (pjet(2,j1)+pjet(2,j2))**2 -      
+     &             (pjet(3,j1)+pjet(3,j2))**2 )
+
+      if(xmjj.le.300) goto 10
+c
+ 5    return
+c     if(cut-not-passed) goto 10
+ 10   lnot= 1
+      return
+      end
+
+c-------------------------------------------------------------------
+      subroutine alshis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      real ptbin,ptmax,xmbin,xmmax
+      ptbin=2e0
+      ptmax=200e0
+      xmbin=4e0
+      xmmax=400e0
+c
+      call mbook(1,'pt_1',2.*ptbin,0e0,2.*ptmax)
+      call mbook(2,'pt_2',ptbin,0e0,ptmax)
+      call mbook(3,'pt_3',ptbin,0e0,ptmax)
+c
+      call mbook(11,'eta_1',0.2,-5.0,5.0)
+      call mbook(12,'eta_2',0.2,-5.0,5.0)
+      call mbook(13,'eta_3',0.2,-5.0,5.0)
+      call mbook(15,'detajj',0.2,0.,10.)
+      call mbook(16,'mjj',100.,0.,5000.)
+
+      end
+
+c-------------------------------------------------------------------
+      subroutine alfhis
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      integer i
+      real  xnorm
+      character *1 jet(9)
+      data jet/'1','2','3','4','5','6','7','8','9'/
+c
+      open(unit=99,file=topfile,err=101,status='unknown')
+      if(imode.le.1) then
+         xnorm=sngl(avgwgt/totwgt)
+      elseif(imode.eq.2) then
+         xnorm=1e0/real(unwev)
+      else
+         write(*,*) 'imode type not allowed, stop'
+         stop
+      endif
+c
+      do i=1,200
+         if(i.ne.61) call mopera(i,'F',i,i,xnorm,1.)
+         call mfinal(i)
+      enddo 
+c
+      do i=1,min(3,njets)
+         call mtop(i,99,'pt'//jet(i),' ','LOG')
+      enddo
+      do i=1,min(3,njets)
+         call mtop(10+i,99,'eta'//jet(i),' ','LIN')
+      enddo
+      call mtop(15,99,'detajj',' ','LIN')
+      call mtop(16,99,'mjj',' ','LIN')
+c
+ 100  close(99)
+ 101  return
+      end
+
+      subroutine monitor(n,mon_fname)
+c     This routine is called by default every 100K events.
+c     The user can use it to get regular updates on the run
+c     while this is progressing. Textual output can be written to file
+c     fname, where partial cross-sections and and generation
+c     efficiencies have already been printed by default
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      integer n
+      character *50 mon_fname
+c
+      if(evgen) then
+         if(mod(n,100000).eq.0) then
+c     save histograms' contents
+            call msave
+c     print out histograms
+            call alfhis
+c     restore original contents, to proceed with analysis
+            call mrestore
+         endif 
+      endif 
+      end
+c-------------------------------------------------------------------
+      subroutine aleana(jproc,wgt)
+c     analyse event, fill histograms
+c-------------------------------------------------------------------
+      implicit none
+      include 'alpgen.inc'
+      include 'zjet.inc'
+      real*8 wgt,tmp,ptlep,etmiss,xmz,mll
+      real rwgt
+      integer i,j,jproc,ord(10)
+c ===================================================
+      double precision emax,emin, ptjbig, ptjets(maxpar-2), xmjj, deta
+      integer j1,j2
+c ===================================================
+c
+      rwgt=real(wgt)
+      if(rwgt.lt.0e0) then
+         write(*,*) 'negative wgt=',wgt
+         return
+      elseif (rwgt.eq.0e0) then
+         return
+      endif 
+c
+c     reordering according to pt
+      call alusor(ptj,njets,ord,2)              
+      do i=1,min(3,njets)
+         call mfill(i,real(ptj(ord(njets+1-i))),rwgt)
+         call mfill(10+i,real(etaj(ord(njets+1-i))),rwgt)
+      enddo
+c
+c ===================================================
+c  USR will add possible extra cuts at this point. 
+      do i = 1, njets
+         ptjets(i) = ptj(i)
+      enddo
+c  first max pt jet selection
+      ptjbig = -10.
+      do i = 1, njets
+         if(ptjets(i).gt.ptjbig) then
+            ptjbig = ptjets(i)
+            j1 = i
+         endif
+      enddo
+      ptjets(j1) = -10.
+      ptjbig = -10.
+c  second max pt jet selection      
+      do i = 1, njets
+         if(ptjets(i).gt.ptjbig) then
+            ptjbig = ptjets(i)
+            j2 = i
+         endif
+      enddo
+c
+      deta = abs(etaj(j2)-etaj(j1))
+      if(abs(etaj(j1)-etaj(j2)).ge.abs(etaj(j2)-etaj(j1))) then
+         deta = abs(etaj(j1)-etaj(j2))
+      endif
+c
+      xmjj = sqrt( (pjet(4,j1)+pjet(4,j2))**2 
+     &           - (pjet(1,j1)+pjet(1,j2))**2       
+     &           - (pjet(2,j1)+pjet(2,j2))**2       
+     &           - (pjet(3,j1)+pjet(3,j2))**2 )
+c
+      call mfill(15,real(deta),rwgt)
+      call mfill(16,real(xmjj),rwgt)
+c ===================================================
+      end
+
+