fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 19:02:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/tools/psb_cd_inloc.f90

 Silly bug on present(idx)
This commit is contained in:
Salvatore Filippone
2013-10-04 13:49:36 +00:00
parent 9b8e3309df
commit e0a941dac5
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_cd_inloc.f90
+1 -1
View File
@@ -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