LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-07-03 09:55:59 +02:00
Code Issues Releases Wiki Activity

heap sort

Browse Source
This commit is contained in:
Anthony Scemama 2017-05-05 00:19:33 +02:00
parent e0812d4b41
commit 73ce5610b3
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
plugins/Full_CI_ZMQ/selection_buffer.irp.f
View File

@ -51,7 +51,7 @@ subroutine sort_selection_buffer(b)
allocate(iorder(b%cur), detmp(N_int, 2, size(b%det,3)), absval(b%cur), vals(size(b%val)))
absval = -dabs(b%val(:b%cur))
absval = b%val(:b%cur)
do i=1,b%cur
iorder(i) = i
end do

10
src/Utils/sort.irp.f
View File

@ -202,11 +202,11 @@ BEGIN_TEMPLATE
if (isize < 2) then
return
endif
call sorted_$Xnumber(x,isize,n)
if (isize == n) then
return
endif
if ( isize < 32+n) then
! call sorted_$Xnumber(x,isize,n)
! if (isize == n) then
! return
! endif
if ( isize < 16) then
call insertion_$Xsort(x,iorder,isize)
else
call heap_$Xsort(x,iorder,isize)