From 161dd21d2064f18466eb5fc66987ca163cad9355 Mon Sep 17 00:00:00 2001 From: gabrielequatrana Date: Wed, 17 Jan 2024 12:24:36 +0100 Subject: [PATCH] Fixed bug --- base/psblas/psb_cmlt_vect.f90 | 2 ++ base/psblas/psb_dmlt_vect.f90 | 1 + base/psblas/psb_smlt_vect.f90 | 2 ++ base/psblas/psb_zmlt_vect.f90 | 2 ++ 4 files changed, 7 insertions(+) diff --git a/base/psblas/psb_cmlt_vect.f90 b/base/psblas/psb_cmlt_vect.f90 index a972f3fd..b2ff36d3 100644 --- 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_ diff --git a/base/psblas/psb_dmlt_vect.f90 b/base/psblas/psb_dmlt_vect.f90 index 4006a7d8..ec125b2f 100644 --- 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_ diff --git a/base/psblas/psb_smlt_vect.f90 b/base/psblas/psb_smlt_vect.f90 index ae71c816..428290bc 100644 --- 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_ diff --git a/base/psblas/psb_zmlt_vect.f90 b/base/psblas/psb_zmlt_vect.f90 index 743f0a02..4573568c 100644 --- 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_