Argument Definitions (+ indicates altered content) INTEGER IORB1, IORB2 REAL*8 EXCP(*), POT(*), PSI(*), WGT2(*) REAL*8 +WK0(*), WK1(*)
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. * * ### Eab2HF ### Evaluates off-diagonal Lagrange multipliers in cases occ(iorb1)<>occ(iorb2) e(iorb2,iorb1) = e(2,1) = <2|V_C-V_x|1> e(iorb1,iorb2) = e(1,2) = <1|V_C-V_x|2>
Source file: Eab2HF.f
Intrinsic Functions Called GENERIC*4 MIN
External Functions and Subroutines Called REAL*8 DOT SUBROUTINE ADD, COPY, PROD, PRODAS SUBROUTINE SCAL
Local Variables (+ indicates altered content) INTEGER +I, +I1BEG, +I1BEG1, +I1BEG2 INTEGER +I2BEG, +I3BEG, +IHC, +IORB INTEGER +IPC12, +KEX, +NGEX, +NGORB INTEGER +NGORB1, +NGORB2, +NGPOT, +NGPOT1 INTEGER +NGPOT2, +NGRID, +NGRID2, +NORB2 REAL*8 +COO, +WTWOEL
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) COMPATAB INTEGER ILC(1830) CONFIG INTEGER NORB CONSFP REAL*8 ZERO CONSINT INTEGER IONE GRIDI INTEGER MXSIZE NOENG REAL*8 +ENGO(3600) OPCOM REAL*8 GEC(7200) ORBIT INTEGER MM(60) ORBITI INTEGER IGE(60) ORBITR REAL*8 OCC(60)