psblas3;

krylov/psb_ccgr.f90
 krylov/psb_dcgr.f90
 krylov/psb_scgr.f90
 krylov/psb_zcgr.f90

Fix log printing.

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

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

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

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