From 381c9859998f1b3f8f129829f98b0de0850d8a6b Mon Sep 17 00:00:00 2001
From: Yann Garniron <yann.garniron@yahoo.fr>
Date: Thu, 22 Feb 2018 14:05:45 +0100
Subject: [PATCH] mrcc_sto bug for multistate

---
 plugins/mrcc_sto/mrcc_sto.irp.f | 1 -
 1 file changed, 1 deletion(-)

diff --git a/plugins/mrcc_sto/mrcc_sto.irp.f b/plugins/mrcc_sto/mrcc_sto.irp.f
index 3c28ee0f..4332d571 100644
--- a/plugins/mrcc_sto/mrcc_sto.irp.f
+++ b/plugins/mrcc_sto/mrcc_sto.irp.f
@@ -148,7 +148,6 @@ subroutine dress_with_alpha_buffer(delta_ij_loc, minilist, n_minilist, alpha, ip
         dIK(i_state) = dij(i_I, idx_non_ref_from_sorted(idx_alpha_(k_sd,iproc)), i_state)
         if(dIK(i_state) /= 0d0) then
           ok2 = .true.
-          exit
         endif
       enddo
       if(.not. ok2) cycle