*
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). |