Argument Definitions (+ indicates altered content) REAL*8 RHOT(*), RHOTDOWN(*), RHOTUP(*) REAL*8 WK0(*), WK1(*), +WK10(*), WK2(*) REAL*8 WK3(*), WK4(*), WK5(*), WK6(*) REAL*8 WK7(*), WK8(*), WK9
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. * * ### fvwnsupcs ### Calculates the correlation potential of VWN using the closed-shell formula; it is returned in wk10 (see also fvwncs)
Source file: fvwnsupcs.f
Intrinsic Functions Called GENERIC*8 ABS
External Functions and Subroutines Called REAL*8 QVWN, QVWNDERX
Parameter Variables Used REAL*8 CONST16 (CONST16 = 1.D0/6.D0) REAL*8 CONST76 (CONST76 = 7.D0/6.D0) REAL*8 CONST56 (CONST56 = 5.D0/6.D0) REAL*8 CK1 (CK1 = 0.0310907D0) REAL*8 CL1 (CL1 = -0.10498D0) REAL*8 CM1 (CM1 = 3.72744D0) REAL*8 CN1 (CN1 = 12.9352D0)
Local Variables (+ indicates altered content) INTEGER +I REAL*8 +CONSTX, +CONSTXP, +G1, +G2 REAL*8 +X, +XDERRHOT
Referenced Common Block Variables (+ indicates altered content) CONSFP REAL*8 EIGHT, FOUR CONSFP REAL*8 PII, PRECIS CONSFP REAL*8 THREE GRIDI INTEGER MXSIZE