5 * Revision 1.1.1.1 1995/10/24 10:20:13 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.19 by S.Giani
12 SUBROUTINE GFMATE(IMAT,NAMATE,A,Z,DENS,RADL,ABSL,UBUF,NWBUF)
14 C. ******************************************************************
16 C. * Return parameters for material IMAT *
18 C. * ==>Called by : <USER>, GTRACK *
19 C. * Author R.Brun ********* *
21 C. ******************************************************************
23 #include "geant321/gcbank.inc"
24 #include "geant321/gcnum.inc"
28 C. ------------------------------------------------------------------
31 IF (JMATE.LE.0)GO TO 99
32 IF (IMAT.LE.0)GO TO 99
33 IF (IMAT.GT.NMATE)GO TO 99
37 CALL UHTOC(IQ(JMA+1),4,NAMATE,MIN(20,LEN(NAMATE)))
43 NWBUF = IQ(JMA-1) - 11
44 IF(NWBUF.GT.0) CALL UCOPY(Q(JMA+12),UBUF,NWBUF)