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

uffa... 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2071 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2005-08-01 12:27:00 +00:00
parent 9f0c950648
commit 2a4498f65f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pwtools/q2r.f90
View File

@ -277,7 +277,7 @@ PROGRAM q2r
IF (resi > eps12) THEN
WRITE (6,"(/5x,' fft-check warning: sum of imaginary terms = ',e12.7)") resi
ELSE
WRITE (6,"(/5x,' fft-check success (sum of imaginary terms < 10^-12'))")
WRITE (6,"(/5x,' fft-check success (sum of imaginary terms < 10^-12)')")
END IF
!
DEALLOCATE (phid, phiq, nc, tau, zeu, ityp)