diff --git a/krylov/psb_cgcr.f90 b/krylov/psb_cgcr.f90
index 3bcaa9d3..76dba4d6 100644
--- a/krylov/psb_cgcr.f90
+++ b/krylov/psb_cgcr.f90
@@ -269,12 +269,8 @@ subroutine psb_cgcr_vect(a,prec,b,x,eps,desc_a,info,&
       goto 9999
     end if
     
-    call psb_init_conv(methdname,istop_,itrace_,itmax_,a,b,eps,desc_a,stopdat,info)
-    ! if (info /= psb_success_) Then 
-    !   call psb_errpush(psb_err_from_subroutine_non_,name)
-    !   goto 9999
-    ! End If
-    
+    if (psb_check_conv(methdname,itx,x,r,desc_a,stopdat,info)) exit restart
+        
     nrst = nrst + 1 
     
     iteration: do 
diff --git a/krylov/psb_dgcr.f90 b/krylov/psb_dgcr.f90
index b463b85d..4a6c0e19 100644
--- a/krylov/psb_dgcr.f90
+++ b/krylov/psb_dgcr.f90
@@ -269,12 +269,8 @@ subroutine psb_dgcr_vect(a,prec,b,x,eps,desc_a,info,&
       goto 9999
     end if
     
-    call psb_init_conv(methdname,istop_,itrace_,itmax_,a,b,eps,desc_a,stopdat,info)
-    ! if (info /= psb_success_) Then 
-    !   call psb_errpush(psb_err_from_subroutine_non_,name)
-    !   goto 9999
-    ! End If
-    
+    if (psb_check_conv(methdname,itx,x,r,desc_a,stopdat,info)) exit restart
+        
     nrst = nrst + 1 
     
     iteration: do 
diff --git a/krylov/psb_sgcr.f90 b/krylov/psb_sgcr.f90
index 5d92553f..d1a7ec9c 100644
--- a/krylov/psb_sgcr.f90
+++ b/krylov/psb_sgcr.f90
@@ -269,12 +269,8 @@ subroutine psb_sgcr_vect(a,prec,b,x,eps,desc_a,info,&
       goto 9999
     end if
     
-    call psb_init_conv(methdname,istop_,itrace_,itmax_,a,b,eps,desc_a,stopdat,info)
-    ! if (info /= psb_success_) Then 
-    !   call psb_errpush(psb_err_from_subroutine_non_,name)
-    !   goto 9999
-    ! End If
-    
+    if (psb_check_conv(methdname,itx,x,r,desc_a,stopdat,info)) exit restart
+        
     nrst = nrst + 1 
     
     iteration: do 
diff --git a/krylov/psb_zgcr.f90 b/krylov/psb_zgcr.f90
index 88688270..a19a7b4f 100644
--- a/krylov/psb_zgcr.f90
+++ b/krylov/psb_zgcr.f90
@@ -269,12 +269,8 @@ subroutine psb_zgcr_vect(a,prec,b,x,eps,desc_a,info,&
       goto 9999
     end if
     
-    call psb_init_conv(methdname,istop_,itrace_,itmax_,a,b,eps,desc_a,stopdat,info)
-    ! if (info /= psb_success_) Then 
-    !   call psb_errpush(psb_err_from_subroutine_non_,name)
-    !   goto 9999
-    ! End If
-    
+    if (psb_check_conv(methdname,itx,x,r,desc_a,stopdat,info)) exit restart
+        
     nrst = nrst + 1 
     
     iteration: do