c
c  last modified on 19/06/2000  by R.Holzmann
***********************************************************************

      SUBROUTINE UGLAST

***********************************************************************
#include "geant321/gckine.inc"
#include "geaevent.inc"
      integer ifile
      CALL UHBOOK_LAST
*------------------------------
* Close Event-Files
*-------------------------------
      do ifile=1,nevfiles
        close(unit=23+ifile)
      enddo
      call glast  ! NORMAL GEANT TERMINATION
      return
      end