diff --git a/base/tools/psb_cd_inloc.f90 b/base/tools/psb_cd_inloc.f90
index e0186ce6..7bfe1819 100644
--- a/base/tools/psb_cd_inloc.f90
+++ b/base/tools/psb_cd_inloc.f90
@@ -235,7 +235,7 @@ subroutine psb_cd_inloc(v, ictxt, desc, info, globalcheck,idx)
       end do
     end if
   end if
-  if (idx(1) == -1) then 
+  if (ix(1) == -1) then 
     do i=1, loc_row
       ix(i) = i 
     end do