From 135082dd7d72d44c4724ac121f090ee3b2e7661d Mon Sep 17 00:00:00 2001 From: ydamour Date: Fri, 13 May 2022 18:07:40 +0200 Subject: [PATCH] duplication if N_det in OMP section --- src/perturbation/selection.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/perturbation/selection.irp.f b/src/perturbation/selection.irp.f index 67422226..d5947d25 100644 --- a/src/perturbation/selection.irp.f +++ b/src/perturbation/selection.irp.f @@ -90,7 +90,7 @@ subroutine remove_small_contributions enddo !$OMP PARALLEL DEFAULT(NONE) & !$OMP PRIVATE(i,j,i_H_psi_array) & - !$OMP SHARED(k,psi_det_sorted,psi_coef_sorted,N_int,N_det,N_det,N_states, & + !$OMP SHARED(k,psi_det_sorted,psi_coef_sorted,N_int,N_det,N_states, & !$OMP selection_criterion_min,keep,N_det_generators) & !$OMP REDUCTION(+:N_removed) !$OMP DO