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_)