This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gcons / gfmate.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:13  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 GFMATE(IMAT,NAMATE,A,Z,DENS,RADL,ABSL,UBUF,NWBUF)
13 C.
14 C.    ******************************************************************
15 C.    *                                                                *
16 C.    *       Return parameters for material IMAT                      *
17 C.    *                                                                *
18 C.    *    ==>Called by : <USER>, GTRACK                               *
19 C.    *       Author    R.Brun  *********                              *
20 C.    *                                                                *
21 C.    ******************************************************************
22 C.
23 #include "geant321/gcbank.inc"
24 #include "geant321/gcnum.inc"
25       CHARACTER NAMATE*(*)
26       DIMENSION UBUF(1)
27 C.
28 C.    ------------------------------------------------------------------
29 C.
30       A=-1.
31       IF (JMATE.LE.0)GO TO 99
32       IF (IMAT.LE.0)GO TO 99
33       IF (IMAT.GT.NMATE)GO TO 99
34 C
35       JMA = LQ(JMATE- IMAT)
36       IF (JMA.LE.0)GO TO 99
37       CALL UHTOC(IQ(JMA+1),4,NAMATE,MIN(20,LEN(NAMATE)))
38       A = Q(JMA + 6)
39       Z = Q(JMA + 7)
40       DENS = Q(JMA + 8)
41       RADL = Q(JMA + 9)
42       ABSL = Q(JMA + 10)
43       NWBUF = IQ(JMA-1) - 11
44       IF(NWBUF.GT.0) CALL UCOPY(Q(JMA+12),UBUF,NWBUF)
45 C
46   99  RETURN
47       END