REAL FUNCTION FDFTPOT ( ALPHA )

Argument Definitions (+ indicates altered content)
REAL*8             ALPHA
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.                            * 
                                                                        * 
 
### fdftpot ### 
    Calculates the coefficients appearing in the LDA potential formulea.
Source file:fdftpot.f
Parameter Variables Used
REAL*8             CONST13            (CONST13 = 1.D0/3.D0)
REAL*8             CONST23            (CONST23 = 2.D0/3.D0)
REAL*8             CONST34            (CONST34 = 3.D0/4.D0)
Referenced Common Block Variables (+ indicates altered content)
CONSFP             REAL*8             PII,       THREE
CONSFP             REAL*8             TWO
SCFI               INTEGER            IDFTEX