GEANT321/geant321/paprop.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:41  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_PAPROP_INC
  10 #define CERNLIB_GEANT321_PAPROP_INC
  11 *
  12 *
  13 * paprop.inc
  14 *
  15 *
  16 *=== paprop ===========================================================*
  17 *
  18 *----------------------------------------------------------------------*
  19 *     include file: paprop copy                   created 26/11/86 by p*
  20 *     changes: on  16 december 1992 by Alfredo Ferrari                 *
  21 *     included in the following subroutines or functions: not updated  *
  22 *                                                                      *
  23 *     description of the common block(s) and variable(s)               *
  24 *                                                                      *
  25 *     /paprop/ contains particle properties                            *
  26 *        btype  = literal name of the particle                         *
  27 *        am     = particle mass in gev                                 *
  28 *        ichrge = electric charge of the particle                      *
  29 *        iscore = explanations for the scored distribution             *
  30 *        genpar = names of the generalized particles                   *
  31 *        ijdisc = list of the particle types to be discarded           *
  32 *        thalf  = half life of the particle in sec                     *
  33 *        biasdc = decay biasing factors                                *
  34 *        biasin = inelastic interaction biasing factors                *
  35 *        lhadro = flag for hadrons                                     *
  36 *        jspinp = particle spin (in units of 1/2)                      *
  37 *        lbsdcy = logical flag for biased decay: if .true. the biasing *
  38 *                 factor is used as an upper limit to the decay length *
  39 *        lprbsd = logical flag for biased decay: if .true. the biasing *
  40 *                 factor is applied only to primaries                  *
  41 *        lprbsi = logical flag for inelastic interaction biasing: if   *
  42 *                 .true. the biasing factor is applied only to prima-  *
  43 *                 ries                                                 *
  44 *                                                                      *
  45 *----------------------------------------------------------------------*
  46 *
  47       LOGICAL LHADRO, LBSDCY, LPRBSD, LPRBSI
  48       CHARACTER*8 BTYPE,GENPAR
  49       COMMON / FKPAPR / AM  (NALLWP), AMDISC (NALLWP), THALF  (NALLWP),
  50      &               BIASDC (NALLWP), BIASIN (NALLWP), ICHRGE (NALLWP),
  51      &               ISCORE     (10), IJDISC (NALLWP), LHADRO (NALLWP),
  52      &               JSPINP (NALLWP), LBSDCY (NALLWP), LPRBSD, LPRBSI
  53       COMMON / FKCHPR / BTYPE  (NALLWP), GENPAR (30)
  54
  55
  56 #endif