Fix for PGI compiler bug was buggy as well! Courtesy of Paolo Cazzato

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3419 c92efa57-630b-4861-b058-cf58834340f0
2006-09-25 15:00:54 +00:00 · 2006-09-25 15:00:54 +00:00 · 11548ed15b
parent 0bb659974f
commit 11548ed15b
1 changed files with 2 additions and 1 deletions
--- a/PW/setup.f90
+++ b/PW/setup.f90
@ -126,8 +126,9 @@ SUBROUTINE setup()
     !
 #if defined (__PGI)
     DO na = 1, nat
-        nelec = nelec + zv( ityp(na) ) - tot_charge
+        nelec = nelec + zv( ityp(na) )
     END DO
+     nelec = nelec - tot_charge
 #else
     nelec = SUM( zv(ityp(1:nat)) ) - tot_charge
 #endif