adjcncy_fnd_owner fix memory allocation

5 years ago · 374786f6ae
parent 809e32a6be
commit 374786f6ae
1 changed files with 1 additions and 1 deletions
--- 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')