Commit c15cbbd5 authored by Robin Hilgers's avatar Robin Hilgers

Corrected error

parent 18181c5e
......@@ -162,9 +162,9 @@ END DO
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(:,:,:,2)=den(:,:,:,1)
den(:,:,:,3)=0.0
den(:,:,:,4)=0.0
den%pw(:,2)=den%pw(:,1)
den%pw(:,3)=0.0
den%pw(:,4)=0.0
END IF
! write the spin-polarized density
......
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