Commit 15008417 authored by Robin Hilgers's avatar Robin Hilgers

Corrected Formula

parent b51127d6
......@@ -112,9 +112,10 @@ SUBROUTINE flipcdn(atoms,input,vacuum,sphhar,stars,sym,noco,oneD,cell)
IF (input%l_removeMagnetisationFromInterstitial) THEN
!!This Segment takes care that no interstitial magnetization is written in the the density. Meaning: Off diagonal elements of density matrix set to 0 and diagonal elements of density matrix are equal to each other.
den%pw(:,2)=den%pw(:,1)
IF (noco%l_noco.EQ..TRUE.) THEN
!!This Segment takes care that no interstitial magnetization is written in the the density. Meaning: Off diagonal elements of density matrix set to 0 and diagonal elements of density matrix are equal to their former mean value.
den%pw(:,2)=(den%pw(:,1)+den%pw(:,2))*0.5 !mean value
den%pw(:,1)=den%pw(:,2)
IF (noco%l_noco) THEN
den%pw(:,3)=0.0
den%pw(:,4)=0.0
END IF
......
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