      subroutine resetevt
C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! Reset various things prior to tracking an event
C------------------------------------------------------------------------------

      implicit none

C Include files

       include 'gcbank.inc'
       include 'gcflag.inc'
       include 'gckine.inc'
       include 'gconsp.inc'
       include 'ntuple.inc'

C Local variables

      integer*4 i,j,k,l

*******************************************************************************
C
C Reset the number of holder-escaping particles and the number of scintillator-
C entering particles

      NESCAPE = 0
      N_ENT_SCINT = 0

      return
      end
