2 ! Copyright (C) 2002-2006 J. K. Dewhurst, S. Sharma and C. Ambrosch-Draxl.
3 ! This file is distributed under the terms of the GNU Lesser General Public
4 ! License. See the file COPYING for license details.
6 subroutine writechg(fnum
)
10 integer, intent(in
) :: fnum
15 write(fnum
,'("Charges :")')
16 write(fnum
,'(" core",T30,": ",G18.10)') chgcr
17 write(fnum
,'(" core leakage",T30,": ",G18.10)') chgcrlk
18 write(fnum
,'(" valence",T30,": ",G18.10)') chgval
19 write(fnum
,'(" interstitial",T30,": ",G18.10)') chgir
20 write(fnum
,'(" muffin-tins")')
22 write(fnum
,'(" species : ",I4," (",A,")")') is
,trim(spsymb(is
))
25 write(fnum
,'(" atom ",I4,T30,": ",G18.10)') ia
,chgmt(ias
)
28 write(fnum
,'(" total in muffin-tins",T30,": ",G18.10)') chgmttot
29 if (chgexs
.ne
.0.d0
) then
30 write(fnum
,'(" excess",T30,": ",G18.10)') chgexs
32 write(fnum
,'(" total charge",T30,": ",G18.10)') chgcalc
36 write(fnum
,'("Moments :")')
37 write(fnum
,'(" interstitial",T30,": ",3G18.10)') momir(1:ndmag
)
38 write(fnum
,'(" muffin-tins")')
40 write(fnum
,'(" species : ",I4," (",A,")")') is
,trim(spsymb(is
))
43 write(fnum
,'(" atom ",I4,T30,": ",3G18.10)') ia
,mommt(1:ndmag
,ias
)
46 write(fnum
,'(" total in muffin-tins",T30,": ",3G18.10)') mommttot(1:ndmag
)
47 write(fnum
,'(" total moment",T30,": ",3G18.10)') momtot(1:ndmag
)