GEANT321/ggeom/gfvolu.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:49  cernlib
   9 * Geant
  10 *
  11 *
  12 #include "geant321/pilot.h"
  13 *CMZ :  3.21/02 29/03/94  15.41.28  by  S.Giani
  14 *-- Author :
  15       SUBROUTINE GFVOLU(NUMB,NAME,NAMS)
  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  S.Giani *********                      *
  24 C.    *                                                                *
  25 C.    ******************************************************************
  26 C.
  27 #include "geant321/gcbank.inc"
  28 #include "geant321/gcunit.inc"
  29 #include "geant321/gcnum.inc"
  30       CHARACTER*4 ISHAP(30),NAME,NAMS
  31 *     DIMENSION PAR(100),ATT(20)
  32       SAVE ISHAP
  33       DATA ISHAP/'BOX ','TRD1','TRD2','TRAP','TUBE','TUBS','CONE',
  34      +           'CONS','SPHE','PARA','PGON','PCON','ELTU','HYPE',
  35      +13*'    ', 'GTRA','CTUB','    '/
  36 C.
  37 C.    ------------------------------------------------------------------
  38       IF (JVOLUM.LE.0) GO TO 99
  39       IF (NUMB  .GT.0) GO TO 10
  40 C
  41 *      WRITE (CHMAIL,1000)
  42 *      CALL GMAIL(0,0)
  43 *      WRITE (CHMAIL,1001)
  44 *      CALL GMAIL(0,1)
  45 C
  46       N1     = 1
  47       N2     = NVOLUM
  48       GO TO 20
  49 C
  50    10 CONTINUE
  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       IF (JVO.LE.0)   GO TO 30
  60 C
  61       CALL UHTOC(IQ(JVOLUM+I),4,NAME,4)
  62       IS   = Q(JVO+2)
  63 *      NMED = Q(JVO+4)
  64 C
  65 **      CALL GFPARA(NAME,1,1,NPAR,NATT,PAR,ATT)
  66 *      IEND10=10
  67 *      IF(NPAR.LT.IEND10)IEND10=NPAR
  68 *
  69       NAMS=ISHAP(IS)
  70 *
  71 *      WRITE(CHMAIL,1002)I,NAME,NMED,ISHAP(IS),NPAR,(PAR(J),J=1,IEND10)
  72 *      CALL GMAIL(0,0)
  73 **      DO 25 I10=11,NPAR,10
  74 **        IEND10=I10+9
  75 **        IF (NPAR.LT.IEND10) IEND10=NPAR
  76 *        WRITE (CHMAIL,1003) (PAR(J),J = I10,IEND10)
  77 *        CALL GMAIL(0,0)
  78 **   25 CONTINUE
  79    30 CONTINUE
  80 C
  81 * 1000 FORMAT ('0',51('='),5X,' VOLUMES ',6X,50('='))
  82 * 1001 FORMAT ('0','VOLUME NAME  NUMED SHAPE NPAR  PARAMETERS')
  83 * 1002 FORMAT (' ',I6,1X,A4,2X,I3,3X,A4,I5,2X,10E10.3)
  84 * 1003 FORMAT (31X,10E10.3)
  85   99  END