*
* $Id: guout.F,v 1.1.1.1 1995/10/24 10:21:46 cernlib Exp $
*
* $Log: guout.F,v $
* Revision 1.1.1.1  1995/10/24 10:21:46  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.25  by  S.Giani
*-- Author :
      SUBROUTINE GUOUT
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       User routine called at the end of each event             *
C.    *                                                                *
C.    *    ==>Called by : GTRIG                                        *
C.    *                                                                *
C.    ******************************************************************
C.
      real path_length
      common /fiberstats/path_length(18)
      integer ntid
      common /fiberntuple/ntid
      data ntid/0/
      integer bsize
      data bsize/65536/
      integer istat
      integer nr
C.
C.    ------------------------------------------------------------------
C.
      if (ntid.eq.0) then
        call HROPEN(50,'RZfile','cosmics.hbook','NQE',bsize,istat)
        ntid = 1
        call HBNT(ntid,'cosmics',' ')
        call HBNAME(ntid,'fibernt',path_length,'plen(18):r')
      endif

      nr = 0
      do i=1,3
        path_length(15+i) = 0
        do j=1,5
          nr = nr + 1
          path_length(15+i) = path_length(15+i) + path_length(nr)
        enddo
      enddo
      if (path_length(16).gt.0.10 .and. path_length(18).gt.0.10) then
        call hfnt(ntid)
c       print *, 'path_length =', path_length
      endif
      do i=1,15
        path_length(i) = 0
      enddo
      END