mirror of https://gitlab.com/QEF/q-e.git
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
This commit is contained in:
parent
0bb659974f
commit
11548ed15b
|
@ -126,8 +126,9 @@ SUBROUTINE setup()
|
||||||
!
|
!
|
||||||
#if defined (__PGI)
|
#if defined (__PGI)
|
||||||
DO na = 1, nat
|
DO na = 1, nat
|
||||||
nelec = nelec + zv( ityp(na) ) - tot_charge
|
nelec = nelec + zv( ityp(na) )
|
||||||
END DO
|
END DO
|
||||||
|
nelec = nelec - tot_charge
|
||||||
#else
|
#else
|
||||||
nelec = SUM( zv(ityp(1:nat)) ) - tot_charge
|
nelec = SUM( zv(ityp(1:nat)) ) - tot_charge
|
||||||
#endif
|
#endif
|
||||||
|
|
Loading…
Reference in New Issue