Argument Definitions (+ indicates altered content) 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. * * ### wtdexch1 ### Writes exchange potentials as separate files
Source file: wtdexch1.f
I/O Operations: Unit ID Unit No Access Form Operation IOUT6 SEQ FMTD W Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write
External Functions and Subroutines Called SUBROUTINE WREC
Local Variables (+ indicates altered content) INTEGER +I3BEG, +IORB1, +IORB2, +IREC INTEGER +K, +NGRID
Referenced Common Block Variables (+ indicates altered content) ADDRESS1 INTEGER I3B(1830) ADDRESS3 INTEGER I3SI(1830) ADDRESS6 INTEGER I3XK(60,60) ADDRESS6 INTEGER I3XREC1(1860) ADDRESS6 INTEGER I3XREC2(1860) COMPATAB INTEGER ILC(1830) CONFIG INTEGER NORB IOCHAN INTEGER IOUT6