From 7e3e2b9db92ef96e99cc8037b85c4b8ec10a35e0 Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Tue, 25 Feb 2020 10:26:53 -0600 Subject: [PATCH] minor --- src/determinants/h_apply.irp.f | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/determinants/h_apply.irp.f b/src/determinants/h_apply.irp.f index cfbbf847..44966310 100644 --- a/src/determinants/h_apply.irp.f +++ b/src/determinants/h_apply.irp.f @@ -27,7 +27,7 @@ type(H_apply_buffer_type), pointer :: H_apply_buffer(:) allocate(H_apply_buffer(0:nproc-1)) iproc = 0 !$OMP PARALLEL PRIVATE(iproc) DEFAULT(NONE) & - !$OMP SHARED(H_apply_buffer,N_int,sze,N_states,H_apply_buffer_lock) + !$OMP SHARED(H_apply_buffer,N_int,sze,N_states,H_apply_buffer_lock,is_complex) !$ iproc = omp_get_thread_num() H_apply_buffer(iproc)%N_det = 0 H_apply_buffer(iproc)%sze = sze @@ -225,6 +225,7 @@ subroutine copy_H_apply_buffer_to_wf endif ! Copy new buffers + logical :: found_duplicates if (is_complex) then !$OMP PARALLEL DEFAULT(SHARED) & @@ -253,7 +254,6 @@ subroutine copy_H_apply_buffer_to_wf !$OMP END PARALLEL SOFT_TOUCH N_det psi_det psi_coef_complex - logical :: found_duplicates call remove_duplicates_in_psi_det(found_duplicates) do k=1,N_states call normalize(psi_coef_complex(1,k),N_det) @@ -287,7 +287,6 @@ subroutine copy_H_apply_buffer_to_wf !$OMP END PARALLEL SOFT_TOUCH N_det psi_det psi_coef - logical :: found_duplicates call remove_duplicates_in_psi_det(found_duplicates) do k=1,N_states call normalize(psi_coef(1,k),N_det)