gpamela/gcdes/gcshpt.inc

*
* $Id$
*
* $Log$
*
*
* gcshpt.inc
*
C  Shells are numbered from 1 to 24.
C  Shells used:
C               K,L1,L2,L3,M1,M2,M3,M4,M5
C               N1,N2,N3,N4,N5,N6,N7,
C               O1,O2,O3,O4,O5,P1,P2,P3
C   VARIABLES:
C     NSHLST - value of Z for which the shells starts to be present
C     N1ST   - pointer to K shell of a given Z (in ESHELL array)
C     NSHLLS - Number of used shells for a given Z
C     ESHELL - Shells potentials in eV !!!
      INTEGER LENGTH,MAXSHL
      PARAMETER (LENGTH=  1409)
      PARAMETER (MAXSHL=24)
      INTEGER NSHLST,N1ST,NSHLLS
      REAL ESHELL
      DIMENSION NSHLST(MAXSHL),N1ST(MAXELZ),NSHLLS(MAXELZ)
      DIMENSION ESHELL(LENGTH)
      COMMON /GCSHPT/NSHLST,N1ST,NSHLLS,ESHELL
C
*
* gcshpt.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcshpt
#include "incend.inc"
#endif
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*
7	* gcshpt.inc
8	*
9	C Shells are numbered from 1 to 24.
10	C Shells used:
11	C K,L1,L2,L3,M1,M2,M3,M4,M5
12	C N1,N2,N3,N4,N5,N6,N7,
13	C O1,O2,O3,O4,O5,P1,P2,P3
14	C VARIABLES:
15	C NSHLST - value of Z for which the shells starts to be present
16	C N1ST - pointer to K shell of a given Z (in ESHELL array)
17	C NSHLLS - Number of used shells for a given Z
18	C ESHELL - Shells potentials in eV !!!
19	INTEGER LENGTH,MAXSHL
20	PARAMETER (LENGTH= 1409)
21	PARAMETER (MAXSHL=24)
22	INTEGER NSHLST,N1ST,NSHLLS
23	REAL ESHELL
24	DIMENSION NSHLST(MAXSHL),N1ST(MAXELZ),NSHLLS(MAXELZ)
25	DIMENSION ESHELL(LENGTH)
26	COMMON /GCSHPT/NSHLST,N1ST,NSHLLS,ESHELL
27	C
28	*
29	* gcshpt.inc
30	*
31	#if defined(GPAMELA_INCLUDE)
32	*
33	#include "incbeg.inc"
34	+ gcshpt
35	#include "incend.inc"
36	#endif