10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 04:43:50 +01:00

Bug in bit_tmp

This commit is contained in:
Manu 2014-11-13 10:43:26 +01:00
parent 5a49f18d65
commit 66ab8d5e2a

View File

@ -133,7 +133,9 @@ END_PROVIDER
!$DIR FORCEINLINE
bit_tmp(i) = occ_pattern_search_key(psi_occ_pattern(1,1,i),N_int)
enddo
print*,'passed 1'
call i8sort(bit_tmp,iorder,N_det)
print*,'passed 2'
!DIR$ IVDEP
do i=1,N_det
do k=1,N_int
@ -149,7 +151,7 @@ END_PROVIDER
duplicate(i) = .False.
enddo
do i=1,N_det
do i=1,N_det-1
if (duplicate(i)) then
cycle
endif
@ -173,6 +175,7 @@ END_PROVIDER
endif
enddo
enddo
print*,'passed 3'
N_occ_pattern=0
do i=1,N_det