Change threshold for hash_srch from 8 to 6

fix-hash
Salvatore Filippone 1 year ago
parent ec05012c35
commit 847e098d41

@ -1773,7 +1773,7 @@ contains
integer(psb_ipk_) :: lb,ub,lm integer(psb_ipk_) :: lb,ub,lm
res = -1 res = -1
if (nh > 0) then if (nh > 0) then
if (nh <= 8) then if (nh <= 6) then
! !
! If the list is short, a sequential search is enough ! If the list is short, a sequential search is enough
! !
@ -1815,7 +1815,7 @@ contains
integer(psb_ipk_) :: lb,ub,lm integer(psb_ipk_) :: lb,ub,lm
res = -1 res = -1
if (nh > 0) then if (nh > 0) then
if (nh <= 8) then if (nh <= 6) then
! !
! If the list is short, a sequential search is enough ! If the list is short, a sequential search is enough
! !

Loading…
Cancel
Save