LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-26 15:12:14 +02:00
Code Issues Releases Wiki Activity

Bug in bit_tmp

Browse Source
This commit is contained in:
Manu 2014-11-13 10:43:26 +01:00
parent 5a49f18d65
commit 66ab8d5e2a
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Dets/determinants.irp.f
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