]> git.uio.no Git - u/mrichter/AliRoot.git/blame - GEANT321/geant321/isotop.inc
Using dlsym to retrieve address of commons
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / isotop.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_ISOTOP_INC
10#define CERNLIB_GEANT321_ISOTOP_INC
11*
12*
13* isotop.inc
14*
15*----------------------------------------------------------------------*
16* include file: isotop created by A. Ferrari on 23-9-90 *
17* *
18* description of the common block(s) and variable(s) *
19* *
20* *
21* isondx = initial and final indexes in the abuiso and isomnm *
22* for a given atomic number *
23* isomnm = mass numbers of the isotopes *
24* abuiso = natural abundances of the isotopes *
25* astlin(1,iz) = "average" A of the stability line versus the *
26* atomic number Z *
27* astlin(2,iz) = dispersion of A of the stability line versus *
28* the atomic number Z *
29* zstlin(1,ia) = "average" Z of the stability line versus the *
30* mass number A *
31* zstlin(2,ia) = dispersion of Z of the stability line versus *
32* the mass number A *
33* *
34*----------------------------------------------------------------------*
35*
36 COMMON / FKISOT / ABUISO (NSTBIS), ASTLIN (2,100), ZSTLIN (2,260),
37 & ISOMNM (NSTBIS), ISONDX (2,100)
38
39
40#endif