fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-15 18:39:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

Define a parameter for sequential search limit in hash_map

Browse Source
This commit is contained in:
Salvatore Filippone
2025-03-29 13:55:17 +01:00
parent 847e098d41
commit 61806ae22b
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/desc/psb_hash_map_mod.F90
+3 -2
View File
@@ -118,6 +118,7 @@ module psb_hash_map_mod
module procedure hash_srch_ipk, hash_srch_lpk
end interface hash_srch
private :: hash_srch
integer, parameter, private :: seqsrchmax=6
contains
@@ -1773,7 +1774,7 @@ contains
integer(psb_ipk_) :: lb,ub,lm
res = -1
if (nh > 0) then
if (nh <= 6) then
if (nh <= seqsrchmax) then
!
! If the list is short, a sequential search is enough
!
@@ -1815,7 +1816,7 @@ contains
integer(psb_ipk_) :: lb,ub,lm
res = -1
if (nh > 0) then
if (nh <= 6) then
if (nh <= seqsrchmax) then
!
! If the list is short, a sequential search is enough
!