SUBROUTINE WTDISK128F ( CW_ORB, CW_COUL, CW_EXCH, I8TMP, R16L60, R16L1200, R16L3660, R16MXSIZE )

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.                            * 
                                                                        * 
 
### wtdisk128f ### 
    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:wtdisk128f.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
  IOUT6                   SEQ  FMTD           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         WRITEA128F,             WTDEXCH1F
Local Variables (+ indicates altered content)
INTEGER           +I
INTEGER*8         +I8TMP1,     IERR8
INTEGER           +IOFFSET,   +IORB1,     +IORB2
INTEGER*8         +IOUT8
INTEGER           +J,         +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            CHARACTER*10       FORMFP128
INPUTD1            CHARACTER*10       FORMINT
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)