This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / comcon.inc
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:37  cernlib
6 * Geant
7 *
8 *
9 #ifndef CERNLIB_GEANT321_COMCON_INC
10 #define CERNLIB_GEANT321_COMCON_INC
11 *
12 *
13 * comcon.inc
14 *
15 *
16 *=== comcon ===========================================================*
17 *
18 *----------------------------------------------------------------------*
19 *                                                                      *
20 *     include file: comcon copy                 created 26/11/86 by pa *
21 *                                                                      *
22 *     Last change  on  30-oct-92   by   Alfredo Ferrari, INFN - Milan  *
23 *     included in the following subroutines or functions: not updated  *
24 *                                                                      *
25 *     description of the common block(s) and variable(s)               *
26 *                                                                      *
27 *                                                                      *
28 *     /comcon/ contains information about compounds                    *
29 *         icompl(imat) = number of materials in a compound             *
30 *         matnum(i)    = material numbers (compounds consist of the    *
31 *                        materials)                                    *
32 *         aocmbc(i)    = atomic densities in barn**-1 cm**-1           *
33 *                        (Atoms Over Cm times Barn for Compounds)      *
34 *         cona13(i)    = A^1/3 of the constituents                     *
35 *         sumzmf(i)    = cumulative z^2 for multiple scattering        *
36 *         contnt(i)    = partial densities                             *
37 *         sumacn(i)    = cumulative atom contents of the compounds     *
38 *         cabinx(i)    = cumulative at.cont.*inelastic cross section   *
39 *         cabelx(i)    = cumulative at.cont.*  elastic cross section   *
40 *         anxnor       = total inelastic cross section                 *
41 *         elxnor       = total   elastic cross section                 *
42 *----------------------------------------------------------------------*
43 *
44       COMMON /FKCOMC/ AOCMBC (ICOMAX), CONA13 (ICOMAX), SUMZMF (ICOMAX),
45      &                CONTNT (ICOMAX), SUMACN (ICOMAX), CABINX (ICOMAX),
46      &                CABELX (ICOMAX), ANXNOR, ELXNOR,  ICOMPL (MXXMDF),
47      &                MATNUM (ICOMAX)
48  
49
50 #endif