LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-21 11:03:29 +01:00
Code Releases Activity

Fix sort

Browse Source
This commit is contained in:
Anthony Scemama 2023-02-16 11:00:25 +01:00
parent fc84142b5d
commit 8429ff9f76
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/mo_two_e_erf_ints/map_integrals_erf.irp.f
View File

@ -235,11 +235,11 @@ subroutine get_mo_two_e_integrals_erf_ij(k,l,sze,out_array,map)
logical :: integral_is_in_map logical :: integral_is_in_map
if (key_kind == 8) then if (key_kind == 8) then
call i8radix_sort(hash,iorder,kk,-1) call i8sort(hash,iorder,kk)
else if (key_kind == 4) then else if (key_kind == 4) then
call iradix_sort(hash,iorder,kk,-1) call isort(hash,iorder,kk)
else if (key_kind == 2) then else if (key_kind == 2) then
call i2radix_sort(hash,iorder,kk,-1) call i2sort(hash,iorder,kk)
endif endif
call map_get_many(mo_integrals_erf_map, hash, tmp_val, kk) call map_get_many(mo_integrals_erf_map, hash, tmp_val, kk)
@ -290,11 +290,11 @@ subroutine get_mo_two_e_integrals_erf_i1j1(k,l,sze,out_array,map)
logical :: integral_is_in_map logical :: integral_is_in_map
if (key_kind == 8) then if (key_kind == 8) then
call i8radix_sort(hash,iorder,kk,-1) call i8sort(hash,iorder,kk)
else if (key_kind == 4) then else if (key_kind == 4) then
call iradix_sort(hash,iorder,kk,-1) call isort(hash,iorder,kk)
else if (key_kind == 2) then else if (key_kind == 2) then
call i2radix_sort(hash,iorder,kk,-1) call i2sort(hash,iorder,kk)
endif endif
call map_get_many(mo_integrals_erf_map, hash, tmp_val, kk) call map_get_many(mo_integrals_erf_map, hash, tmp_val, kk)