Argument Definitions (+ indicates altered content) INTEGER IORB1 REAL*8 EXCP(*)
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. * * ### wtdexch ### Writes exchange potentials involving orbital iorb as separate files
Source file: wtdexch.f
External Functions and Subroutines Called SUBROUTINE WREC
Local Variables (+ indicates altered content) INTEGER +I3BEG, +IORB2, +IREC, +ITEMP INTEGER +K, +NGRID
Referenced Common Block Variables (+ indicates altered content) ADDRESS3 INTEGER I3SI(1830) ADDRESS6 INTEGER I3BREC(60,60) ADDRESS6 INTEGER I3BRECK(60,60) ADDRESS6 INTEGER I3NEXCP(60) ADDRESS6 INTEGER I3XPAIR(60,60) ADDRESS6 INTEGER +IWEXCH(1860)