Merged bug fix for psb_cd_inloc

11 years ago · 0be3cdb6c3
parent 527e022aa7
commit 0be3cdb6c3
1 changed files with 1 additions and 1 deletions
--- 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