DPMJET/flukapro/(MAPA)

   1 *$ CREATE MAPA.ADD
   2 *COPY MAPA
   3 *
   4 *=== Mapa =============================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     include file: mapa copy                                          *
   9 *                                                                      *
  10 *     !!! Change also mapa2 if you touch this file !!!                 *
  11 *                                                                      *
  12 *     Version for Fluka91/.../99:                                      *
  13 *                                                                      *
  14 *     Last change on  14-may-99    by  Alfredo Ferrari, INFN-Milan     *
  15 *                                                                      *
  16 *     included in the following subroutines or functions: not updated  *
  17 *                                                                      *
  18 *     description of the common block(s) and variable(s)               *
  19 *                                                                      *
  20 *                                                                      *
  21 *     /mapa/ contains the parameters describing the target materials   *
  22 *                                                                      *
  23 *        Matnam = matnam(i)=name of the material number i              *
  24 *        Medium = medium(nreg)=material number of the region nreg      *
  25 *        Amss   = material atomic weight                               *
  26 *        Amssem = "effective" material atomic weight for the parametri-*
  27 *                 zed EM cascade                                       *
  28 *        Aocmbm = atomic densities in barn**-1 cm**-1                  *
  29 *                 (Atoms Over Cm times Barn for Materials)             *
  30 *        Ztar   = material atomic number                               *
  31 *        Ztarem = "effective" material atomic number for the parametri-*
  32 *                 zed EM cascade                                       *
  33 *        Rho    = densities of the materials                           *
  34 *        Zlin   = inelastic scattering lengths of the materials        *
  35 *                 for beam particles at the average beam energy in cm  *
  36 *        Zlel   = elastic scattering lengths of the materials for      *
  37 *                 beam particles at average beam energy in cm          *
  38 *        Zlrad  = radiation lengths of the materials in cm             *
  39 *        Zul    = inelastic scattering lengths of the materials        *
  40 *                 for neutrons at threshold energy in cm               *
  41 *        Mulflg = flags for multiple scattering options                *
  42 *        Icomp  = 0 if the material is not a compound                  *
  43 *        Mssnum = mass number of the target nucleus, if =< 0 it means  *
  44 *                 that it is in the natural isotopic composition       *
  45 *        Msindx = index for tabulations for the given isotope of the   *
  46 *                 target nucleus (meaningful only for mssnum > 0)      *
  47 *                 that it is in the natural isotopic composition       *
  48 *        Nregs  = total number of the regions                          *
  49 *        Nmat   = total number of the materials                        *
  50 *        Mtbsnm = medium for which inelastic interaction biasing must  *
  51 *                 be done                                              *
  52 *                                                                      *
  53 *                        Mxxrgn = maximum number of regions            *
  54 *                                                                      *
  55 *----------------------------------------------------------------------*
  56 *
  57       CHARACTER*8 MATNAM
  58       COMMON /  MAPA  / AOCMBM(MXXMDF), AMSS  (MXXMDF), AMSSEM(MXXMDF),
  59      &                  RHO   (MXXMDF), ZTAR  (MXXMDF), ZTAREM(MXXMDF),
  60      &                  ZLIN  (MXXMDF), ZLEL  (MXXMDF), ZLRAD (MXXMDF),
  61      &                  ZUL   (MXXMDF), MEDIUM(MXXRGN), MULFLG(MXXMDF),
  62      &                  ICOMP (MXXMDF), MSSNUM(MXXMDF), MSINDX(MXXMDF),
  63      &                  NREGS, NMAT, MTBSNM
  64       COMMON / CHMAPA / MATNAM(MXXMDF)
  65