*$ CREATE PAPROP.ADD
*COPY PAPROP
*
*=== Paprop ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     All additions/changes wrt the original one are:                  *
*     Copyright (C) 1991-2019      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     !!!!  N E W   V E R S I O N   F O R   FLUKA9x/FLUKA20xy  !!!!    *
*                                                                      *
*     Created on    07 May 1991    by    Alfredo Ferrari & Paola Sala  *
*                                                Infn - Milan          *
*                                                                      *
*     Last change on  28-Oct-19    by            Paola Sala            *
*                                                Infn - Milan          *
*                                                                      *
*     Variable description:                                            *
*                                                                      *
*        prname(i) = alphabetical name of the i_th particle            *
*        gnname(k) = name of the k_th generalized particle type        *
*        am    (i) = i_th particle mass (including whatever excitation,*
*                    isomer or excited state) (GeV/c^2)                *
*        amdisc(i) = i_th particle mass (GeV) for energy conservation  *
*                    purposes when discarded                           *
*        ichrge(i) = electric charge of the i_th particle              *
*        ibarch(i) = baryonic charge of the i_th particle              *
*        iscore(j) = id for the j_th scored distribution               *
*        ijdisc(i) = flag for discarding the i_th particle type        *
*        tmnlf (i) = mean (not half!) life of the i_th particle (s)    *
*        exenrg(i) = i_th particle excitation energy (GeV), meaningful *
*                    only for ions with A>4                            *
*        biasdc(i) = decay biasing factor for the i_th particle        *
*        biasin(i) = inelastic interaction biasing factor for the i_th *
*                    particle                                          *
*        emnbin    = minimum kinetic energy (per nucleon) for perform- *
*                    ing inelastic interaction biasing                 *
*        emxbin    = maximum kinetic energy (per nucleon) for perform- *
*                    ing inelastic interaction biasing                 *
*        lhadro(i) = True if the i_th particle type is a hadron        *
*        jspinp(i) = i_th particle spin (in units of 1/2)              *
*        iparty(i) = i_th particle parity (when meaningful)            *
*        iparid(i) = particle type id flag for the i_th particle       *
*        iexlvl(i) = i_th particle excited level id, meaningful only   *
*                    for ions with A>4. If < 99 it is the index of an  *
*                    isomeric state, if > 10000, Iexlvl-10000 is the   *
*                    index for an excited state in the level (Ripl)    *
*                    database, whose excitation energy is given by     *
*                    Exenrg(i)                                         *
*        lbsdcy(i) = logical flag for biased decay for the i_th parti- *
*                    cle: if .true. the biasing factor is used as an   *
*                    upper limit to the decay length                   *
*        lprbsd    = logical flag for biased decay: if .true. the bia- *
*                    sing factor is applied only to primaries          *
*        lprbsi    = logical flag for inelastic interaction biasing:   *
*                    if .true. the biasing factor is applied only to   *
*                    primaries                                         *
*        lsclwf    = logical flag for low energy neutron fission sco-  *
*                    ring                                              *
*        lscnbl    = logical flag for neutron balance scoring          *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LHADRO, LBSDCY, LPRBSD, LPRBSI, LSCLWF, LSCNBL
      CHARACTER*8 PRNAME, GNNAME
      COMMON / PAPROP / AM     (-6:NALLWP), AMDISC (-6:NALLWP),
     &                  TMNLF  (-6:NALLWP), EXENRG (-6:NALLWP),
     &                  BIASDC (-6:NALLWP), BIASIN (-6:NALLWP),
     &                  EMNBIN  , EMXBIN  , ICHRGE (-6:NALLWP),
     &                  IBARCH (-6:NALLWP), IJDISC (-6:NALLWP),
     &                  JSPINP (-6:NALLWP), IPARTY (-6:NALLWP),
     &                  IPARID (-6:NALLWP), IEXLVL (-6:NALLWP),
     &                  LHADRO (-6:NALLWP), LBSDCY (-6:NALLWP),
     &                  ISCORE ( 12), LPRBSD, LPRBSI, LSCLWF, LSCNBL
      COMMON / CHPPRP / PRNAME (-6:NALLWP), GNNAME (MXGNPR)
      SAVE / PAPROP /
      SAVE / CHPPRP /