*--------1---------2---------3---------4---------5---------6---------7--

      subroutine VTXDATA

* initialize BCS
*----------------------------------
      include './Include/bcs.inc'

* initialize DST variables
*----------------------------------
      include './Include/dstdata.inc'

* initialize NTUPLE variables
*---------------------------------- 
      include './Include/ntdata.inc'

* initialize VERTEX variables
*----------------------------------
      include './Include/vtxdata.inc'

* initialize user variables
*----------------------------------
      integer IVTYP, NCSKV
      real DX, DY, DZ, TVCUT, DTVCUT, DZVCUT
      parameter (TVCUT = 1., DTVCUT = 1., DZVCUT = 5.)

* event processing
*----------------------------------
      XV = 0.
      YV = 0.
      ZV = 0.

      VTXFOUND = .FALSE.

      if ((VTXFIL.eq.0).or.NONSENSE) return

* CSKV bank access
*----------------------------------
      NCSKV = NLINK('CSKV', 0)

      if (NCSKV.gt.0) then
        XV = RW(NCSKV + 2 + 1)
        YV = RW(NCSKV + 2 + 2)
        ZV = RW(NCSKV + 2 + 3)
        DX = RW(NCSKV + 2 + 4)
        DY = RW(NCSKV + 2 + 5)
        DZ = RW(NCSKV + 2 + 6)
        IVTYP = IW(NCSKV + 2 + 8)

        if ((IVTYP.eq.1).and.
     +      (abs(XV).lt.TVCUT).and.
     +      (abs(YV).lt.TVCUT).and.
     +      (abs(ZV).lt.ZVCUT).and.
     +      (DX.lt.DTVCUT).and.
     +      (DY.lt.DTVCUT).and.
     +      (DZ.lt.DZVCUT)) then
          VTXFOUND = .TRUE.
        end if
      end if

* flag for further calculations
*----------------------------------
      if ((VTXFIL.eq.1).and.(.not.VTXFOUND)) NONSENSE = .TRUE.

      return
      end