10 lines
399 B
Forth
10 lines
399 B
Forth
--- src/inihf.f~ Tue May 17 02:22:50 2005
|
|
+++ src/inihf.f Tue Jan 9 17:12:22 2007
|
|
@@ -20,6 +20,7 @@
|
|
implicit integer*4 (i-n)
|
|
implicit real*8 (a-h,o-z)
|
|
character*8 atom1,term1,atom2,term2
|
|
+ integer ouf2dhf1, ouf2dhf2
|
|
include 'commons8.inc'
|
|
dimension psi(*),pot(*),excp(*),f2(*),f4(*),wgt2(*),wk0(*)
|
|
dimension rhf1(9999),phf1(20,9999),ehf1(20),qc1(20),
|