This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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