From e2605d5e487baeb4b2b88fd33e544c9f2069a3ab Mon Sep 17 00:00:00 2001
From: sfilippone <filippone.salvatore@gmail.com>
Date: Wed, 13 Nov 2024 17:47:49 +0100
Subject: [PATCH] Final fix for log_conv in rgmres

---
 linsolve/impl/psb_crgmres.f90 | 2 +-
 linsolve/impl/psb_drgmres.f90 | 2 +-
 linsolve/impl/psb_srgmres.f90 | 2 +-
 linsolve/impl/psb_zrgmres.f90 | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/linsolve/impl/psb_crgmres.f90 b/linsolve/impl/psb_crgmres.f90
index 84e407c1..918b63e9 100644
--- 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
diff --git a/linsolve/impl/psb_drgmres.f90 b/linsolve/impl/psb_drgmres.f90
index a49e1603..d0bce3ae 100644
--- 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
diff --git a/linsolve/impl/psb_srgmres.f90 b/linsolve/impl/psb_srgmres.f90
index dfd6f09a..1c622656 100644
--- 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
diff --git a/linsolve/impl/psb_zrgmres.f90 b/linsolve/impl/psb_zrgmres.f90
index 2ac22cea..1377d765 100644
--- 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