Extra ' in format.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@8350 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dceresoli 2011-12-20 13:52:51 +00:00
parent 3dd403596b
commit 125cb073d2
1 changed files with 1 additions and 1 deletions

View File

@ -181,7 +181,7 @@ subroutine ascheqps(nam,lam,jam,e0,mesh,ndm,grid,vpot,thresh,y,beta,ddd,&
!
if( ndcr /= ncross .and. first(nam,lam) ) then
write(stdout,"(/,7x,'Warning: n=',i1,', l=',i1,' expected ',i1,' nodes,',&
& ' found ',i1')") nam,lam,ndcr,ncross
& ' found ',i1)") nam,lam,ndcr,ncross
write(stdout,'(7x,a,/,7x,a,/)') 'Setting wfc to zero for this iteration',&
'(This warning will only be printed once per wavefunction)'
first(nam,lam) = .false.