subroutine bfkl_flag(et,eta,xjet,maxjet,flag)
c
c apply a set of cuts to the jets and get the bfkl flag
c
c input:  et: array of real, transverse energy of the jets
c         eta: array of real, pseudorapidity of the jets
c	  xjet: array of real, relative long. momentum the jets
c	  maxjet: integer, number of jets in the event
c	  cards:  BFKL_etmin    cut on Et  (default 2.5)
c		  BFKL_xjetmin  cut on xjet   (default 0.02)
c		  BFKL_etamin   cut on Eta min (default 0.)
c		  BFKL_etamax   cut on Eta max (default 3.)
c
c output:  flag = 0 if no jet fullfill all the recquirements
c		  1 if there is at least 1 forward jet.
c
c
      IMPLICIT NONE
#include "forjet.inc"      
      integer i,maxjet,flag
      real et(*),eta(*),xjet(*)
      
      do i=1,maxjet
         if (et(i).gt.BFKL_etmin.and.xjet(i).gt.BFKL_xjetmin) then
            if (eta(i).gt.BFKL_etamin.and.eta(i).lt.BFKL_etamax) then
               flag=1
            endif
         endif
      enddo
      
      return
      end