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