Fix stupid off-by-one bug.

18 years ago · f929803172
parent f6655e698d
commit f929803172
2 changed files with 4 additions and 4 deletions
--- 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_)
--- 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_)