5 * Revision 1.1.1.1 1995/10/24 10:20:14 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.19 by S.Giani
12 SUBROUTINE GFTMED(NUMED,NATMED,NMAT,ISVOL,IFIELD,FIELDM,
13 + TMAXFD,STEMAX,DEEMAX,EPSIL,STMIN,UBUF,NWBUF)
15 C. ******************************************************************
17 C. * Return parameters for tracking medium NUMED *
19 C. * ==>Called by : <USER>, GTRACK *
20 C. * Author R.Brun ********* *
22 C. ******************************************************************
24 #include "geant321/gcbank.inc"
25 #include "geant321/gcnum.inc"
29 C. ------------------------------------------------------------------
32 IF (JTMED.LE.0)GO TO 99
33 IF (NUMED.LE.0)GO TO 99
34 IF (NUMED.GT.NTMED)GO TO 99
35 JTM = LQ(JTMED- NUMED)
38 CALL UHTOC(IQ(JTM+1),4,NATMED,20)
48 NWBUF = IQ(JTM-1) - 14
49 IF(NWBUF.LE.0) GO TO 99
51 20 UBUF(I)=Q(JTM+14+I)