Fix return statemtn in FCG

6 years ago · 21aaf5cc62
parent 22d76d1e48
commit 21aaf5cc62
4 changed files with 4 additions and 4 deletions
--- 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
--- 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
--- 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
--- 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