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