Change threshold for hash_srch from 8 to 6

1 year ago · 847e098d41
parent ec05012c35
commit 847e098d41
1 changed files with 2 additions and 2 deletions
--- a/base/modules/desc/psb_hash_map_mod.F90
+++ b/base/modules/desc/psb_hash_map_mod.F90
@ -1773,7 +1773,7 @@ contains
    integer(psb_ipk_) :: lb,ub,lm
    res = -1
    if (nh > 0) then
-      if (nh <= 8) then
+      if (nh <= 6) then
        !
        ! If the list is short, a sequential search is enough 
        !
@ -1815,7 +1815,7 @@ contains
    integer(psb_ipk_) :: lb,ub,lm
    res = -1
    if (nh > 0) then
-      if (nh <= 8) then
+      if (nh <= 6) then
        !
        ! If the list is short, a sequential search is enough 
        !