Argument Definitions (+ indicates altered content) REAL*8 GRHOT(*), GRHOTDOWN(*), GRHOTUP(*) REAL*8 POT(*), PSI(*), RHOT(*), RHOTDOWN(*) REAL*8 RHOTUP(*), WGT2(*), WK0(*), WK1(*) REAL*8 WK10(*), WK11(*), WK12(*), WK13(*) REAL*8 +WK2(*), WK3(*)
Description * Copyright (C) 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. * * ### dftex ### Calculates exchange contribution due to various DFT functionals
Source file: dftex.f
External Functions and Subroutines Called REAL*8 DOT, EXBE88, EXPW86, EXXALPHA SUBROUTINE AXPY, PROD, PROD2, SCAL
Local Variables (+ indicates altered content) INTEGER +I, +IBORB, +IBPOT, +IORB INTEGER +ISIORB, +ISIPOT REAL*8 +OC, +W, +WEX, +WNDC
Referenced Common Block Variables (+ indicates altered content) ADDRESS1 INTEGER I1B(60), I2B(60) ADDRESS3 INTEGER I1SI(60), I2SI(60) CONFIG INTEGER NORB CONSFP REAL*8 TWO CONSINT INTEGER IONE ENERGY REAL*8 +EDFTEX GRIDI INTEGER MXSIZE ORBITR REAL*8 OCC(60) SCFI INTEGER IDFTEX