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

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