Warning, /include/geant321/gcshpt.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1995/10/24 10:20:34 cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCSHPT_INC
0010 #define CERNLIB_GEANT321_GCSHPT_INC
0011 *
0012 *
0013 * gcshpt.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016 C Shells are numbered from 1 to 24.
0017 C Shells used:
0018 C K,L1,L2,L3,M1,M2,M3,M4,M5
0019 C N1,N2,N3,N4,N5,N6,N7,
0020 C O1,O2,O3,O4,O5,P1,P2,P3
0021 C VARIABLES:
0022 C NSHLST - value of Z for which the shells starts to be present
0023 C N1ST - pointer to K shell of a given Z (in ESHELL array)
0024 C NSHLLS - Number of used shells for a given Z
0025 C ESHELL - Shells potentials in eV !!!
0026 INTEGER LENGTH,MAXSHL
0027 PARAMETER (LENGTH= 1409)
0028 PARAMETER (MAXSHL=24)
0029 INTEGER NSHLST,N1ST,NSHLLS
0030 REAL ESHELL
0031 DIMENSION NSHLST(MAXSHL),N1ST(MAXELZ),NSHLLS(MAXELZ)
0032 DIMENSION ESHELL(LENGTH)
0033 COMMON /GCSHPT/NSHLST,N1ST,NSHLLS,ESHELL
0034 C
0035 #endif
0036 *
0037 * gcshpt.inc
0038 *
0039 #if defined(CERNLIB_INCLUDE)
0040 *
0041 #include "geant321/incbeg.inc"
0042 + gcshpt
0043 #include "geant321/incend.inc"
0044 #endif
0045
0046 #endif
