Commit 8e968034 authored by Daniel Wortmann's avatar Daniel Wortmann

Write out noco-distance even if zero in noco case

parent eac502a1
......@@ -58,7 +58,7 @@ contains
WRITE ( 6,FMT=7900) js,inDen%iter,1000*SQRT(ABS(dist(js)/vol))
END DO
IF (abs(dist(6))>1E-15) WRITE (6,FMT=7900) 3,inDen%iter,1000*SQRT(ABS(dist(6)/vol))
IF (SIZE(outden%pw,2)>2) WRITE (6,FMT=7900) 3,inDen%iter,1000*SQRT(ABS(dist(6)/vol))
!calculate the distance of total charge and spin density
!|rho/m(o) - rho/m(i)| = |rh1(o) -rh1(i)|+ |rh2(o) -rh2(i)| +/_
......
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