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