From 7d150e2eca2eea0cfabea3757eb3cfa4f7b453d8 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sun, 6 Feb 2022 18:34:43 +0100 Subject: [PATCH] Fix assembly procedure for remote build --- base/tools/psb_cspasb.f90 | 1 + base/tools/psb_dspasb.f90 | 1 + base/tools/psb_sspasb.f90 | 1 + base/tools/psb_zspasb.f90 | 1 + 4 files changed, 4 insertions(+) diff --git a/base/tools/psb_cspasb.f90 b/base/tools/psb_cspasb.f90 index 99c8990e..6cec5fa7 100644 --- a/base/tools/psb_cspasb.f90 +++ b/base/tools/psb_cspasb.f90 @@ -139,6 +139,7 @@ subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl, mold) end block end select + call a%set_ncols(desc_a%get_local_cols()) call a%cscnv(info,type=afmt,dupl=dupl, mold=mold) else if (a%is_upd()) then diff --git a/base/tools/psb_dspasb.f90 b/base/tools/psb_dspasb.f90 index c9d3cd08..422a8661 100644 --- a/base/tools/psb_dspasb.f90 +++ b/base/tools/psb_dspasb.f90 @@ -139,6 +139,7 @@ subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl, mold) end block end select + call a%set_ncols(desc_a%get_local_cols()) call a%cscnv(info,type=afmt,dupl=dupl, mold=mold) else if (a%is_upd()) then diff --git a/base/tools/psb_sspasb.f90 b/base/tools/psb_sspasb.f90 index 9249c59c..d6de2136 100644 --- a/base/tools/psb_sspasb.f90 +++ b/base/tools/psb_sspasb.f90 @@ -139,6 +139,7 @@ subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl, mold) end block end select + call a%set_ncols(desc_a%get_local_cols()) call a%cscnv(info,type=afmt,dupl=dupl, mold=mold) else if (a%is_upd()) then diff --git a/base/tools/psb_zspasb.f90 b/base/tools/psb_zspasb.f90 index d92daa2c..b343426d 100644 --- a/base/tools/psb_zspasb.f90 +++ b/base/tools/psb_zspasb.f90 @@ -139,6 +139,7 @@ subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl, mold) end block end select + call a%set_ncols(desc_a%get_local_cols()) call a%cscnv(info,type=afmt,dupl=dupl, mold=mold) else if (a%is_upd()) then