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

Fixed stupid bug in condition for printing upon exit from the iterations...

Browse Source
This commit is contained in:
Salvatore Filippone
2008-01-23 16:28:24 +00:00
parent f14d9d0598
commit 855feaae46
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
krylov/psb_krylov_mod.f90
+4 -4
View File
@@ -715,8 +715,8 @@ contains
psb_d_check_conv = (psb_d_check_conv.or.(stopdat%controls(itmax_) <= it))
if (((stopdat%controls(trace_) > 0).and.(mod(it,stopdat%controls(trace_))==0))&
& .or.psb_d_check_conv) then
if ( (stopdat%controls(trace_) > 0).and.&
& ((mod(it,stopdat%controls(trace_))==0).or.psb_d_check_conv)) then
call log_conv(methdname,me,it,1,stopdat%values(errnum_),&
& stopdat%values(errden_),stopdat%values(eps_))
end if
@@ -788,8 +788,8 @@ contains
psb_z_check_conv = (psb_z_check_conv.or.(stopdat%controls(itmax_) <= it))
if (((stopdat%controls(trace_) > 0).and.(mod(it,stopdat%controls(trace_))==0))&
& .or.psb_z_check_conv) then
if ( (stopdat%controls(trace_) > 0).and.&
& ((mod(it,stopdat%controls(trace_))==0).or.psb_z_check_conv)) then
call log_conv(methdname,me,it,1,stopdat%values(errnum_),&
& stopdat%values(errden_),stopdat%values(eps_))
end if