4 *=== paprop ===========================================================*
6 *----------------------------------------------------------------------*
8 * include file: paprop copy *
10 * !!!! N E W V E R S I O N !!!! *
12 * Created on 07 may 1991 by Alfredo Ferrari & Paola Sala *
15 * Last change on 03-jul-97 by Alfredo Ferrari *
17 * included in the following subroutines or functions: not updated *
19 * description of the common block(s) and variable(s) *
21 * /paprop/ contains particle properties *
22 * btype = literal name of the particle *
23 * am = particle mass in GeV *
24 * ichrge = electric charge of the particle *
25 * ibarch = baryonic charge of the particle *
26 * iscore = explanations for the scored distribution *
27 * genpar = names of the generalized particles *
28 * ijdisc = list of the particle types to be discarded *
29 * thalf = half life of the particle in sec *
30 * biasdc = decay biasing factors *
31 * biasin = inelastic interaction biasing factors *
32 * lhadro = flag for hadrons *
33 * jspinp = particle spin (in units of 1/2) *
34 * iparty = particle parity (when defined) *
35 * iparid = flag used to identify particle types *
36 * lbsdcy = logical flag for biased decay: if .true. the biasing *
37 * factor is used as an upper limit to the decay length *
38 * lprbsd = logical flag for biased decay: if .true. the biasing *
39 * factor is applied only to primaries *
40 * lprbsi = logical flag for inelastic interaction biasing: if *
41 * .true. the biasing factor is applied only to prima- *
43 * lsclwf = logical flag for low energy neutron fission scoring *
44 * lscnbl = logical flag for neutron balance scoring *
46 *----------------------------------------------------------------------*
48 LOGICAL LHADRO, LBSDCY, LPRBSD, LPRBSI, LSCLWF, LSCNBL
49 CHARACTER*8 BTYPE,GENPAR
50 COMMON / PAPROP / AM (-6:NALLWP), AMDISC (-6:NALLWP),
51 & THALF (-6:NALLWP), BIASDC (-6:NALLWP),
52 & BIASIN (-6:NALLWP), ICHRGE (-6:NALLWP),
53 & IBARCH (-6:NALLWP), IJDISC (-6:NALLWP),
54 & JSPINP (-6:NALLWP), IPARTY (-6:NALLWP),
56 & LHADRO (-6:NALLWP), LBSDCY (-6:NALLWP),
57 & ISCORE ( 10), LPRBSD, LPRBSI, LSCLWF, LSCNBL
58 COMMON / CHPPRP / BTYPE (-6:NALLWP), GENPAR (30)