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

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)
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