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

psblas3:

Browse Source 
krylov/psb_cfcg.F90
 krylov/psb_dfcg.F90
 krylov/psb_sfcg.F90
 krylov/psb_zfcg.F90

Fixed convergence check logging.
This commit is contained in:
Salvatore Filippone
2016-05-26 16:40:53 +00:00
parent 9b485ebdc1
commit 3dbd945ce3
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
krylov/psb_cfcg.F90
+2 -2
View File
@@ -250,9 +250,9 @@ subroutine psb_cfcg_vect(a,prec,b,x,eps,desc_a,info,&
!Loop
itx = 0
call psb_init_conv(methdname,istop_,itrace_,itmax_,a,b,eps,desc_a,stopdat,info)
if (psb_check_conv(methdname,itx ,x,w,desc_a,stopdat,info)) exit restart
if (info /= psb_success_) Then
call psb_errpush(psb_err_from_subroutine_non_,name)
goto 9999
krylov/psb_dfcg.F90
+2 -2
View File
@@ -250,9 +250,9 @@ subroutine psb_dfcg_vect(a,prec,b,x,eps,desc_a,info,&
!Loop
itx = 0
call psb_init_conv(methdname,istop_,itrace_,itmax_,a,b,eps,desc_a,stopdat,info)
if (psb_check_conv(methdname,itx ,x,w,desc_a,stopdat,info)) exit restart
if (info /= psb_success_) Then
call psb_errpush(psb_err_from_subroutine_non_,name)
goto 9999
krylov/psb_sfcg.F90
+2 -2
View File
@@ -250,9 +250,9 @@ subroutine psb_sfcg_vect(a,prec,b,x,eps,desc_a,info,&
!Loop
itx = 0
call psb_init_conv(methdname,istop_,itrace_,itmax_,a,b,eps,desc_a,stopdat,info)
if (psb_check_conv(methdname,itx ,x,w,desc_a,stopdat,info)) exit restart
if (info /= psb_success_) Then
call psb_errpush(psb_err_from_subroutine_non_,name)
goto 9999
krylov/psb_zfcg.F90
+2 -2
View File
@@ -250,9 +250,9 @@ subroutine psb_zfcg_vect(a,prec,b,x,eps,desc_a,info,&
!Loop
itx = 0
call psb_init_conv(methdname,istop_,itrace_,itmax_,a,b,eps,desc_a,stopdat,info)
if (psb_check_conv(methdname,itx ,x,w,desc_a,stopdat,info)) exit restart
if (info /= psb_success_) Then
call psb_errpush(psb_err_from_subroutine_non_,name)
goto 9999