From 57dbad99c3de8a2a9aaa584e00cb83780138935f Mon Sep 17 00:00:00 2001 From: Yann Garniron Date: Fri, 18 Dec 2015 08:33:16 +0100 Subject: [PATCH] useless minilist computation --- plugins/Perturbation/perturbation.template.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/plugins/Perturbation/perturbation.template.f b/plugins/Perturbation/perturbation.template.f index 33bd10dd..3865def0 100644 --- a/plugins/Perturbation/perturbation.template.f +++ b/plugins/Perturbation/perturbation.template.f @@ -40,7 +40,6 @@ subroutine perturb_buffer_$PERT(i_generator,buffer,buffer_size,e_2_pert_buffer,c ASSERT (minval(sum_norm_pert) >= 0.d0) ASSERT (N_st > 0) - call create_minilist(key_mask, psi_selectors, miniList, idx_miniList, N_det_selectors, N_minilist, Nint) call create_minilist_find_previous(key_mask, psi_det_generators, miniList_gen, i_generator-1, N_minilist_gen, fullMatch, Nint) if(fullMatch) then @@ -48,6 +47,7 @@ subroutine perturb_buffer_$PERT(i_generator,buffer,buffer_size,e_2_pert_buffer,c return end if + call create_minilist(key_mask, psi_selectors, miniList, idx_miniList, N_det_selectors, N_minilist, Nint) do i=1,buffer_size