FIxed core correction bug introduced yesterday

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@834 c92efa57-630b-4861-b058-cf58834340f0
2004-04-29 09:43:05 +00:00 · 2004-04-29 09:43:05 +00:00 · f4c0dbe91a
parent 8a05898a05
commit f4c0dbe91a
1 changed files with 1 additions and 1 deletions
--- a/CPV/cplib.f90
+++ b/CPV/cplib.f90
@ -6391,7 +6391,7 @@
      wrk1 (:) = (0.d0, 0.d0)
 !
      do is=1,nsp
-         if (nlcc(is)) go to 10
+         if (.not.nlcc(is)) go to 10
 #ifdef __PARA
         do ia=1,na(is)
            nfft=1