Commit 6a78a83b authored by Daniel Wortmann's avatar Daniel Wortmann

Small bugfix to create correct occupations

parent 95e1944a
......@@ -494,7 +494,9 @@ c the total spin is maximized
ELSE
up = coreocc(i,n)
dn = 0
END IF
END IF
upreal=up
dnreal=dn
c in s and p states equal occupation of up and down states
......
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