5 * Revision 1.1.1.1 1995/10/24 10:20:35 cernlib
9 #ifndef CERNLIB_GEANT321_GCSHPT_INC
10 #define CERNLIB_GEANT321_GCSHPT_INC
15 #if !defined(CERNLIB_INCLUDE)
16 C Shells are numbered from 1 to 24.
18 C K,L1,L2,L3,M1,M2,M3,M4,M5
19 C N1,N2,N3,N4,N5,N6,N7,
20 C O1,O2,O3,O4,O5,P1,P2,P3
22 C NSHLST - value of Z for which the shells starts to be present
23 C N1ST - pointer to K shell of a given Z (in ESHELL array)
24 C NSHLLS - Number of used shells for a given Z
25 C ESHELL - Shells potentials in eV !!!
27 PARAMETER (LENGTH= 1409)
29 INTEGER NSHLST,N1ST,NSHLLS
31 DIMENSION NSHLST(MAXSHL),N1ST(MAXELZ),NSHLLS(MAXELZ)
32 DIMENSION ESHELL(LENGTH)
33 COMMON /GCSHPT/NSHLST,N1ST,NSHLLS,ESHELL
39 #if defined(CERNLIB_INCLUDE)
41 #include "geant321/incbeg.inc"
43 #include "geant321/incend.inc"