From 784c3cc0b45c137230ee6f2ec4ca4e3ccb18d909 Mon Sep 17 00:00:00 2001 From: Stack-1 Date: Fri, 5 Jun 2026 12:45:00 +0200 Subject: [PATCH] Drop stale work argument from psb_d_nest_spsm The nested layer was imported from an older base where the vector psb_spsm still took a work buffer. communication_v2 removed work from the psb_x_vect_type routines, so psb_dspsv_vect has no work argument and the call failed generic resolution. Remove work from psb_d_nest_spsm (signature, declaration, call). --- base/modules/psblas/psb_d_nest_psblas_mod.f90 | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/base/modules/psblas/psb_d_nest_psblas_mod.f90 b/base/modules/psblas/psb_d_nest_psblas_mod.f90 index 9a5a62f3a..240065bdc 100644 --- a/base/modules/psblas/psb_d_nest_psblas_mod.f90 +++ b/base/modules/psblas/psb_d_nest_psblas_mod.f90 @@ -596,7 +596,7 @@ contains ! diagonal block (i,i) of tnest independently. ! y(i) = alpha * T(i,i)^{-1} x(i) + beta * y(i) subroutine psb_d_nest_spsm(alpha, tnest, xnest, beta, ynest, descs, info, & - & trans, scale, choice, work) + & trans, scale, choice) real(psb_dpk_), intent(in) :: alpha, beta type(psb_d_nest_sparse_mat), intent(inout) :: tnest type(psb_d_nest_vect_type), intent(inout) :: xnest @@ -605,7 +605,6 @@ contains integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale integer(psb_ipk_), optional, intent(in) :: choice - real(psb_dpk_), optional, intent(inout), target :: work(:) integer(psb_ipk_) :: i @@ -618,7 +617,7 @@ contains else call psb_spsm(alpha, tnest%mats(i,i), xnest%vects(i), beta, ynest%vects(i), & & descs%descs(i,i), info, trans=trans, scale=scale, & - & choice=choice, work=work) + & choice=choice) end if if (info /= 0) return end do