diff --git a/krylov/psb_ckrylovsubspace_mod.F90 b/krylov/psb_ckrylovsubspace_mod.F90
index dd50b1ae..2bbad37f 100644
--- a/krylov/psb_ckrylovsubspace_mod.F90
+++ b/krylov/psb_ckrylovsubspace_mod.F90
@@ -263,7 +263,7 @@ contains
       end if
       i = i1
     end do
-    kryl%k = i + 1
+    kryl%k = i
 
     call psb_erractionrestore(err_act)
     return
diff --git a/krylov/psb_dkrylovsubspace_mod.F90 b/krylov/psb_dkrylovsubspace_mod.F90
index 50b4c418..a080aafb 100644
--- a/krylov/psb_dkrylovsubspace_mod.F90
+++ b/krylov/psb_dkrylovsubspace_mod.F90
@@ -263,7 +263,7 @@ contains
       end if
       i = i1
     end do
-    kryl%k = i + 1
+    kryl%k = i
 
     call psb_erractionrestore(err_act)
     return
diff --git a/krylov/psb_skrylovsubspace_mod.F90 b/krylov/psb_skrylovsubspace_mod.F90
index 25314284..4d1e4aa0 100644
--- a/krylov/psb_skrylovsubspace_mod.F90
+++ b/krylov/psb_skrylovsubspace_mod.F90
@@ -263,7 +263,7 @@ contains
       end if
       i = i1
     end do
-    kryl%k = i + 1
+    kryl%k = i
 
     call psb_erractionrestore(err_act)
     return
diff --git a/krylov/psb_zkrylovsubspace_mod.F90 b/krylov/psb_zkrylovsubspace_mod.F90
index bba262a7..54918a5d 100644
--- a/krylov/psb_zkrylovsubspace_mod.F90
+++ b/krylov/psb_zkrylovsubspace_mod.F90
@@ -263,7 +263,7 @@ contains
       end if
       i = i1
     end do
-    kryl%k = i + 1
+    kryl%k = i
 
     call psb_erractionrestore(err_act)
     return