scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

- wrong WRITE syntax, xlf complains 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4267 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2007-09-19 15:36:41 +00:00
parent 7deff89433
commit 7128ff1481
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PW/electrons.f90
View File

@ -653,7 +653,7 @@ SUBROUTINE electrons()
etot = eband + ( etxc - etxcc ) + ewld + ehart + deband + demet + descf
!
IF (okpaw) THEN
WRITE(stdout,'(A,F15.8)'), 'US energy before PAW additions', etot
WRITE(stdout,'(A,F15.8)') 'US energy before PAW additions', etot
DO na = 1, nat
IF (tpawp(ityp(na))) THEN
correction1c = ehart1(na) -ehart1t(na) +etxc1(na) -etxc1t(na) + &