Fixed index

4 years ago · be38c25c04
parent cb62263f4d
commit be38c25c04
4 changed files with 4 additions and 4 deletions
--- 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
--- 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
--- 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
--- 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