*$ CREATE PAPROP.ADD
*COPY PAPROP
*
*=== paprop ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     All additions/changes wrt the original one are:                  *
*     Copyright (C) 1991-2010      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  08-Dec-10    by    Alfredo Ferrari               *
*                                                                      *
*     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 (GeV)                          *
*        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)    *
*        biasdc(i) = decay biasing factor for the i_th particle        *
*        biasin(i) = inelastic interaction biasing factor for the i_th *
*                    particle                                          *
*        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       *
*        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          *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( MXGNPR = 60 )
*
      LOGICAL LHADRO, LBSDCY, LPRBSD, LPRBSI, LSCLWF, LSCNBL
      CHARACTER*8 PRNAME, GNNAME
      COMMON / PAPROP / AM     (-6:NALLWP), AMDISC (-6:NALLWP),
     &                  TMNLF  (-6:NALLWP), BIASDC (-6:NALLWP),
     &                  BIASIN (-6:NALLWP), ICHRGE (-6:NALLWP),
     &                  IBARCH (-6:NALLWP), IJDISC (-6:NALLWP),
     &                  JSPINP (-6:NALLWP), IPARTY (-6:NALLWP),
     &                  IPARID (-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 /