SUBROUTINE MPOLEMOM ( CW_ORB, CW_SUPPL, CW_SCTCH )

Argument Definitions (+ indicates altered content)
REAL*8             CW_ORB(*),  CW_SCTCH(*),            CW_SUPPL(*)
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.                            * 
                                                                        * 
 
### mpoleMom ### 
 
    Recalculates multipole moment expansion coefficients every time 
    demax(1), i.e. maximum error in orbital energy, is reduced by 
    facmul. Multipole moments used to calculate asymptotic values of 
    Coulomb and exchange potentials are stored in cmulti and 
    exc(di|qu|oc|he|5-8) arrays, respectively. 
    Coefficients and then asymptotic values are recalculated only for 
    orbitals which undergo relaxation, i.e. those being touched 
    (itouch=1).
Source file:mpoleMom.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
  IOUT6                   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         COULMOM,    EXCHMOM,    GETCPUTIME
Local Variables (+ indicates altered content)
INTEGER           +IORB1,     +IORB2
REAL*8             TIME1,      TIME2
Referenced Common Block Variables (+ indicates altered content)
ADDRESS1           INTEGER            I4B(20),   I5B(20)
CONFIG             INTEGER            NEL,       NORB
INPUTD1            INTEGER            IMETHOD
IOCHAN             INTEGER            IOUT6
SCFR               REAL*8            +TMOMEN
SORI               INTEGER            IPRTLEV