Roll back unsafe change

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