*
* $Id$
*
* $Log$
*
*CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
*CMZ :  1.01/00 30/04/96  18.28.33  by  Francesco Cafagna
*CMZ :  1.00/02 27/03/96  10.30.08  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   24/02/96
      SUBROUTINE GUOUT
************************************************************************
*                                                                      *
* User routine called at the end of one event                          *
*                                                                      *
* Called by: GTRIG                                                     *
* Author: Francesco Cafagna, 24/02/96 13.12.53                         *
*                                                                      *
************************************************************************
#include "gppntp.inc"
#include "gpkey.inc"
*
* User action
*
      CALL GPUOUT
*
* Fill the standard GEANT histos if required
*
      CALL GFHSTA
*
* Just fill the CWN. The commons required have been filled up into the GUDIGI
* rel* related routine
*
      IF(HBK) CALL HFNT(NCWN)
      RETURN
      END
