Commit 38081e66 authored by Uliana Alekseeva's avatar Uliana Alekseeva

Update ccdnup.f90

parent 47307ad8
......@@ -81,7 +81,7 @@ CONTAINS
END DO ! end-do-loop input%jspins
8000 FORMAT (f20.8,' electrons lost from core.')
8010 FORMAT (10x,'atom type',i3,' (spin',i2,') ',/,10x,&
8010 FORMAT (10x,'atom type',i5,' (spin',i2,') ',/,10x,&
& 'kinetic energy=',e20.12,5x,'sum of the eigenvalues=',&
& e20.12)
......
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