From d9c03b68ca94f7433e0c75f0de2de61c0d5025c8 Mon Sep 17 00:00:00 2001
From: Niri Govind <niri.govind@pnl.gov>
Date: Sat, 14 Jan 2012 00:58:07 +0000
Subject: [PATCH] fix break

---
 src/nwdft/lr_tddft/tddft_residual.F | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/nwdft/lr_tddft/tddft_residual.F b/src/nwdft/lr_tddft/tddft_residual.F
index 6cf744b1a3..4d32209d5f 100644
--- a/src/nwdft/lr_tddft/tddft_residual.F
+++ b/src/nwdft/lr_tddft/tddft_residual.F
@@ -981,8 +981,7 @@ c
                 else
                   evl_diff = evl(k,i)-evl(j,i)
                 endif
-c                r=r/(evl(k,i)-evl(j,i)-apbval(n))
-                r=r/(evl_diff-apbval(n)) 
+                r=r/(evl(k,i)-evl(j,i)-apbval(n))
                 call ga_put(g_residuals_2(i),l,l,n,n,r,1)
               enddo
             enddo