This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / 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