SUBROUTINE FVWNSUPCS ( RHOT, RHOTUP, RHOTDOWN, WK0, WK1, WK2, WK3, WK4, WK5, WK6, WK7, WK8, WK9, WK10 )

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