Argument Definitions (+ indicates altered content) REAL*8 CW_COUL(*), CW_EXCH(*) REAL*8 CW_ORB(*)
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. * * ### wtdisknat ### Writes orbitals, potenials, Lagrange multipliers (diagonal and off-diagonal) and multipole expansion coefficients to a disk file in an unformatted form
Source file: wtdisknat.f
I/O Operations: Unit ID Unit No Access Form Operation IOUT6 SEQ FMTD W IOUT21 SEQ UNF W IOUT21 SEQ FMTD W IOUT23 SEQ A IOUT21 SEQ A IOUT22 SEQ A * 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 PMTX, WRITEA, WTDEXCH1
Local Variables (+ indicates altered content) INTEGER +I, IERR, +IORB1, +IORB2 INTEGER +K
Referenced Common Block Variables (+ indicates altered content) ADDRESS1 INTEGER I1B(60), I2B(60) ADDRESS1 INTEGER I3B(1830) ADDRESS2 INTEGER I1E(60), I2E(60) ADDRESS2 INTEGER I3E(1830) ADDRESS3 INTEGER I1SI(60), I2SI(60) ADDRESS3 INTEGER I3SI(1830) ADDRESS4 INTEGER I1NG(60), I2NG(60) ADDRESS4 INTEGER I3NG(1830) ADDRESS5 INTEGER I1MU(60), I2MU(60) ADDRESS5 INTEGER I3MU(1830) COMPATAB CHARACTER*8 BOND(60) COMPATAB INTEGER IORN(60) CONFIG INTEGER NEXCH, NORB CONSINT INTEGER IONE DEBUG INTEGER INCRMU, INCRNI DEBUG INTEGER IPRINT(1000) ENERG REAL*8 ENG(60) EXMO REAL*8 EXC5(3660) EXMO REAL*8 EXC6(3660) EXMO REAL*8 EXC7(3660) EXMO REAL*8 EXC8(3660) EXMO REAL*8 EXCDI(3660) EXMO REAL*8 EXCHE(3660) EXMO REAL*8 EXCOC(3660) EXMO REAL*8 EXCQU(3660) GRIDI INTEGER NNI INPUTD1 CHARACTER*10 FORMINT INPUTD1 INTEGER IFORM, IMETHOD INPUTD1 INTEGER INPFORM IOCHAN INTEGER IOUT21, IOUT22 IOCHAN INTEGER IOUT23, IOUT6 MOMENT REAL*8 CMULTI(1200) NOENG REAL*8 ENGO(3600) ORBIT INTEGER LL(60) ORBITR REAL*8 AREA(60)