10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-11-12 17:13:54 +01:00

N_det-1 in bit_tmp

This commit is contained in:
Anthony Scemama 2014-11-13 10:58:23 +01:00
parent a700718078
commit 19cf9deeb7

View File

@ -149,7 +149,7 @@ END_PROVIDER
duplicate(i) = .False.
enddo
do i=1,N_det
do i=1,N_det-1
if (duplicate(i)) then
cycle
endif