This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gcons / gptmed.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:16  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.19  by  S.Giani
11 *-- Author :
12       SUBROUTINE GPTMED (NUMB  )
13 C.
14 C.    ******************************************************************
15 C.    *                                                                *
16 C.    *       Routine to print tracking media data structure JTMED     *
17 C.    *       NUMB     medium number                                   *
18 C.    *                                                                *
19 C.    *    ==>Called by : <USER>, GPRINT                               *
20 C.    *       Author    R.Brun  *********                              *
21 C.    *                                                                *
22 C.    ******************************************************************
23 C.
24 #include "geant321/gcbank.inc"
25 #include "geant321/gcunit.inc"
26 #include "geant321/gcnum.inc"
27       DIMENSION ITITLE(5)
28 C.
29 C.    ------------------------------------------------------------------
30 C.
31       IF (JTMED.LE.0)  GO TO 99
32 C
33       IF (NUMB  .EQ.0)THEN
34          WRITE (CHMAIL,1000)
35          CALL GMAIL(0,0)
36          N1     = 1
37          N2     = NTMED
38       ELSE
39          N1     = ABS(NUMB)
40          N2     = ABS(NUMB)
41       ENDIF
42       IF(NUMB.GE.0) THEN
43          WRITE (CHMAIL,1001)
44          CALL GMAIL(0,1)
45       ENDIF
46 C
47       DO 10 I=N1,N2
48          JTM = LQ(JTMED-I)
49          IF (JTM.NE.0)THEN
50             IMAT = Q(JTM+6)
51             ISVOL = Q(JTM+7)
52             IFIELD = Q(JTM+8)
53             CALL UCOPY(IQ(JTM+1),ITITLE,5)
54             WRITE(CHMAIL,1002)I,ITITLE,IMAT,ISVOL,IFIELD,
55      +                        (Q(JTM+J),J=9,14)
56             CALL GMAIL(0,0)
57          ENDIF
58    10 CONTINUE
59 C
60  1000 FORMAT ('0',51('='),3X,'TRACKING MEDIA',3X,50('='))
61  1001 FORMAT ('0','TMED',26X,'MATERIAL ','ISVOL',' IFIELD  FIELDM'
62      +, '  TMAXFD','  STEMAX','    DEEMAX','   EPSIL','   STMIN')
63  1002 FORMAT (' ',I6,1X,5A4,I8,I8,I6,4X,F6.2,2X,F6.2,G10.3,3F8.3)
64   99  RETURN
65       END