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