[u/mrichter/AliRoot.git] / GEANT321 / ggeom / gpstat.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:54  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.30  by  S.Giani
*-- Author :
      SUBROUTINE GPSTAT
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       Print volume statistics                                  *
C.    *                                                                *
C.    *    ==>Called by : GLAST                                        *
C.    *         Author  R.Brun  *********                              *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gcbank.inc"
#include "geant321/gcunit.inc"
#include "geant321/gcnum.inc"
C.
C.      ---------------------------------------------------------------
C.
      IF(JGSTAT.LE.0)GO TO 999
      IF(NVOLUM.LE.0)GO TO 999
      WRITE(CHMAIL,10000)
      CALL GMAIL(3,0)
      WRITE(CHMAIL,10100)
      CALL GMAIL(0,0)
      WRITE(CHMAIL,10200)
      CALL GMAIL(0,0)
      WRITE(CHMAIL,10100)
      CALL GMAIL(0,0)
      WRITE(CHMAIL,10000)
      CALL GMAIL(0,0)
      WRITE(CHMAIL,10300)
      CALL GMAIL(0,0)
      WRITE(CHMAIL,10400)
      CALL GMAIL(0,0)
      WRITE(CHMAIL,10000)
      CALL GMAIL(0,0)
C
      DO 10 I=1,NVOLUM
         JG=LQ(JGSTAT-I)
         IF(JG.GT.0) THEN
            WRITE(CHMAIL,10500)IQ(JVOLUM+I),(IQ(JG+J),J=1,9)
            CALL GMAIL(0,0)
         ENDIF
   10 CONTINUE
      WRITE(CHMAIL,10000)
      CALL GMAIL(0,2)
C
10000 FORMAT(1X,122('*'))
10100 FORMAT (' *',120X,'*')
10200 FORMAT (' *',43X,
     +'V O L U M E    S T A T I S T I C S',43X,'*')
10300 FORMAT (      ' *',3X,'VOLUME','   *',
     +3X,'      GINVOL      ',2X,'*',
     +3X,'      GMEDIA      ',2X,'*',
     +3X,'      GTNEXT      ',2X,'*',
     +3X,'      GTMEDI      ',2X,'*',
     +2X,'NSTEPS',3X,'*')
10400 FORMAT (      ' *',3X,' NAME ','   *',
     +3X,'TOTAL ','  *   ','NLEVEL',2X,'*',
     +3X,'TOTAL ','  *   ','NLEVEL',2X,'*',
     +3X,'TOTAL ','  *   ','NLEVEL',2X,'*',
     +3X,'TOTAL ','  *   ','NLEVEL',2X,'*',
     +2X,'NLEVEL',3X,'*')
10500 FORMAT(1X,'*',4X,A4,4X,9('*',I10,1X),'*')
  999 END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:54 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.30 by S.Giani
	11	*-- Author :
	12	SUBROUTINE GPSTAT
	13	C.
	14	C. ******************************************************************
	15	C. * *
	16	C. * Print volume statistics *
	17	C. * *
	18	C. * ==>Called by : GLAST *
	19	C. * Author R.Brun ********* *
	20	C. * *
	21	C. ******************************************************************
	22	C.
	23	#include "geant321/gcbank.inc"
	24	#include "geant321/gcunit.inc"
	25	#include "geant321/gcnum.inc"
	26	C.
	27	C. ---------------------------------------------------------------
	28	C.
	29	IF(JGSTAT.LE.0)GO TO 999
	30	IF(NVOLUM.LE.0)GO TO 999
	31	WRITE(CHMAIL,10000)
	32	CALL GMAIL(3,0)
	33	WRITE(CHMAIL,10100)
	34	CALL GMAIL(0,0)
	35	WRITE(CHMAIL,10200)
	36	CALL GMAIL(0,0)
	37	WRITE(CHMAIL,10100)
	38	CALL GMAIL(0,0)
	39	WRITE(CHMAIL,10000)
	40	CALL GMAIL(0,0)
	41	WRITE(CHMAIL,10300)
	42	CALL GMAIL(0,0)
	43	WRITE(CHMAIL,10400)
	44	CALL GMAIL(0,0)
	45	WRITE(CHMAIL,10000)
	46	CALL GMAIL(0,0)
	47	C
	48	DO 10 I=1,NVOLUM
	49	JG=LQ(JGSTAT-I)
	50	IF(JG.GT.0) THEN
	51	WRITE(CHMAIL,10500)IQ(JVOLUM+I),(IQ(JG+J),J=1,9)
	52	CALL GMAIL(0,0)
	53	ENDIF
	54	10 CONTINUE
	55	WRITE(CHMAIL,10000)
	56	CALL GMAIL(0,2)
	57	C
	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,'*',
67	+2X,'NSTEPS',3X,'*')
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,'*',
73	+2X,'NLEVEL',3X,'*')
74	10500 FORMAT(1X,'',4X,A4,4X,9('',I10,1X),'*')
75	999 END