psblas3:

psb_gen_block_map_mod.f90

Handle return from hash_searchinskey.

base/modules/psb_gen_block_map_mod.f90

@@ -480,7 +480,7 @@ contains
               nxt = nv + 1 
               ip = idx(i) 
               call psb_hash_searchinskey(ip,lip,nxt,idxmap%hash,info)
-              
+              if (info >= 0) then 
                 if (lip == nxt) then 
                   ! We have added one item
                   call psb_ensure_size(nxt,idxmap%loc_to_glob,info,addsz=500)
@@ -491,6 +491,11 @@ contains
                   idxmap%local_cols       = nxt + idxmap%local_rows
                   idxmap%loc_to_glob(nxt) = idx(i)
                 end if
+                info = psb_success_
+              else
+                info = -5
+                return
+              end if
               idx(i)  = lip + idxmap%local_rows
             else 
               idx(i) = -1
@@ -511,6 +516,7 @@ contains
             ip = idx(i) 
             call psb_hash_searchinskey(ip,lip,nxt,idxmap%hash,info)
 
+            if (info >= 0) then 
               if (lip == nxt) then 
                 ! We have added one item
                 call psb_ensure_size(nxt,idxmap%loc_to_glob,info,addsz=500)
@@ -521,6 +527,11 @@ contains
                 idxmap%local_cols       = nxt + idxmap%local_rows
                 idxmap%loc_to_glob(nxt) = idx(i)
               end if
+              info = psb_success_
+            else
+              info = -5
+              return
+            end if
             idx(i)  = lip + idxmap%local_rows
           else 
             idx(i) = -1