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	cafagna	3.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