5 * Revision 1.1.1.1 1995/10/24 10:20:41 cernlib
9 #ifndef CERNLIB_GEANT321_PAPROP_INC
10 #define CERNLIB_GEANT321_PAPROP_INC
16 *=== paprop ===========================================================*
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 *
23 * description of the common block(s) and variable(s) *
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- *
45 *----------------------------------------------------------------------*
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)