5 * Revision 1.1.1.1 1995/10/24 10:20:49 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.28 by S.Giani
12 SUBROUTINE GFSTAT(ICASE)
14 C. ******************************************************************
16 C. * FILL banks for volume statistics *
18 C. * ==>Called by : GINVOL, GMEDIA, GTNEXT, GTMEDI, GTRACK *
20 C. * Author R.Brun ********* *
22 C. ******************************************************************
24 #include "geant321/gcbank.inc"
25 #include "geant321/gcvolu.inc"
27 C. ------------------------------------------------------------------
29 IF(JGSTAT.LE.0)GO TO 999
30 IF(NLEVEL.LE.0)GO TO 999
39 IQ(JG+1+ICASE)=IQ(JG+1+ICASE)+1
41 ELSEIF(ICASE.LE.10) THEN
43 C GMEDIA (ICASE=2), GTNEXT (ICASE=3) or GTMEDI (ICASE=4)
51 IF(ILEV.EQ.NLEVEL) THEN
52 IQ(JG+IC+1)=IQ(JG+IC+1)+1
57 C ICASE=10+ITRTYP (steps)