*** empty log message ***

2026-10-17 11:22:09 +00:00 · 2005-12-07 14:24:15 +00:00
parent 564eb85765
commit 3bc00436f7
1 changed files with 1 additions and 1 deletions
@@ -41,8 +41,8 @@ subroutine psb_dneigh(a,idx,neigh,n,info,lev)
  call psb_dneigh1l(a,idx,neigh,n)
  
  if(level.eq.2) then
-     allocate(tmpn(1))
     n1=n
+     allocate(tmpn(max(10,2*n)))
     do i=1,n1
        nidx=neigh(i)
        if((nidx.ne.idx).and.(nidx.gt.0).and.(nidx.le.a%m)) then