Fix interface to log_end

6 years ago · 86ba1625b0
parent 5d476495fe
commit 86ba1625b0
4 changed files with 4 additions and 4 deletions
--- a/krylov/psb_crgmres.f90
+++ b/krylov/psb_crgmres.f90
@ -476,7 +476,7 @@ subroutine psb_crgmres_vect(a,prec,b,x,eps,desc_a,info,&
  if (itrace_ > 0) &
       & call log_conv(methdname,me,itx,ione,errnum,errden,deps)
-  call log_end(methdname,me,itx,errnum,errden,deps,err=derr,iter=iter)
+  call log_end(methdname,me,itx,itrace_,errnum,errden,deps,err=derr,iter=iter)
  if (present(err)) err = derr
--- a/krylov/psb_drgmres.f90
+++ b/krylov/psb_drgmres.f90
@ -476,7 +476,7 @@ subroutine psb_drgmres_vect(a,prec,b,x,eps,desc_a,info,&
  if (itrace_ > 0) &
       & call log_conv(methdname,me,itx,ione,errnum,errden,deps)
-  call log_end(methdname,me,itx,errnum,errden,deps,err=derr,iter=iter)
+  call log_end(methdname,me,itx,itrace_,errnum,errden,deps,err=derr,iter=iter)
  if (present(err)) err = derr
--- a/krylov/psb_srgmres.f90
+++ b/krylov/psb_srgmres.f90
@ -476,7 +476,7 @@ subroutine psb_srgmres_vect(a,prec,b,x,eps,desc_a,info,&
  if (itrace_ > 0) &
       & call log_conv(methdname,me,itx,ione,errnum,errden,deps)
-  call log_end(methdname,me,itx,errnum,errden,deps,err=derr,iter=iter)
+  call log_end(methdname,me,itx,itrace_,errnum,errden,deps,err=derr,iter=iter)
  if (present(err)) err = derr
--- a/krylov/psb_zrgmres.f90
+++ b/krylov/psb_zrgmres.f90
@ -476,7 +476,7 @@ subroutine psb_zrgmres_vect(a,prec,b,x,eps,desc_a,info,&
  if (itrace_ > 0) &
       & call log_conv(methdname,me,itx,ione,errnum,errden,deps)
-  call log_end(methdname,me,itx,errnum,errden,deps,err=derr,iter=iter)
+  call log_end(methdname,me,itx,itrace_,errnum,errden,deps,err=derr,iter=iter)
  if (present(err)) err = derr