From ce33f6b6ed779fff28eb23a50690153117b5526b Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 18 Jul 2018 17:05:54 +0100 Subject: [PATCH] Fixes for FCG. --- krylov/psb_cfcg.F90 | 4 ++-- krylov/psb_dfcg.F90 | 4 ++-- krylov/psb_sfcg.F90 | 4 ++-- krylov/psb_zfcg.F90 | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/krylov/psb_cfcg.F90 b/krylov/psb_cfcg.F90 index c042571b..1f2d895d 100644 --- a/krylov/psb_cfcg.F90 +++ b/krylov/psb_cfcg.F90 @@ -215,7 +215,7 @@ subroutine psb_cfcg_vect(a,prec,b,x,eps,desc_a,info,& if (info == psb_success_) call psb_spmm(-cone,a,x,cone,r,desc_a,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,& - & a_err='Error during residue') + & a_err='Error during residual') goto 9999 end if @@ -229,7 +229,7 @@ subroutine psb_cfcg_vect(a,prec,b,x,eps,desc_a,info,& if (info == psb_success_) call psb_spmm(cone,a,v,czero,w,desc_a,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,& - & a_err='Error during residue') + & a_err='Error during residual') goto 9999 end if diff --git a/krylov/psb_dfcg.F90 b/krylov/psb_dfcg.F90 index 90e5b116..bdb336d5 100644 --- a/krylov/psb_dfcg.F90 +++ b/krylov/psb_dfcg.F90 @@ -215,7 +215,7 @@ subroutine psb_dfcg_vect(a,prec,b,x,eps,desc_a,info,& if (info == psb_success_) call psb_spmm(-done,a,x,done,r,desc_a,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,& - & a_err='Error during residue') + & a_err='Error during residual') goto 9999 end if @@ -229,7 +229,7 @@ subroutine psb_dfcg_vect(a,prec,b,x,eps,desc_a,info,& if (info == psb_success_) call psb_spmm(done,a,v,dzero,w,desc_a,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,& - & a_err='Error during residue') + & a_err='Error during residual') goto 9999 end if diff --git a/krylov/psb_sfcg.F90 b/krylov/psb_sfcg.F90 index 1f074371..5b4e6957 100644 --- a/krylov/psb_sfcg.F90 +++ b/krylov/psb_sfcg.F90 @@ -215,7 +215,7 @@ subroutine psb_sfcg_vect(a,prec,b,x,eps,desc_a,info,& if (info == psb_success_) call psb_spmm(-sone,a,x,sone,r,desc_a,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,& - & a_err='Error during residue') + & a_err='Error during residual') goto 9999 end if @@ -229,7 +229,7 @@ subroutine psb_sfcg_vect(a,prec,b,x,eps,desc_a,info,& if (info == psb_success_) call psb_spmm(sone,a,v,szero,w,desc_a,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,& - & a_err='Error during residue') + & a_err='Error during residual') goto 9999 end if diff --git a/krylov/psb_zfcg.F90 b/krylov/psb_zfcg.F90 index 1e180685..cb9289bd 100644 --- a/krylov/psb_zfcg.F90 +++ b/krylov/psb_zfcg.F90 @@ -215,7 +215,7 @@ subroutine psb_zfcg_vect(a,prec,b,x,eps,desc_a,info,& if (info == psb_success_) call psb_spmm(-zone,a,x,zone,r,desc_a,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,& - & a_err='Error during residue') + & a_err='Error during residual') goto 9999 end if @@ -229,7 +229,7 @@ subroutine psb_zfcg_vect(a,prec,b,x,eps,desc_a,info,& if (info == psb_success_) call psb_spmm(zone,a,v,zzero,w,desc_a,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,& - & a_err='Error during residue') + & a_err='Error during residual') goto 9999 end if