fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix stupid off-by-one bug.

Browse Source
This commit is contained in:
Salvatore Filippone
2006-11-10 13:34:27 +00:00
parent f6655e698d
commit f929803172
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/comm/psb_dovrl.f90
+2 -2
View File
@@ -172,7 +172,7 @@ subroutine psb_dovrlm(x,desc_a,info,jx,ik,work,update)
goto 9999
end if
i=0
i=1
! switch on update type
select case (iupdate)
case(psb_square_root_)
@@ -375,7 +375,7 @@ subroutine psb_dovrlv(x,desc_a,info,work,update)
goto 9999
end if
i=0
i=1
! switch on update type
select case (iupdate)
case(psb_square_root_)
src/comm/psb_zovrl.f90
+2 -2
View File
@@ -172,7 +172,7 @@ subroutine psb_zovrlm(x,desc_a,info,jx,ik,work,update)
goto 9999
end if
i=0
i=1
! switch on update type
select case (iupdate)
case(psb_square_root_)
@@ -376,7 +376,7 @@ subroutine psb_zovrlv(x,desc_a,info,work,update)
goto 9999
end if
i=0
i=1
! switch on update type
select case (iupdate)
case(psb_square_root_)