c
c     Exit of HADES version of gpaw.F   (Geant/PAW interface)
c
c     last modified on 17/5/99 by: R.Holzmann

      SUBROUTINE GPAWDOWN
*
#include "geant321/gcflag.inc"
#include "geant321/gctime.inc"
#include "geant321/gcomis.inc"
#include "geant321/gcxlun.inc"
#include "geant321/gcunit.inc"
*

      CALL KUEXEC('EXIT')   ! tell Geant to exit. i.e. call UGLAST, etc.
      CALL PAEXIT
*
#if defined(CERNLIB_MONITOR)
      CALL GEAMON(2,'GXINT')
#endif
      WRITE(CHMAIL,'('' Leaving HGeant... hope you enjoyed it !'')')
      CALL GMAIL(0,0)
*
      END