diff --git a/krylov/psb_cfcg.F90 b/krylov/psb_cfcg.F90 index 0b380f8f..73b221d3 100644 --- a/krylov/psb_cfcg.F90 +++ b/krylov/psb_cfcg.F90 @@ -306,7 +306,7 @@ subroutine psb_cfcg_vect(a,prec,b,x,eps,desc_a,info,& call psb_end_conv(methdname,itx ,desc_a,stopdat,info,derr,iter) if (present(err)) err = derr - + return 9999 continue call psb_erractionrestore(err_act) if (err_act.eq.psb_act_abort_) then diff --git a/krylov/psb_dfcg.F90 b/krylov/psb_dfcg.F90 index 6c856b4c..990d70ec 100644 --- a/krylov/psb_dfcg.F90 +++ b/krylov/psb_dfcg.F90 @@ -306,7 +306,7 @@ subroutine psb_dfcg_vect(a,prec,b,x,eps,desc_a,info,& call psb_end_conv(methdname,itx ,desc_a,stopdat,info,derr,iter) if (present(err)) err = derr - + return 9999 continue call psb_erractionrestore(err_act) if (err_act.eq.psb_act_abort_) then diff --git a/krylov/psb_sfcg.F90 b/krylov/psb_sfcg.F90 index 9337f487..6c233f0e 100644 --- a/krylov/psb_sfcg.F90 +++ b/krylov/psb_sfcg.F90 @@ -306,7 +306,7 @@ subroutine psb_sfcg_vect(a,prec,b,x,eps,desc_a,info,& call psb_end_conv(methdname,itx ,desc_a,stopdat,info,derr,iter) if (present(err)) err = derr - + return 9999 continue call psb_erractionrestore(err_act) if (err_act.eq.psb_act_abort_) then diff --git a/krylov/psb_zfcg.F90 b/krylov/psb_zfcg.F90 index cf5854aa..14ecc985 100644 --- a/krylov/psb_zfcg.F90 +++ b/krylov/psb_zfcg.F90 @@ -306,7 +306,7 @@ subroutine psb_zfcg_vect(a,prec,b,x,eps,desc_a,info,& call psb_end_conv(methdname,itx ,desc_a,stopdat,info,derr,iter) if (present(err)) err = derr - + return 9999 continue call psb_erractionrestore(err_act) if (err_act.eq.psb_act_abort_) then