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