From 0be3cdb6c361aa7b570230bcf9b2254f44cc4aa6 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 4 Oct 2013 13:50:50 +0000 Subject: [PATCH] Merged bug fix for psb_cd_inloc --- 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