| fe4da5cc |
1 | * |
| 2 | * $Id$ |
| 3 | * |
| 4 | * $Log$ |
| d43b40e2 |
5 | * Revision 1.1.1.1 1999/05/18 15:55:17 fca |
| 6 | * AliRoot sources |
| 7 | * |
| fe4da5cc |
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 |
| d43b40e2 |
31 | * DIMENSION PAR(100),ATT(20) |
| fe4da5cc |
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 |
git://git.uio.no / u / mrichter / AliRoot.git / blame