From 4be6c50be9671d5a407fd2a282f1ac280af9f008 Mon Sep 17 00:00:00 2001 From: sfilippone Date: Sun, 13 Sep 2026 13:18:02 +0200 Subject: [PATCH] GLOB TRIU/TRIU return same format as input matrix A --- base/tools/psb_dglobtril.F90 | 3 ++- base/tools/psb_dglobtriu.F90 | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/base/tools/psb_dglobtril.F90 b/base/tools/psb_dglobtril.F90 index 89a3bd0ef..7521c8025 100644 --- a/base/tools/psb_dglobtril.F90 +++ b/base/tools/psb_dglobtril.F90 @@ -101,7 +101,8 @@ Subroutine psb_dglobtril(a,desc_a,b,info,diag,imin,imax,jmin,jmax) call ldcootril%set_nrows(lnr) call ldcootril%set_ncols(lnc) call ldcootril%fix(info) - call b%mv_from_lb(ldcootril) + call b%mv_from_lb(ldcootril) + call b%cscnv(info,mold=a%a) if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),': end' diff --git a/base/tools/psb_dglobtriu.F90 b/base/tools/psb_dglobtriu.F90 index 145cb56dd..58db7f431 100644 --- a/base/tools/psb_dglobtriu.F90 +++ b/base/tools/psb_dglobtriu.F90 @@ -100,7 +100,7 @@ Subroutine psb_dglobtriu(a,desc_a,b,info,diag,imin,imax,jmin,jmax) call ldcootriu%set_ncols(lnc) call ldcootriu%fix(info) call b%mv_from_lb(ldcootriu) - + call b%cscnv(info,mold=a%a) if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),': end'