[u/mrichter/AliRoot.git] / GEANT321 / gcons / gptmed.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:16  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.19  by  S.Giani
*-- Author :
      SUBROUTINE GPTMED (NUMB  )
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       Routine to print tracking media data structure JTMED     *
C.    *       NUMB     medium number                                   *
C.    *                                                                *
C.    *    ==>Called by : <USER>, GPRINT                               *
C.    *       Author    R.Brun  *********                              *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gcbank.inc"
#include "geant321/gcunit.inc"
#include "geant321/gcnum.inc"
      DIMENSION ITITLE(5)
C.
C.    ------------------------------------------------------------------
C.
      IF (JTMED.LE.0)  GO TO 99
C
      IF (NUMB  .EQ.0)THEN
         WRITE (CHMAIL,1000)
         CALL GMAIL(0,0)
         N1     = 1
         N2     = NTMED
      ELSE
         N1     = ABS(NUMB)
         N2     = ABS(NUMB)
      ENDIF
      IF(NUMB.GE.0) THEN
         WRITE (CHMAIL,1001)
         CALL GMAIL(0,1)
      ENDIF
C
      DO 10 I=N1,N2
         JTM = LQ(JTMED-I)
         IF (JTM.NE.0)THEN
            IMAT = Q(JTM+6)
            ISVOL = Q(JTM+7)
            IFIELD = Q(JTM+8)
            CALL UCOPY(IQ(JTM+1),ITITLE,5)
            WRITE(CHMAIL,1002)I,ITITLE,IMAT,ISVOL,IFIELD,
     +                        (Q(JTM+J),J=9,14)
            CALL GMAIL(0,0)
         ENDIF
   10 CONTINUE
C
 1000 FORMAT ('0',51('='),3X,'TRACKING MEDIA',3X,50('='))
 1001 FORMAT ('0','TMED',26X,'MATERIAL ','ISVOL',' IFIELD  FIELDM'
     +, '  TMAXFD','  STEMAX','    DEEMAX','   EPSIL','   STMIN')
 1002 FORMAT (' ',I6,1X,5A4,I8,I8,I6,4X,F6.2,2X,F6.2,G10.3,3F8.3)
  99  RETURN
      END
Commit	Line	Data
fe4da5cc	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