Argument Definitions (+ indicates altered content) INTEGER IORB, NMI REAL*8 +EDECAY(NNI,4), FA(*)
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. * * ### orbAsymptDet ### Initializes array edecay which is used by orbAsymptSet to calculate boundary values of a given orbital at practical infinity.
Source file: orbAsymptDet.f
Intrinsic Functions Called GENERIC*8 ABS, EXP, SQRT
Local Variables (+ indicates altered content) INTEGER +I, +ITT, +J, +JJ INTEGER +KK REAL*8 +RAIQ, +RAIQ1
Referenced Common Block Variables (+ indicates altered content) GRIDI INTEGER NNI GRIDR REAL*8 VETASQ(1500) GRIDR REAL*8 VXISQ(2500)