GEANT321/geant321/gcshpt.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:35  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_GCSHPT_INC
  10 #define CERNLIB_GEANT321_GCSHPT_INC
  11 *
  12 *
  13 * gcshpt.inc
  14 *
  15 #if !defined(CERNLIB_INCLUDE)
  16 C  Shells are numbered from 1 to 24.
  17 C  Shells used:
  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
  21 C   VARIABLES:
  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 !!!
  26       INTEGER LENGTH,MAXSHL
  27       PARAMETER (LENGTH=  1409)
  28       PARAMETER (MAXSHL=24)
  29       INTEGER NSHLST,N1ST,NSHLLS
  30       REAL ESHELL
  31       DIMENSION NSHLST(MAXSHL),N1ST(MAXELZ),NSHLLS(MAXELZ)
  32       DIMENSION ESHELL(LENGTH)
  33       COMMON /GCSHPT/NSHLST,N1ST,NSHLLS,ESHELL
  34 C
  35 #endif
  36 *
  37 * gcshpt.inc
  38 *
  39 #if defined(CERNLIB_INCLUDE)
  40 *
  41 #include "geant321/incbeg.inc"
  42      +   gcshpt
  43 #include "geant321/incend.inc"
  44 #endif
  45
  46 #endif