Commit 40f3eb8b authored by Gregor Michalicek's avatar Gregor Michalicek

Fix "floating invalid" problem in main/totale.f90

The ifort debugging version of fleur complained since
an operation was performed on the whole mt array though
only the relevant part of the array was initialized.
parent cf940770
......@@ -148,6 +148,7 @@ CONTAINS
!-for
! ---> add spin-up and spin-down charge density for lh=0
!
mt = 0.0
DO n = 1,atoms%ntype
DO i = 1,atoms%jri(n)
mt(i,n) = den%mt(i,0,n,1) + den%mt(i,0,n,input%jspins)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment