From 374786f6ae33bbf69ea4842a76c0668ab36e9545 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 19 Nov 2019 15:01:25 +0000 Subject: [PATCH] adjcncy_fnd_owner fix memory allocation --- base/internals/psi_adjcncy_fnd_owner.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/base/internals/psi_adjcncy_fnd_owner.F90 b/base/internals/psi_adjcncy_fnd_owner.F90 index 0a1cbef7..5bcff228 100644 --- a/base/internals/psi_adjcncy_fnd_owner.F90 +++ b/base/internals/psi_adjcncy_fnd_owner.F90 @@ -143,7 +143,7 @@ subroutine psi_adjcncy_fnd_owner(idx,iprc,adj,idxmap,info) ! ! Second, allocate buffers and exchange data ! - Allocate(rmtidx(hsize),lclidx(hsize),tproc(max(hsize,nidx)),stat=info) + Allocate(rmtidx(hsize),lclidx(max(hsize,nidx*nadj)),tproc(max(hsize,nidx)),stat=info) if (info /= psb_success_) then call psb_errpush(psb_err_from_subroutine_,name,a_err='Allocate')