GEANT321/ggeom/gpstat.F

   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