fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 20:32:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3;

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

Fix log printing.
This commit is contained in:
Salvatore Filippone
2016-05-24 09:22:25 +00:00
parent c83985fe16
commit 2cd77dd1bd
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
krylov/psb_ccgr.f90
+2 -2
View File
@@ -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
+2 -2
View File
@@ -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
+2 -2
View File
@@ -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
+2 -2
View File
@@ -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