From e2b4b1f58da802939854a4eefced08f27e148eed Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 15 Oct 2018 19:04:05 +0200 Subject: [PATCH] Init lindex=0 --- plugins/dress_zmq/alpha_factory.irp.f | 2 ++ 1 file changed, 2 insertions(+) diff --git a/plugins/dress_zmq/alpha_factory.irp.f b/plugins/dress_zmq/alpha_factory.irp.f index 64fe50c4..f0b5f458 100644 --- a/plugins/dress_zmq/alpha_factory.irp.f +++ b/plugins/dress_zmq/alpha_factory.irp.f @@ -382,6 +382,8 @@ subroutine alpha_callback_mask(delta_ij_loc, i_gen, sp, mask, bannedOrb, banned, integer(bit_kind), allocatable :: det_minilist(:,:,:) + lindex = 0 + lindex_end = 0 allocate(abuf(siz), labuf(N_det), iorder(siz), det_minilist(N_int, 2, N_det)) do i=1,siz