Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gbase / gfhsta.F
CommitLineData
fe4da5cc 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
16C.
17C. ******************************************************************
18C. * *
19C. * Fills histograms statistics *
20C. * *
21C. * ==>Called by : <USER>, GUOUT *
22C. * Author R.Brun ********* *
23C. * *
24C. ******************************************************************
25C.
26#include "geant321/gcbank.inc"
27#include "geant321/gcnum.inc"
28#include "geant321/gclist.inc"
29 COMMON/QUEST/IQUEST(100)
30C.
31C. ------------------------------------------------------------------
32C.
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