GEANT321/geant321/mapa.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:40  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_MAPA_INC
  10 #define CERNLIB_GEANT321_MAPA_INC
  11 *
  12 *
  13 * mapa.inc
  14 *
  15 *----------------------------------------------------------------------*
  16 *     include file: mapa copy                    created 26/11/86 by pa*
  17 *     note: change also mapa2 copy if you touch this file              *
  18 *     changes: none                                                    *
  19 *     included in the following subroutines or functions: not updated  *
  20 *                                                                      *
  21 *     description of the common block(s) and variable(s)               *
  22 *                                                                      *
  23 *                                                                      *
  24 *     /mapa/ contains the parameters describing the target materials   *
  25 *        matnam = matnam(i)=name of the material number i              *
  26 *        medium = medium(nreg)=material number of the region nreg      *
  27 *        amss   = the atomic weight of the materials                   *
  28 *        aocmbm = atomic densities in barn**-1 cm**-1                  *
  29 *                 (Atoms Over Cm times Barn for Materials)             *
  30 *        ztar   = atomic numbers of the materials                      *
  31 *        rho    = densities of the materials                           *
  32 *        zlin   = inelastic scattering lengths of the materials        *
  33 *                 for beam particles at the average beam energy in cm  *
  34 *        zlel   = elastic scattering lengths of the materials for      *
  35 *                 beam particles at average beam energy in cm          *
  36 *        zlrad  = radiation lengths of the materials in cm             *
  37 *        zul    = inelastic scattering lengths of the materials        *
  38 *                 for neutrons at threshold energy in cm               *
  39 *        mulflg = flags for multiple scattering options                *
  40 *        icomp  = 0 if the material is not a compound                  *
  41 *        mssnum = mass number of the target nucleus, if =< 0 it means  *
  42 *                 that it is in the natural isotopic composition       *
  43 *        nregs  = total number of the regions                          *
  44 *        nmat   = total number of the materials                        *
  45 *        mtbsnm = medium for which inelastic interaction biasing must  *
  46 *                 be done                                              *
  47 *                                                                      *
  48 *                        Mxxrgn = maximum number of regions            *
  49 *                                                                      *
  50 *----------------------------------------------------------------------*
  51 *
  52       COMMON / FKMAPA / AOCMBM (MXXMDF), AMSS (MXXMDF), ZTAR   (MXXMDF),
  53      &                  RHO    (MXXMDF), ZLIN (MXXMDF), ZLEL   (MXXMDF),
  54      &                  ZLRAD  (MXXMDF), ZUL  (MXXMDF), MEDIUM (MXXRGN),
  55      &                  MULFLG (MXXMDF), ICOMP(MXXMDF), MSSNUM (MXXMDF),
  56      &                  NREGS, NMAT, MTBSNM
  57
  58
  59 #endif