Commit 83b0e24d authored by Gregor Michalicek's avatar Gregor Michalicek

Correct inpgen output of LO energy parameters

...I hope this was the last energy parameter IO related bugfix.
parent 58c34076
......@@ -657,6 +657,7 @@ c in s and p states equal occupation of up and down states
ENDIF
enpara%skiplo(n,:) = 0
DO i = 1, atoms%nlo(n)
enpara%qn_ello(i,n,:) = enpara%qn_el(atoms%llo(i,n),n,:) - 1
enpara%skiplo(n,:) = enpara%skiplo(n,1) + (2*atoms%llo(i,n)+1)
ENDDO
......
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