Argument Definitions (+ indicates altered content) INTEGER*8 +I8TMP(*) REAL*8 CW_COUL(*), CW_EXCH(*) REAL*8 CW_ORB(*), +R16L1200(*), +R16L3660(*) REAL*8 +R16L60(*), +R16MXSIZE(*)
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. * * ### wtdisk128 ### Writes orbitals, potenials, Lagrange multipliers and multipole expansion coefficients to a disk file in an unformatted form (integers are 4 and reals are 8-byte long)
Source file: wtdisk128.f
I/O Operations: Unit ID Unit No Access Form Operation IOUT6 SEQ FMTD W IOUT21 SEQ UNF 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 WRITEA128, WTDEXCH1
Local Variables (+ indicates altered content) INTEGER +I INTEGER*8 +I8TMP1, IERR8 INTEGER +IOFFSET, +IORB1, +IORB2, +J 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) CONFIG INTEGER NORB DIMES INTEGER MAXORB 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) INPUTD1 INTEGER IFORM, IMETHOD 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)