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

psblas3-type-indexed
Salvatore Filippone 17 years ago
parent f14d9d0598
commit 855feaae46

@ -715,8 +715,8 @@ contains
psb_d_check_conv = (psb_d_check_conv.or.(stopdat%controls(itmax_) <= it)) 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))& if ( (stopdat%controls(trace_) > 0).and.&
& .or.psb_d_check_conv) then & ((mod(it,stopdat%controls(trace_))==0).or.psb_d_check_conv)) then
call log_conv(methdname,me,it,1,stopdat%values(errnum_),& call log_conv(methdname,me,it,1,stopdat%values(errnum_),&
& stopdat%values(errden_),stopdat%values(eps_)) & stopdat%values(errden_),stopdat%values(eps_))
end if end if
@ -788,8 +788,8 @@ contains
psb_z_check_conv = (psb_z_check_conv.or.(stopdat%controls(itmax_) <= it)) 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))& if ( (stopdat%controls(trace_) > 0).and.&
& .or.psb_z_check_conv) then & ((mod(it,stopdat%controls(trace_))==0).or.psb_z_check_conv)) then
call log_conv(methdname,me,it,1,stopdat%values(errnum_),& call log_conv(methdname,me,it,1,stopdat%values(errnum_),&
& stopdat%values(errden_),stopdat%values(eps_)) & stopdat%values(errden_),stopdat%values(eps_))
end if end if

Loading…
Cancel
Save