Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / paprop.inc
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:20:41 cernlib
6* Geant
7*
8*
9#ifndef CERNLIB_GEANT321_PAPROP_INC
10#define CERNLIB_GEANT321_PAPROP_INC
11*
12*
13* paprop.inc
14*
15*
16*=== paprop ===========================================================*
17*
18*----------------------------------------------------------------------*
19* include file: paprop copy created 26/11/86 by p*
20* changes: on 16 december 1992 by Alfredo Ferrari *
21* included in the following subroutines or functions: not updated *
22* *
23* description of the common block(s) and variable(s) *
24* *
25* /paprop/ contains particle properties *
26* btype = literal name of the particle *
27* am = particle mass in gev *
28* ichrge = electric charge of the particle *
29* iscore = explanations for the scored distribution *
30* genpar = names of the generalized particles *
31* ijdisc = list of the particle types to be discarded *
32* thalf = half life of the particle in sec *
33* biasdc = decay biasing factors *
34* biasin = inelastic interaction biasing factors *
35* lhadro = flag for hadrons *
36* jspinp = particle spin (in units of 1/2) *
37* lbsdcy = logical flag for biased decay: if .true. the biasing *
38* factor is used as an upper limit to the decay length *
39* lprbsd = logical flag for biased decay: if .true. the biasing *
40* factor is applied only to primaries *
41* lprbsi = logical flag for inelastic interaction biasing: if *
42* .true. the biasing factor is applied only to prima- *
43* ries *
44* *
45*----------------------------------------------------------------------*
46*
47 LOGICAL LHADRO, LBSDCY, LPRBSD, LPRBSI
48 CHARACTER*8 BTYPE,GENPAR
49 COMMON / FKPAPR / AM (NALLWP), AMDISC (NALLWP), THALF (NALLWP),
50 & BIASDC (NALLWP), BIASIN (NALLWP), ICHRGE (NALLWP),
51 & ISCORE (10), IJDISC (NALLWP), LHADRO (NALLWP),
52 & JSPINP (NALLWP), LBSDCY (NALLWP), LPRBSD, LPRBSI
53 COMMON / FKCHPR / BTYPE (NALLWP), GENPAR (30)
54
55
56#endif