PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-26 15:12:19 +02:00
Code Releases Activity

duplication if N_det in OMP section

Browse Source
This commit is contained in:
Yann Damour 2022-05-13 18:07:40 +02:00
parent 774a1309ae
commit 135082dd7d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/perturbation/selection.irp.f
View File

@ -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