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