GEANT321/ggeom/gpvolu.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1999/05/18 15:55:17  fca
   6 * AliRoot sources
   7 *
   8 * Revision 1.1.1.1  1995/10/24 10:20:54  cernlib
   9 * Geant
  10 *
  11 *
  12 #include "geant321/pilot.h"
  13 *CMZ :  3.21/04 13/12/94  15.26.17  by  S.Giani
  14 *-- Author :
  15       SUBROUTINE GPVOLU(NUMB)
  16 C.
  17 C.    ******************************************************************
  18 C.    *                                                                *
  19 C.    *       Routine to print VOLUMES data structures JVOLUM          *
  20 C.    *       NUMB     Volume number                                   *
  21 C.    *                                                                *
  22 C.    *    ==>Called by : <USER>, GPRINT                               *
  23 C.    *         Author  R.Brun  *********                              *
  24 C.    *                                                                *
  25 C.    ******************************************************************
  26 C.
  27 #include "geant321/gcbank.inc"
  28 #include "geant321/gcunit.inc"
  29 #include "geant321/gcnum.inc"
  30       COMMON/FMOTH/INGLOB,IVOMGL
  31       CHARACTER*4 ISHAP(30),NAME,MOTHER
  32       DIMENSION PAR(100),ATT(20)
  33       SAVE ISHAP
  34       DATA ISHAP/'BOX ','TRD1','TRD2','TRAP','TUBE','TUBS','CONE',
  35      +           'CONS','SPHE','PARA','PGON','PCON','ELTU','HYPE',
  36      +13*'    ', 'GTRA','CTUB','    '/
  37 C.
  38 C.    ------------------------------------------------------------------
  39       IF (JVOLUM.LE.0) GO TO 99
  40       IF (NUMB  .GT.0) GO TO 10
  41 C
  42       WRITE (CHMAIL,1000)
  43       CALL GMAIL(0,0)
  44       WRITE (CHMAIL,1001)
  45       CALL GMAIL(0,1)
  46 C
  47       N1     = 1
  48       N2     = NVOLUM
  49       GO TO 20
  50 C
  51    10 WRITE (CHMAIL,1001)
  52       CALL GMAIL(0,1)
  53 C
  54       N1     = NUMB
  55       N2     = NUMB
  56 C
  57    20 DO 30 I=N1,N2
  58       JVO = LQ(JVOLUM-I)
  59       NIN=Q(JVO+3)
  60       IF (JVO.LE.0)   GO TO 30
  61 C
  62       CALL UHTOC(IQ(JVOLUM+I),4,NAME,4)
  63       CALL GFMOTH(NAME,MOTHER,KONLY)
  64       JVOMOT=LQ(JVOLUM-IVOMGL)
  65       MNIN=Q(JVOMOT+3)
  66       IF(MNIN.LE.0)THEN
  67         NMBR=1
  68       ELSE
  69         JIN = LQ(JVOMOT-INGLOB)
  70         NMBR=Q(JIN+3)
  71       ENDIF
  72
  73       IS   = Q(JVO+2)
  74       NMED = Q(JVO+4)
  75 C
  76       CALL GFPARA(NAME,NMBR,1,NPAR,NATT,PAR,ATT)
  77       IEND10=10
  78       IF(NPAR.LT.IEND10)IEND10=NPAR
  79       WRITE(CHMAIL,1002)I,NAME,NMED,ISHAP(IS),NPAR,(PAR(J),J=1,IEND10)
  80       CALL GMAIL(0,0)
  81       DO 25 I10=11,NPAR,10
  82         IEND10=I10+9
  83         IF (NPAR.LT.IEND10) IEND10=NPAR
  84         WRITE (CHMAIL,1003) (PAR(J),J = I10,IEND10)
  85         CALL GMAIL(0,0)
  86    25 CONTINUE
  87    30 CONTINUE
  88 C
  89  1000 FORMAT ('0',51('='),5X,' VOLUMES ',6X,50('='))
  90  1001 FORMAT ('0','VOLUME NAME  NUMED SHAPE NPAR  PARAMETERS')
  91  1002 FORMAT (' ',I6,1X,A4,2X,I3,3X,A4,I5,2X,10E10.3)
  92  1003 FORMAT (31X,10E10.3)
  93   99  END