GEANT321/gbase/gfhsta.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1997/10/24 16:17:42  mclareni
   6 * NZLEFT 2nd parameter changed to 0 from blank
   7 *
   8 * Revision 1.1.1.1  1995/10/24 10:20:09  cernlib
   9 * Geant
  10 *
  11 *
  12 #include "geant321/pilot.h"
  13 *CMZ :  3.21/02 29/03/94  15.41.19  by  S.Giani
  14 *-- Author :
  15       SUBROUTINE GFHSTA
  16 C.
  17 C.    ******************************************************************
  18 C.    *                                                                *
  19 C.    *       Fills histograms statistics                              *
  20 C.    *                                                                *
  21 C.    *    ==>Called by : <USER>, GUOUT                                *
  22 C.    *       Author    R.Brun  *********                              *
  23 C.    *                                                                *
  24 C.    ******************************************************************
  25 C.
  26 #include "geant321/gcbank.inc"
  27 #include "geant321/gcnum.inc"
  28 #include "geant321/gclist.inc"
  29       COMMON/QUEST/IQUEST(100)
  30 C.
  31 C.    ------------------------------------------------------------------
  32 C.
  33       IF(NHSTA.GT.0) THEN
  34          CALL GLOOK('TIME',LHSTA,NHSTA,ID)
  35          IF(ID.NE.0)THEN
  36             CALL TIMED(TEVENT)
  37             CALL HFILL(-ID,TEVENT,0.,1.)
  38          ENDIF
  39 *
  40          CALL GLOOK('SIZE',LHSTA,NHSTA,ID)
  41          IF(ID.NE.0)THEN
  42             NL=NZLEFT(IXDIV,0)
  43             CALL HFILL(-ID,IQUEST(11)+0.5,0.,1.)
  44          ENDIF
  45 *
  46          CALL GLOOK('MULT',LHSTA,NHSTA,ID)
  47          IF(ID.NE.0)THEN
  48             CALL HFILL(-ID,NTMULT+0.5,0.,1.)
  49          ENDIF
  50 *
  51          CALL GLOOK('NTRA',LHSTA,NHSTA,ID)
  52          IF(ID.NE.0)THEN
  53             CALL HFILL(-ID,NTRACK+0.5,0.,1.)
  54          ENDIF
  55 *
  56          CALL GLOOK('STAK',LHSTA,NHSTA,ID)
  57          IF(ID.NE.0)THEN
  58             CALL HFILL(-ID,NSTMAX+0.5,0.,1.)
  59          ENDIF
  60 *
  61       ENDIF
  62       END