From 3bc00436f78b3378c318bdeed53fe3f1711b2b2f Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 7 Dec 2005 14:24:15 +0000
Subject: [PATCH] *** empty log message ***

---
 src/serial/psb_dneigh.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/serial/psb_dneigh.f90 b/src/serial/psb_dneigh.f90
index f13d08bd..7943416c 100644
--- a/src/serial/psb_dneigh.f90
+++ b/src/serial/psb_dneigh.f90
@@ -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