subroutine jetdis(vtx)

*
* This routine finds jets using kT and cone algorithm within certain
* cuts (defined in jetcuts) and stores the zes variables in the 
*  jdiszes common block.
*
* The routine kttume and conetune set the recquired input parameters
* for the cone and kT jet finding (cuts and steering parameters). These
* can be set through input cards
* 
* routines: get_vtx: get the main vertex of the event
* 	    detjets(vtx): selects cone jets and sets forward jet flag
* 	    detkT(vtx): selects kT jets and sets forward jet flag
*

      IMPLICIT NONE

#include "zescommon.inc"
#include "jdiszes.inc"

      integer flag,i,j,k,l,ierr
      integer flag_cone,flag_kt
      real vtx(3)
c
c Initialize zes variables
c
      njet_b=0
      et1_b=-999.99
      et2_b=-999.99
      eta1_b=-999.99
      eta2_b=-999.99
      fjetb=0
      njet_c=0
      et1_c=-999.99
      et2_c=-999.99
      eta1_c=-999.99
      eta2_c=-999.99
      fjetc=0
      njet_d=0
      et1_d=-999.99
      et2_d=-999.99
      eta1_d=-999.99
      eta2_d=-999.99
      fjetd=0

C
       if (ZES_Eeu_si.le.0) goto 100
c
c     determine variables for cone jets    
c
c
c     First set the default parameters for the cone
c
      call conetune
c
c     Then do the jet finding and store the ZES variable in the common
c     block jdiszes.inc 
c
      call detjets(vtx)
c
c     determine variables for kt jets 
c
      call kttune
c
c     store jet variables in the ZES common block
c
      call detkt(vtx)
c
 100  return
      end