5 * Revision 1.1.1.1 1995/10/24 10:20:54 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.30 by S.Giani
14 C. ******************************************************************
16 C. * Print volume statistics *
18 C. * ==>Called by : GLAST *
19 C. * Author R.Brun ********* *
21 C. ******************************************************************
23 #include "geant321/gcbank.inc"
24 #include "geant321/gcunit.inc"
25 #include "geant321/gcnum.inc"
27 C. ---------------------------------------------------------------
29 IF(JGSTAT.LE.0)GO TO 999
30 IF(NVOLUM.LE.0)GO TO 999
51 WRITE(CHMAIL,10500)IQ(JVOLUM+I),(IQ(JG+J),J=1,9)
58 10000 FORMAT(1X,122('*'))
59 10100 FORMAT (' *',120X,'*')
60 10200 FORMAT (' *',43X,
61 +'V O L U M E S T A T I S T I C S',43X,'*')
62 10300 FORMAT ( ' *',3X,'VOLUME',' *',
63 +3X,' GINVOL ',2X,'*',
64 +3X,' GMEDIA ',2X,'*',
65 +3X,' GTNEXT ',2X,'*',
66 +3X,' GTMEDI ',2X,'*',
68 10400 FORMAT ( ' *',3X,' NAME ',' *',
69 +3X,'TOTAL ',' * ','NLEVEL',2X,'*',
70 +3X,'TOTAL ',' * ','NLEVEL',2X,'*',
71 +3X,'TOTAL ',' * ','NLEVEL',2X,'*',
72 +3X,'TOTAL ',' * ','NLEVEL',2X,'*',
74 10500 FORMAT(1X,'*',4X,A4,4X,9('*',I10,1X),'*')