From f929803172de7ae07264c3693ad49841ea180b58 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 10 Nov 2006 13:34:27 +0000 Subject: [PATCH] Fix stupid off-by-one bug. --- src/comm/psb_dovrl.f90 | 4 ++-- src/comm/psb_zovrl.f90 | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/comm/psb_dovrl.f90 b/src/comm/psb_dovrl.f90 index 45873e7d..3737f229 100644 --- a/src/comm/psb_dovrl.f90 +++ b/src/comm/psb_dovrl.f90 @@ -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_) diff --git a/src/comm/psb_zovrl.f90 b/src/comm/psb_zovrl.f90 index cac53e5f..887ee4e5 100644 --- a/src/comm/psb_zovrl.f90 +++ b/src/comm/psb_zovrl.f90 @@ -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_)