diff --git a/base/tools/psb_cd_inloc.f90 b/base/tools/psb_cd_inloc.f90
index f8d609c4..e8b9578e 100644
--- a/base/tools/psb_cd_inloc.f90
+++ b/base/tools/psb_cd_inloc.f90
@@ -275,6 +275,8 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash)
 
     if (debug_size) &
          & write(debug_unit,*) me,' ',trim(name),': After sort ',nlu
+  else
+    nlu = loc_row
   end if
   call psb_nullify_desc(desc)
   if (do_timings) then