REAL FUNCTION POTTF ( R, EK, QK, DZ, CH, SLIM )

Argument Definitions (+ indicates altered content)
REAL*8             CH,         DZ,         EK,         QK
REAL*8             R,          SLIM
Description
                                                                        * 
  Copyright (C) 1996 Leif Laaksonen, Dage Sundholm                      * 
  Copyright (C) 1996-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.                            * 
                                                                        * 
 
### pottf ### 
 
    Calculates a Thomas-Fermi potential (a modified version of dentfa 
    by Desclaux)
Source file:pottf.f
Intrinsic Functions Called
GENERIC*8          ABS,        SQRT
Local Variables (+ indicates altered content)
REAL*8            +T,         +W