Argument Definitions (+ indicates altered content) INTEGER IORB1 REAL*8 EXCP(*), POT(*)
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. * * ### potAsympt ### determines the asymptotic values of Coulomb and exchange potentials needed for a given Fock equation
Source file: potAsympt.f
Intrinsic Functions Called GENERIC*8 ABS
External Functions and Subroutines Called SUBROUTINE COULASYMPT, EXCHASYMPT
Local Variables (+ indicates altered content) INTEGER +I3BEG, +IBEG, +IDEL, +IORB2 INTEGER +K, +NGRID
Referenced Common Block Variables (+ indicates altered content) ADDRESS1 INTEGER I2B(60), I3B(1830) ADDRESS3 INTEGER I3SI(1830) ADDRESS6 INTEGER I3XK(60,60) COMPATAB INTEGER ILC(1830) CONFIG INTEGER NORB ORBITI INTEGER MGX(9,60) SCFI INTEGER ISLAT SORI INTEGER ITOUCH(60)