Argument Definitions (+ indicates altered content) INTEGER I, IORB, J REAL*8 COSTH
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. * * ### vcoul ### Evaluates and returns the boundary value of the Coulomb potential for a given orbital at a given point ($\tilde{V}^a_C$))
Source file: vcoul.f
Intrinsic Functions Called DOUBLE PRECISION DBLE GENERIC*8 SQRT
Local Variables (+ indicates altered content) INTEGER +KXK, +M, +N REAL*8 +DOME(10), +PE, +RR, +RR1 REAL*8 +RR2
Referenced Common Block Variables (+ indicates altered content) CONFIG INTEGER NORB GRIDR REAL*8 VETASQ(1500) GRIDR REAL*8 VXISQ(2500) INPUTD2 REAL*8 R2 MOMENT REAL*8 CMULTI(1200) SORI INTEGER MPOLE