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

Final fix for log_conv in rgmres

Browse Source
This commit is contained in:
sfilippone
2024-11-13 17:47:49 +01:00
parent 0ed2c105ac
commit e2605d5e48
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
linsolve/impl/psb_crgmres.f90
+1 -1
View File
@@ -472,7 +472,7 @@ subroutine psb_crgmres_vect(a,prec,b,x,eps,desc_a,info,&
call psb_geaxpby(cone,w,cone,x,desc_a,info)
end if
if (itx >= litmax) then
if ((itx >= litmax).and.(itrace_ > 0)) then
if (mod(itx,itrace_)/=0) &
& call log_conv(methdname,me,itx,ione,errnum,errden,deps)
exit restart
linsolve/impl/psb_drgmres.f90
+1 -1
View File
@@ -472,7 +472,7 @@ subroutine psb_drgmres_vect(a,prec,b,x,eps,desc_a,info,&
call psb_geaxpby(done,w,done,x,desc_a,info)
end if
if (itx >= litmax) then
if ((itx >= litmax).and.(itrace_ > 0)) then
if (mod(itx,itrace_)/=0) &
& call log_conv(methdname,me,itx,ione,errnum,errden,deps)
exit restart
linsolve/impl/psb_srgmres.f90
+1 -1
View File
@@ -472,7 +472,7 @@ subroutine psb_srgmres_vect(a,prec,b,x,eps,desc_a,info,&
call psb_geaxpby(sone,w,sone,x,desc_a,info)
end if
if (itx >= litmax) then
if ((itx >= litmax).and.(itrace_ > 0)) then
if (mod(itx,itrace_)/=0) &
& call log_conv(methdname,me,itx,ione,errnum,errden,deps)
exit restart
linsolve/impl/psb_zrgmres.f90
+1 -1
View File
@@ -472,7 +472,7 @@ subroutine psb_zrgmres_vect(a,prec,b,x,eps,desc_a,info,&
call psb_geaxpby(zone,w,zone,x,desc_a,info)
end if
if (itx >= litmax) then
if ((itx >= litmax).and.(itrace_ > 0)) then
if (mod(itx,itrace_)/=0) &
& call log_conv(methdname,me,itx,ione,errnum,errden,deps)
exit restart