psblas3:

krylov/psb_cgcr.f90
 krylov/psb_dgcr.f90
 krylov/psb_sgcr.f90
 krylov/psb_zgcr.f90

Fix info printing.

krylov/psb_cgcr.f90

@@ -269,11 +269,7 @@ 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 (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
-    ! End If
         
     nrst = nrst + 1 
     

krylov/psb_dgcr.f90

@@ -269,11 +269,7 @@ 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 (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
-    ! End If
         
     nrst = nrst + 1 
     

krylov/psb_sgcr.f90

@@ -269,11 +269,7 @@ 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 (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
-    ! End If
         
     nrst = nrst + 1 
     

krylov/psb_zgcr.f90

@@ -269,11 +269,7 @@ 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 (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
-    ! End If
         
     nrst = nrst + 1