SUBROUTINE WTDISKNAT ( CW_ORB, CW_COUL, CW_EXCH )

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)