Roll back unsafe change

1 year ago · e677d27418
parent aab29a4c55
commit e677d27418
1 changed files with 23 additions and 23 deletions
--- a/base/modules/desc/psb_hash_map_mod.F90
+++ b/base/modules/desc/psb_hash_map_mod.F90
@ -1115,12 +1115,13 @@ contains
                cycle
              endif
              ncol = idxmap%get_lc()
+              nxt  = ncol + 1 
              call hash_inner_cnv(ip,lip,idxmap%hashvmask,idxmap%hashv,&
                   & idxmap%glb_lc,ncol)
              if (lip < 0) then
-                nxt  = ncol + 1 
                call psb_hash_searchinskey(ip,tlip,nxt,idxmap%hash,info)
                lip = tlip
+              end if

              if (info >=0) then 
                if (nxt == lip) then 
@ -1145,7 +1146,6 @@ contains
              end if
              idx(i) = lip
              info = psb_success_
-              end if
            else
              idx(i) = -1
            end if