From 48adebac20181ac00b37de5211e7a11dadb5efd5 Mon Sep 17 00:00:00 2001
From: Yann Garniron <yann.garniron@yahoo.fr>
Date: Wed, 18 Jan 2017 15:53:51 +0100
Subject: [PATCH] bug correction - fixed zlib link

---
 configure                                    | 2 +-
 plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f | 9 +++++----
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/configure b/configure
index cf8d1e03..86fff79f 100755
--- a/configure
+++ b/configure
@@ -102,7 +102,7 @@ curl = Info(
     default_path=join(QP_ROOT_BIN, "curl"))
 
 zlib = Info(
-    url='http://www.zlib.net/zlib-1.2.10.tar.gz',
+    url='http://www.zlib.net/fossils/zlib-1.2.10.tar.gz',
     description=' zlib',
     default_path=join(QP_ROOT_LIB, "libz.a"))
 
diff --git a/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f b/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f
index 186af429..e41b504f 100644
--- a/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f
+++ b/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f
@@ -190,7 +190,6 @@ subroutine pt2_collector(b, tbc, comb, Ncomb, computed, pt2_detail, sumabove, su
     do i=1,Nindex
       pt2_detail(:, index(i)) += pt2_mwen(:,i)
       parts_to_get(index(i)) -= 1
-      !print *, index(1)
       if(parts_to_get(index(i)) < 0) then 
         stop "PARTS ??"
       end if
@@ -280,22 +279,24 @@ subroutine get_first_tooth(computed, first_teeth)
   implicit none
   logical, intent(in) :: computed(N_det_generators)
   integer, intent(out) :: first_teeth
-  integer :: i
+  integer :: i, first_det
 
+  first_det = 1
   first_teeth = 1
   do i=first_det_of_comb, N_det_generators
     if(not(computed(i))) then
-      first_teeth = i
+      first_det = i
       exit
     end if
   end do
   
   do i=comb_teeth, 1, -1
-    if(first_det_of_teeth(i) < first_teeth) then
+    if(first_det_of_teeth(i) < first_det) then
       first_teeth = i
       exit
     end if
   end do
+
 end subroutine