From 2a0a5f8b6f9b8e0e476e686b73ac05b07416abde Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Sun, 2 Oct 2016 23:12:17 +0200 Subject: [PATCH] Fixed assert:BANDON --- plugins/Selectors_full/selectors.irp.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/plugins/Selectors_full/selectors.irp.f b/plugins/Selectors_full/selectors.irp.f index 62f0aeaa..27036f33 100644 --- a/plugins/Selectors_full/selectors.irp.f +++ b/plugins/Selectors_full/selectors.irp.f @@ -14,7 +14,7 @@ BEGIN_PROVIDER [ integer, N_det_selectors] integer :: i double precision :: norm, norm_max call write_time(output_determinants) - N_det_selectors = N_det + N_det_selectors = N_det_generators if (threshold_generators < 1.d0) then norm = 0.d0 do i=1,N_det @@ -24,7 +24,7 @@ BEGIN_PROVIDER [ integer, N_det_selectors] exit endif enddo - N_det_selectors = max(N_det_selectors,1) + N_det_selectors = max(N_det_selectors,N_det_generators) endif call write_int(output_determinants,N_det_selectors,'Number of selectors') END_PROVIDER