This commit was generated by cvs2svn to compensate for changes in r2,

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

diff --git a/GEANT321/ggeom/gfvolu.F b/GEANT321/ggeom/gfvolu.F
new file mode 100644 (file)
index 0000000..16f2814
--- /dev/null
+++ b/GEANT321/ggeom/gfvolu.F
@@ -0,0 +1,82 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.1  1995/10/24 10:20:49  cernlib
+* Geant
+*
+*
+#include "geant321/pilot.h"
+*CMZ :  3.21/02 29/03/94  15.41.28  by  S.Giani
+*-- Author :
+      SUBROUTINE GFVOLU(NUMB,NAME,NAMS)
+C.
+C.    ******************************************************************
+C.    *                                                                *
+C.    *       Routine to print VOLUMES data structures JVOLUM          *
+C.    *       NUMB     Volume number                                   *
+C.    *                                                                *
+C.    *    ==>Called by : <USER>, GPRINT                               *
+C.    *         Author  R.Brun  S.Giani *********                      *
+C.    *                                                                *
+C.    ******************************************************************
+C.
+#include "geant321/gcbank.inc"
+#include "geant321/gcunit.inc"
+#include "geant321/gcnum.inc"
+      CHARACTER*4 ISHAP(30),NAME,NAMS
+*     DIMENSION PAR(50),ATT(20)
+      SAVE ISHAP
+      DATA ISHAP/'BOX ','TRD1','TRD2','TRAP','TUBE','TUBS','CONE',
+     +           'CONS','SPHE','PARA','PGON','PCON','ELTU','HYPE',
+     +13*'    ', 'GTRA','CTUB','    '/
+C.
+C.    ------------------------------------------------------------------
+      IF (JVOLUM.LE.0) GO TO 99
+      IF (NUMB  .GT.0) GO TO 10
+C
+*      WRITE (CHMAIL,1000)
+*      CALL GMAIL(0,0)
+*      WRITE (CHMAIL,1001)
+*      CALL GMAIL(0,1)
+C
+      N1     = 1
+      N2     = NVOLUM
+      GO TO 20
+C
+   10 CONTINUE
+*   10 WRITE (CHMAIL,1001)
+*      CALL GMAIL(0,1)
+C
+      N1     = NUMB
+      N2     = NUMB
+C
+   20 DO 30 I=N1,N2
+      JVO = LQ(JVOLUM-I)
+      IF (JVO.LE.0)   GO TO 30
+C
+      CALL UHTOC(IQ(JVOLUM+I),4,NAME,4)
+      IS   = Q(JVO+2)
+*      NMED = Q(JVO+4)
+C
+**      CALL GFPARA(NAME,1,1,NPAR,NATT,PAR,ATT)
+*      IEND10=10
+*      IF(NPAR.LT.IEND10)IEND10=NPAR
+*
+      NAMS=ISHAP(IS)
+*
+*      WRITE(CHMAIL,1002)I,NAME,NMED,ISHAP(IS),NPAR,(PAR(J),J=1,IEND10)
+*      CALL GMAIL(0,0)
+**      DO 25 I10=11,NPAR,10
+**        IEND10=I10+9
+**        IF (NPAR.LT.IEND10) IEND10=NPAR
+*        WRITE (CHMAIL,1003) (PAR(J),J = I10,IEND10)
+*        CALL GMAIL(0,0)
+**   25 CONTINUE
+   30 CONTINUE
+C
+* 1000 FORMAT ('0',51('='),5X,' VOLUMES ',6X,50('='))
+* 1001 FORMAT ('0','VOLUME NAME  NUMED SHAPE NPAR  PARAMETERS')
+* 1002 FORMAT (' ',I6,1X,A4,2X,I3,3X,A4,I5,2X,10E10.3)
+* 1003 FORMAT (31X,10E10.3)
+  99  END