From 1ca13b2a3c18da56e78a6760abdfebde1d20e1c0 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 18 Jul 2018 16:53:51 +0100 Subject: [PATCH] New FCG fixes. --- 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 d63c7cb8..0b380f8f 100644 --- a/krylov/psb_cfcg.F90 +++ b/krylov/psb_cfcg.F90 @@ -216,7 +216,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 @@ -230,7 +230,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 643b5052..6c856b4c 100644 --- a/krylov/psb_dfcg.F90 +++ b/krylov/psb_dfcg.F90 @@ -216,7 +216,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 @@ -230,7 +230,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 20a63ff4..9337f487 100644 --- a/krylov/psb_sfcg.F90 +++ b/krylov/psb_sfcg.F90 @@ -216,7 +216,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 @@ -230,7 +230,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 b99cf247..cf5854aa 100644 --- a/krylov/psb_zfcg.F90 +++ b/krylov/psb_zfcg.F90 @@ -216,7 +216,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 @@ -230,7 +230,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