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. * * ### writeDisk ### Writes orbitals, potenials, Lagrange multipliers (diagonal and off-diagonal) and multipole expansion coefficients to a disk file in either formatted or unformatted form
Source file: writeDisk.f
I/O Operations: Unit ID Unit No Access Form Operation IOUT24 SEQ A IOUT24 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 FLUSH, MEMALLOC, MEMDEALLOC SUBROUTINE WTDISK128, WTDISK128F, WTDISK32 SUBROUTINE WTDISK32F, WTDISK64, WTDISK64F, WTDISKNAT
Local Variables (+ indicates altered content) INTEGER +I16, +I4, I4TMP(1), +I8 INTEGER I8TMP(1), IOFFSET1, IOFFSET2, IOFFSET3 INTEGER IOFFSET4, IOFFSET5, +LI4TMP, +LI8TMP INTEGER R16L1200(1), R16L3660(1) INTEGER R16L60(1), R16MXSIZE(1), R8L1200(1) INTEGER R8L3660(1), R8L60(1), R8MXSIZE(1)
Referenced Equivalenced Variables (+ indicates altered content) EQUIV CHARACTER*80 DATETIME COMMON /INPUTD1/ CHARACTER DTARR2() Local Var EQUIV CHARACTER DTARR1() Local Var CHARACTER*80 HEADER COMMON /INPUTD1/
Referenced Common Block Variables (+ indicates altered content) CONFIG INTEGER NEL, NEXCH CONFIG INTEGER NORB DIMES INTEGER MAXORB GRIDI INTEGER MXNMU, NGRIDS GRIDI INTEGER NMU(10), NNI INPUTD1 CHARACTER*80 DATETIME INPUTD1 CHARACTER*10 FORMFP64, FORMINT INPUTD1 CHARACTER*80 HEADER INPUTD1 INTEGER INOUT128, INOUT32 INPUTD1 INTEGER INOUT64 INPUTD2 REAL*8 R, RGRID(10) INPUTD2 REAL*8 Z1, Z2 IOCHAN INTEGER IOUT24