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

psblas3:

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

Fix info printing.
This commit is contained in:
Salvatore Filippone
2016-05-31 17:26:11 +00:00
parent 58059aaa9f
commit af7029c024
4 changed files with 8 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
krylov/psb_cgcr.f90
+2 -6
View File
@@ -269,12 +269,8 @@ 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 (info /= psb_success_) Then
! call psb_errpush(psb_err_from_subroutine_non_,name)
! goto 9999
! End If
if (psb_check_conv(methdname,itx,x,r,desc_a,stopdat,info)) exit restart
nrst = nrst + 1
iteration: do
krylov/psb_dgcr.f90
+2 -6
View File
@@ -269,12 +269,8 @@ 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 (info /= psb_success_) Then
! call psb_errpush(psb_err_from_subroutine_non_,name)
! goto 9999
! End If
if (psb_check_conv(methdname,itx,x,r,desc_a,stopdat,info)) exit restart
nrst = nrst + 1
iteration: do
krylov/psb_sgcr.f90
+2 -6
View File
@@ -269,12 +269,8 @@ 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 (info /= psb_success_) Then
! call psb_errpush(psb_err_from_subroutine_non_,name)
! goto 9999
! End If
if (psb_check_conv(methdname,itx,x,r,desc_a,stopdat,info)) exit restart
nrst = nrst + 1
iteration: do
krylov/psb_zgcr.f90
+2 -6
View File
@@ -269,12 +269,8 @@ 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 (info /= psb_success_) Then
! call psb_errpush(psb_err_from_subroutine_non_,name)
! goto 9999
! End If
if (psb_check_conv(methdname,itx,x,r,desc_a,stopdat,info)) exit restart
nrst = nrst + 1
iteration: do