fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 21:02:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix interface to log_end

Browse Source
This commit is contained in:
Salvatore Filippone
2019-02-07 09:12:14 +00:00
parent 5d476495fe
commit 86ba1625b0
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
krylov/psb_crgmres.f90
+1 -1
View File
@@ -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
krylov/psb_drgmres.f90
+1 -1
View File
@@ -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
krylov/psb_srgmres.f90
+1 -1
View File
@@ -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
krylov/psb_zrgmres.f90
+1 -1
View File
@@ -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