This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gcons / gfpart.F
CommitLineData
fe4da5cc 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)
14C.
15C. ******************************************************************
16C. * *
17C. * Return parameters for particle of type IPART *
18C. * *
19C. * ==>Called by : <USER>, GTREVE *
20C. * Author R.Brun ********* *
21C. * *
22C. ******************************************************************
23C.
24#include "geant321/gcbank.inc"
25#include "geant321/gcnum.inc"
26 CHARACTER*20 NAPART
27 DIMENSION UBUF(10)
28C.
29C. ------------------------------------------------------------------
30C.
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
37C
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)
47C
48 99 RETURN
49 END