Final fix for log_conv in rgmres

2 months ago · e2605d5e48
parent 0ed2c105ac
commit e2605d5e48
4 changed files with 4 additions and 4 deletions
--- a/linsolve/impl/psb_crgmres.f90
+++ b/linsolve/impl/psb_crgmres.f90
@ -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
--- a/linsolve/impl/psb_drgmres.f90
+++ b/linsolve/impl/psb_drgmres.f90
@ -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
--- a/linsolve/impl/psb_srgmres.f90
+++ b/linsolve/impl/psb_srgmres.f90
@ -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
--- a/linsolve/impl/psb_zrgmres.f90
+++ b/linsolve/impl/psb_zrgmres.f90
@ -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