psblas3;

krylov/psb_ccgr.f90 krylov/psb_dcgr.f90 krylov/psb_scgr.f90 krylov/psb_zcgr.f90 Fix log printing.
9 years ago · 2cd77dd1bd
parent c83985fe16
commit 2cd77dd1bd
4 changed files with 8 additions and 8 deletions
--- a/krylov/psb_ccgr.f90
+++ b/krylov/psb_ccgr.f90
@ -269,7 +269,7 @@ subroutine psb_ccgr_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 (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
--- a/krylov/psb_dcgr.f90
+++ b/krylov/psb_dcgr.f90
@ -269,7 +269,7 @@ subroutine psb_dcgr_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 (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
--- a/krylov/psb_scgr.f90
+++ b/krylov/psb_scgr.f90
@ -269,7 +269,7 @@ subroutine psb_scgr_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 (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
--- a/krylov/psb_zcgr.f90
+++ b/krylov/psb_zcgr.f90
@ -269,7 +269,7 @@ subroutine psb_zcgr_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 (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