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. * * ### prepwexch ### Prepears data for writing exchange potentials involving a given orbital (see wtdexch).
Source file: prepwexch.f
Local Variables (+ indicates altered content) INTEGER +IORB1, +IORB2, +K
Referenced Common Block Variables (+ indicates altered content) ADDRESS6 INTEGER I3XK(60,60) ADDRESS6 INTEGER +IWEXCH(1860) CONFIG INTEGER NORB