psblas3:

base/tools/psb_cd_inloc.f90 Silly bug on present(idx)
12 years ago · e0a941dac5
parent 9b8e3309df
commit e0a941dac5
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