[Q-e-commits] r8258 - trunk/espresso/PW

[giannozz at democritos.it]

Author: giannozz
Date: 2011-11-18 22:47:19 +0100 (Fri, 18 Nov 2011)
New Revision: 8258

Modified:
   trunk/espresso/PW/weights.f90
Log:
Ooops...


Modified: trunk/espresso/PW/weights.f90
===================================================================
--- trunk/espresso/PW/weights.f90	2011-11-18 21:45:26 UTC (rev 8257)
+++ trunk/espresso/PW/weights.f90	2011-11-18 21:47:19 UTC (rev 8258)
@@ -53,7 +53,7 @@
               IF ( nspin == 1 ) wg(:,ik) = wg(:,ik)/2.0_dp
            END DO
            !
-           ef = 1.0d10
+           ef = -1.0d10
            DO ik = 1, nkstot
               DO ibnd = 1, nbnd
                  IF ( wg(ibnd,ik) > 0.D0 ) ef = MAX( ef, et(ibnd,ik) )