]>
Commit | Line | Data |
---|---|---|
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 |