GEANT321/gcons/gfpart.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:14  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 GFPART(IPART,NAPART,ITRTYP,AMASS,CHARGE,TLIFE
  13      +          ,UBUF,NWBUF)
  14 C.
  15 C.    ******************************************************************
  16 C.    *                                                                *
  17 C.    *       Return parameters for particle of type IPART             *
  18 C.    *                                                                *
  19 C.    *    ==>Called by : <USER>, GTREVE                               *
  20 C.    *       Author    R.Brun  *********                              *
  21 C.    *                                                                *
  22 C.    ******************************************************************
  23 C.
  24 #include "geant321/gcbank.inc"
  25 #include "geant321/gcnum.inc"
  26       CHARACTER*20 NAPART
  27       DIMENSION UBUF(10)
  28 C.
  29 C.    ------------------------------------------------------------------
  30 C.
  31       ITRTYP=0
  32       IF (JPART.LE.0)GO TO 99
  33       IF (IPART.LE.0)GO TO 99
  34       IF (IPART.GT.NPART)GO TO 99
  35       JPA = LQ(JPART- IPART)
  36       IF (JPA.LE.0)GO TO 99
  37 C
  38       CALL UHTOC(IQ(JPA+1),4,NAPART,20)
  39       ITRTYP = Q(JPA + 6)
  40       AMASS = Q(JPA + 7)
  41       CHARGE = Q(JPA + 8)
  42       TLIFE = Q(JPA + 9)
  43       NWBUF = IQ(JPA-1) - 9
  44       IF(NWBUF.LE.0) GO TO 99
  45       DO 20 I=1,NWBUF
  46   20  UBUF(I)=Q(JPA+9+I)
  47 C
  48   99  RETURN
  49       END