ADDRESS2 INTEGER I1E(60)
COMPATAB CHARACTER*8 BOND(60), GUT(60)
COMPATAB CHARACTER*8 SPIN(240)
COMPATAB INTEGER IORN(60)
CONFIG INTEGER NEL, +NEXCH
CONFIG INTEGER NORB
CONSFP REAL*8 PII, PRECIS
DEBUG INTEGER IDBG(1000)
DEBUG INTEGER +IPRINT(1000)
DIMES INTEGER MAXMU, MAXNI
DIMES INTEGER MAXORB
EXTPOT INTEGER IFEFIELD, IHARM2XY
EXTPOT REAL*8 FFIELD, HARM2XY
GAUSS20 INTEGER MAXNPBASIS
GRIDI INTEGER IEMU(10), MXNMU
GRIDI INTEGER MXSIZE, NGRIDS
GRIDI INTEGER NMU(10), NNI
GRIDR REAL*8 HMU(10), HNI
GRIDR REAL*8 VETA(1500)
GRIDR REAL*8 VXI(2500)
HYDINI REAL*8 CO1(60), CO2(60)
HYDINI REAL*8 EZA1(60), EZA2(60)
INPUTD1 INTEGER IENTERM, IFERMI
INPUTD1 INTEGER IMETHOD, INI
INPUTD1 INTEGER INOTERM, IPLOT
INPUTD1 INTEGER IPOT
INPUTD1 REAL*8 Z1ATMASS, Z2ATMASS
INPUTD2 REAL*8 R, +RINF
INPUTD2 REAL*8 Z1, Z2
INPUTD3 CHARACTER*4 CDFTCORR(10)
INPUTD3 CHARACTER*4 CDFTEX(10)
IOCHAN INTEGER IOUT6, LENGTHFP
IOCHAN INTEGER LENGTHINT
LENGTHS INTEGER LENGTH1, LENGTH2
LENGTHS INTEGER LENGTH3, LENGTH4
LENGTHS INTEGER LENGTH5, LENGTH6
ORBITI CHARACTER*8 ORBSYM(60)
ORBITI INTEGER MGX(9,60)
PERTAB CHARACTER*2 ELEMENT(0:100)
PERTAB REAL*8 BOHR2ANG
SCFI INTEGER IDFTCORR, IDFTEX
SCFI INTEGER MAXSCF
SCFR REAL*8 ALPHAF, EXLCOUL
SCFR REAL*8 EXLEXP, EXLORB
SCFR REAL*8 FACMUL
SORI INTEGER IALTSWEEPS
SORI INTEGER IORDER(10)
SORI INTEGER IPOISS, MAXSORORB(60)
SORI INTEGER MAXSORPOT(60)
SORI INTEGER MPOLE
SORR REAL*8 OVFCOUL(10)
SORR REAL*8 OVFEXCH(10)
SORR REAL*8 OVFORB(10)
|