Commit 9e5ebc0e authored by Matthias Redies's avatar Matthias Redies

remove a bug that only exsits in magnetic calculations

parent 5d3ab3af
......@@ -175,7 +175,6 @@ CONTAINS
IF(present(EnergyDen)) then
DO j = 1,nm
rhoc(j) = rhoss(j)/input%jspins
EnergyDen(j,0,jatom,jspin) = EnergyDen(j,0,jatom,jspin) &
+ rhoss_aux(j) /(input%jspins * sfp_const)
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