REAL FUNCTION FDFTEN ( 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.                            * 
                                                                        * 
 
### fdften ### 
    Calculates coefficients appearing in LDA energy formulea.
Source file:fdften.f
Parameter Variables Used
REAL*8             CONST13            (CONST13 = 1.D0/3.D0)
REAL*8             CONST34            (CONST34 = 3.D0/4.D0)
REAL*8             CONST98            (CONST98 = 9.D0/8.D0)
Referenced Common Block Variables (+ indicates altered content)
CONSFP             REAL*8             PII,       THREE
CONSFP             REAL*8             TWO
SCFI               INTEGER            IDFTEX