diff --git a/krylov/psb_ccgr.f90 b/krylov/psb_ccgr.f90 index 9a5531c8..41a5e917 100644 --- a/krylov/psb_ccgr.f90 +++ b/krylov/psb_ccgr.f90 @@ -268,8 +268,8 @@ subroutine psb_ccgr_vect(a,prec,b,x,eps,desc_a,info,& call psb_errpush(info,name) goto 9999 end if - - call psb_init_conv(methdname,istop_,itrace_,itmax_,a,b,eps,desc_a,stopdat,info) + + if (psb_check_conv(methdname,itx,x,r,desc_a,stopdat,info)) exit restart ! if (info /= psb_success_) Then ! call psb_errpush(psb_err_from_subroutine_non_,name) ! goto 9999 diff --git a/krylov/psb_dcgr.f90 b/krylov/psb_dcgr.f90 index 3b60685f..092030d5 100644 --- a/krylov/psb_dcgr.f90 +++ b/krylov/psb_dcgr.f90 @@ -268,8 +268,8 @@ subroutine psb_dcgr_vect(a,prec,b,x,eps,desc_a,info,& call psb_errpush(info,name) goto 9999 end if - - call psb_init_conv(methdname,istop_,itrace_,itmax_,a,b,eps,desc_a,stopdat,info) + + if (psb_check_conv(methdname,itx,x,r,desc_a,stopdat,info)) exit restart ! if (info /= psb_success_) Then ! call psb_errpush(psb_err_from_subroutine_non_,name) ! goto 9999 diff --git a/krylov/psb_scgr.f90 b/krylov/psb_scgr.f90 index 5887b332..6a34b61e 100644 --- a/krylov/psb_scgr.f90 +++ b/krylov/psb_scgr.f90 @@ -268,8 +268,8 @@ subroutine psb_scgr_vect(a,prec,b,x,eps,desc_a,info,& call psb_errpush(info,name) goto 9999 end if - - call psb_init_conv(methdname,istop_,itrace_,itmax_,a,b,eps,desc_a,stopdat,info) + + if (psb_check_conv(methdname,itx,x,r,desc_a,stopdat,info)) exit restart ! if (info /= psb_success_) Then ! call psb_errpush(psb_err_from_subroutine_non_,name) ! goto 9999 diff --git a/krylov/psb_zcgr.f90 b/krylov/psb_zcgr.f90 index 7d0f60ce..ef61a885 100644 --- a/krylov/psb_zcgr.f90 +++ b/krylov/psb_zcgr.f90 @@ -268,8 +268,8 @@ subroutine psb_zcgr_vect(a,prec,b,x,eps,desc_a,info,& call psb_errpush(info,name) goto 9999 end if - - call psb_init_conv(methdname,istop_,itrace_,itmax_,a,b,eps,desc_a,stopdat,info) + + if (psb_check_conv(methdname,itx,x,r,desc_a,stopdat,info)) exit restart ! if (info /= psb_success_) Then ! call psb_errpush(psb_err_from_subroutine_non_,name) ! goto 9999