Fixed bug

1 year ago · 161dd21d20
parent e1e7aa58d2
commit 161dd21d20
4 changed files with 7 additions and 0 deletions
--- a/base/psblas/psb_cmlt_vect.f90
+++ b/base/psblas/psb_cmlt_vect.f90
@ -220,6 +220,8 @@ subroutine psb_cmlt_mltvec_va(x,a,v,desc,info)
  info=psb_success_
  call psb_erractionsave(err_act)

+  ctxt = desc%get_ctxt()
+
  call psb_info(ctxt, me, np)
  if (np == -ione) then
    info = psb_err_context_error_
--- a/base/psblas/psb_dmlt_vect.f90
+++ b/base/psblas/psb_dmlt_vect.f90
@ -221,6 +221,7 @@ subroutine psb_dmlt_mltvec_va(x,a,v,desc,info)
  call psb_erractionsave(err_act)

  ctxt = desc%get_ctxt()
+  
  call psb_info(ctxt, me, np)
  if (np == -ione) then
    info = psb_err_context_error_
--- a/base/psblas/psb_smlt_vect.f90
+++ b/base/psblas/psb_smlt_vect.f90
@ -220,6 +220,8 @@ subroutine psb_smlt_mltvec_va(x,a,v,desc,info)
  info=psb_success_
  call psb_erractionsave(err_act)

+  ctxt = desc%get_ctxt()
+
  call psb_info(ctxt, me, np)
  if (np == -ione) then
    info = psb_err_context_error_
--- a/base/psblas/psb_zmlt_vect.f90
+++ b/base/psblas/psb_zmlt_vect.f90
@ -220,6 +220,8 @@ subroutine psb_zmlt_mltvec_va(x,a,v,desc,info)
  info=psb_success_
  call psb_erractionsave(err_act)

+  ctxt = desc%get_ctxt()
+
  call psb_info(ctxt, me, np)
  if (np == -ione) then
    info = psb_err_context_error_