Commit 3fb3098b authored by Matthias Redies's avatar Matthias Redies

unify out-file for intel&gnu

parent da2dac82
......@@ -64,12 +64,12 @@
DO nc=1,atoms%ncst(n)
qe=qe+atoms%neq(n)*occ(nc,1)
ENDDO
WRITE (6,*) 'neq= ',atoms%neq(n),' ncore= ',qe
WRITE (6,"(A, I4, A, F12.8)") 'neq= ',atoms%neq(n),' ncore= ',qe
ENDIF
ENDDO
!---> semi-core and valence electrons
qe=qe+input%zelec
WRITE (6,*) 'zelec= ',input%zelec
WRITE (6,"(A, F12.8)") 'zelec= ',input%zelec
WRITE (6, '(/,/,a)') ' parameters for external electric field:'
WRITE (6, '(3x,a,f12.5)') 'total electronic charge =', qe
......
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