Argument Definitions (+ indicates altered content) REAL*8 E(*), EXCP(*), F0(*), POT(*) REAL*8 PSI(*), WGT1(*), WGT2(*), WK0(*) REAL*8 WK1(*), WK10(*), WK11(*), WK12(*) REAL*8 WK13(*), WK2(*), WK3(*), WK4(*) REAL*8 WK5(*), WK6(*), WK7(*), WK8(*) REAL*8 WK9(*)
Description * Copyright (C) 1996 Leif Laaksonen, Dage Sundholm * Copyright (C) 1996-2010 Jacek Kobus* * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2 as * published by the Free Software Foundation. * * ### etotal ### Calculates total HF energy
Source file: etotal.f
I/O Operations: Unit ID Unit No Access Form Operation * SEQ FMTD W IOUT6 SEQ FMTD W Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write
Intrinsic Functions Called DOUBLE PRECISION DBLE GENERIC*8 ABS GENERIC*4 MIN
External Functions and Subroutines Called REAL*8 DOT SUBROUTINE ADD, COPY, DIFFMU, DIFFNU SUBROUTINE EXCONT, EXINT, PREPWEXCH, PROD SUBROUTINE PROD2, PUTIN, PUTOUT, RFDEXCH SUBROUTINE SCAL
Local Variables (+ indicates altered content) INTEGER +IBEX, +IBORB, +IBORB1, +IBORB2 INTEGER +IBPOT, +IBPOT1, +IBPOT2, +IEX INTEGER +IEX1, +IORB, +IORB1, +IORB2 INTEGER +ISIEX, +ISIEX1, +ISIORB, +ISIORB1 INTEGER +ISIORB2, +ISIPOT, +ISIPOT1, +ISIPOT2 INTEGER +NGRID, +NMUT, +NMUT1, +NMUT2 INTEGER +NORB2 REAL*8 +EPSCHARGE, +ETSUM, +OC, +OC1 REAL*8 +OC2, OCX1, OCX2, +W REAL*8 +WCOULDFT, +WDCOUL, +WEX1, +WEX2 REAL*8 +WNDC, +WONEEL
Referenced Common Block Variables (+ indicates altered content) ADDRESS1 INTEGER I1B(60), I2B(60) ADDRESS1 INTEGER I3B(1830) ADDRESS3 INTEGER I1SI(60), I2SI(60) ADDRESS3 INTEGER I3SI(1830) ADDRESS5 INTEGER I1MU(60) COMPATAB CHARACTER*8 BOND(60), GUT(60) COMPATAB INTEGER ILC(1830) COMPATAB INTEGER IORN(60) CONFIG INTEGER NORB CONSFP REAL*8 ONE, TWO CONSFP REAL*8 ZERO CONSINT INTEGER IONE DEBUG INTEGER IPRINT(1000) ENERG REAL*8 ENG(60), +ENGT(60) ENERGY REAL*8 +ENCOUL, +ENCOULDFT ENERGY REAL*8 +ENEXCH, +ENEXCHDFT ENERGY REAL*8 +ENKIN, +ENNUCEL ENERGY REAL*8 +ENTOT GRIDI INTEGER NNI INPUTD1 INTEGER IFORM INPUTD2 REAL*8 R, Z1 INPUTD2 REAL*8 Z2 IOCHAN INTEGER IOUT6 ORBIT INTEGER ISYMORB(60) ORBIT INTEGER MM(60) ORBITR REAL*8 OCC(60) SORWK INTEGER +ISYM TOTTMP REAL*8 +EPOTT, +ETOT TOTTMP REAL*8 +EVT, +VIRRAT TOTTMP REAL*8 +VK(60), +VKT TOTTMP REAL*8 +VN(60), +VNT