Fix RGMRES log_conv

openacc
sfilippone 3 months ago
parent 29f72195ef
commit 0ed2c105ac

@ -472,6 +472,12 @@ 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 (mod(itx,itrace_)/=0) &
& call log_conv(methdname,me,itx,ione,errnum,errden,deps)
exit restart
end if
end do restart
call log_end(methdname,me,itx,itrace_,errnum,errden,deps,err=derr,iter=iter)

@ -472,6 +472,12 @@ 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 (mod(itx,itrace_)/=0) &
& call log_conv(methdname,me,itx,ione,errnum,errden,deps)
exit restart
end if
end do restart
call log_end(methdname,me,itx,itrace_,errnum,errden,deps,err=derr,iter=iter)

@ -472,6 +472,12 @@ 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 (mod(itx,itrace_)/=0) &
& call log_conv(methdname,me,itx,ione,errnum,errden,deps)
exit restart
end if
end do restart
call log_end(methdname,me,itx,itrace_,errnum,errden,deps,err=derr,iter=iter)

@ -472,6 +472,12 @@ 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 (mod(itx,itrace_)/=0) &
& call log_conv(methdname,me,itx,ione,errnum,errden,deps)
exit restart
end if
end do restart
call log_end(methdname,me,itx,itrace_,errnum,errden,deps,err=derr,iter=iter)

Loading…
Cancel
Save