From 6500eb11cd931303bbd36e4d378d77b585f95962 Mon Sep 17 00:00:00 2001
From: paulatto <paulatto@c92efa57-630b-4861-b058-cf58834340f0>
Date: Thu, 13 Sep 2007 10:31:33 +0000
Subject: [PATCH] If the bisection algorithm was used the initialization of
 "count" could be skipped. LP

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4236 c92efa57-630b-4861-b058-cf58834340f0
---
 atomic/ascheqps.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/atomic/ascheqps.f90 b/atomic/ascheqps.f90
index d3ed6435e..97db67d5f 100644
--- a/atomic/ascheqps.f90
+++ b/atomic/ascheqps.f90
@@ -146,8 +146,8 @@ subroutine ascheqps(nn,lam,jam,e,mesh,ndm,grid,vpot, &
      elw=eup
      detlw=detup  
   enddo
-  count=0
 100 continue
+  count=0
   if(e.gt.eup) e=0.9_DP*eup+0.1_DP*elw
   if(e.lt.elw) e=0.9_DP*elw+0.1_DP*eup
   !