From e0a941dac5a6d3aa1faa4153c33cba8cd6a2d873 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 4 Oct 2013 13:49:36 +0000
Subject: [PATCH] psblas3:  base/tools/psb_cd_inloc.f90

 Silly bug on present(idx)
---
 base/tools/psb_cd_inloc.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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