This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (PAPROP)
1 *$ CREATE PAPROP.ADD
2 *COPY PAPROP
3 *
4 *=== paprop ===========================================================*
5 *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     include file: paprop copy                                        *
9 *                                                                      *
10 *     !!!!    N E W   V E R S I O N   !!!!                             *
11 *                                                                      *
12 *     Created on    07 may 1991    by    Alfredo Ferrari & Paola Sala  *
13 *                                                   Infn - Milan       *
14 *                                                                      *
15 *     Last change on 03-jul-97     by    Alfredo Ferrari               *
16 *                                                                      *
17 *     included in the following subroutines or functions: not updated  *
18 *                                                                      *
19 *     description of the common block(s) and variable(s)               *
20 *                                                                      *
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-  *
42 *                 ries                                                 *
43 *        lsclwf = logical flag for low energy neutron fission scoring  *
44 *        lscnbl = logical flag for neutron balance scoring             *
45 *                                                                      *
46 *----------------------------------------------------------------------*
47 *
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),
55      &                  IPARID (-6:NALLWP),
56      &                  LHADRO (-6:NALLWP), LBSDCY (-6:NALLWP),
57      &                  ISCORE    ( 10), LPRBSD, LPRBSI, LSCLWF, LSCNBL
58       COMMON / CHPPRP / BTYPE  (-6:NALLWP), GENPAR (30)
59