Argument Definitions (+ indicates altered content) REAL*8 GRHO(*), RHO(*), WGT2(*), +WK0(*) REAL*8 WK1(*)
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. * * ### expw86sup ### Calculates exchange energy according to a formula of Parr and Wang Yue (PRB 33 (1986) 8800)
Source file: expw86sup.f
Intrinsic Functions Called GENERIC*8 ABS, SQRT
External Functions and Subroutines Called REAL*8 DOT SUBROUTINE MULTF4
Parameter Variables Used REAL*8 CONST23 (CONST23 = 2.D0/3.D0) REAL*8 CONST43 (CONST43 = 4.D0/3.D0) REAL*8 CONST83 (CONST83 = 8.D0/3.D0) REAL*8 CONST115 (CONST115 = 1.D0/15.D0) REAL*8 A (A = 1.296D0) REAL*8 B (B = 14.D0) REAL*8 C (C = 0.2D0)
Local Variables (+ indicates altered content) INTEGER +I REAL*8 +CONST, +FGGA, +S, +S2
Referenced Common Block Variables (+ indicates altered content) CONSFP REAL*8 ONE, PII CONSFP REAL*8 PRECIS CONSINT INTEGER IONE GRIDI INTEGER MXSIZE