Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / mapa.inc
CommitLineData
fe4da5cc 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