From 47511da13305c6b24137a16d11ecc3f5919adfb4 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 19 Sep 2018 09:52:40 +0200
Subject: [PATCH] Wrong type

---
 plugins/Full_CI_ZMQ/selection.irp.f | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/plugins/Full_CI_ZMQ/selection.irp.f b/plugins/Full_CI_ZMQ/selection.irp.f
index 32fbbdec..2f7c239f 100644
--- a/plugins/Full_CI_ZMQ/selection.irp.f
+++ b/plugins/Full_CI_ZMQ/selection.irp.f
@@ -414,7 +414,8 @@ subroutine select_singles_and_doubles(i_generator,hole_mask,particle_mask,fock_d
   allocate (mat(N_states, mo_tot_num, mo_tot_num))
   maskInd = -1
 
-  integer :: nb_count, maskInd_save, monoBdo_save
+  integer :: nb_count, maskInd_save
+  logical :: monoBdo_save
   logical :: found
   do s1=1,2
     do i1=N_holes(s1),1,-1   ! Generate low excitations first