C     =======================
      SUBROUTINE SETVTX (VTX)
C     =======================
C
C     A.Quadt, August 1995
C     -----------------------------

      IMPLICIT NONE

#include "zescommon.inc"

      REAL    VTX(3)
      REAL    VC_CHISQ, VTX_FIX, x_fix, y_fix, z_fix
      INTEGER TRKMIN

      Z_FIX      = -3.0
      TRKMIN     =  1
      VC_CHISQ   =  5.0
      CALL GetXyVertex( ZES_RunNr, X_fix, Y_fix )

      IF (ZES_ZVTX .GT. -900     .AND.
     &    ZES_ChiVTX   .LE. VC_CHISQ .AND.
     &    ZES_NTrkVTX  .GE. TRKMIN) THEN
           VTX(1) = X_FIX
           VTX(2) = Y_FIX
           VTX(3) = ZES_ZVTX
      ELSE
           VTX(1) = X_FIX
           VTX(2) = Y_FIX
           VTX(3) = Z_FIX
      ENDIF

      RETURN
      END