Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / paprop.inc
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