LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-01-03 10:05:57 +01:00
Code Issues Releases Wiki Activity

Fixed selection sort

Browse Source
This commit is contained in:
Anthony Scemama 2017-04-19 15:44:24 +02:00
parent 1ac36ab762
commit 9b4131139b
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -318,13 +318,11 @@ BEGIN_TEMPLATE
xtmp = x(i)
i0 = iorder(i)
j = i-1_8
do j=i-1_8,1_8,-1_8
if ( x(j) > xtmp ) then
x(j+1_8) = x(j)
iorder(j+1_8) = iorder(j)
else
exit
endif
do while (x(j)<xtmp)
x(j+1_8) = x(j)
iorder(j+1_8) = iorder(j)
j = j-1_8
if (j<1_8) exit
enddo
x(j+1_8) = xtmp
iorder(j+1_8) = i0