From 1b7d51a008a91b5decbee774a96ec740fa962713 Mon Sep 17 00:00:00 2001
From: Alfredo Buttari <alfredo.buttari@enseeiht.fr>
Date: Mon, 5 Dec 2005 12:21:58 +0000
Subject: [PATCH] Added overallocation od dependency list length

---
 src/internals/psi_crea_index.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/internals/psi_crea_index.f90 b/src/internals/psi_crea_index.f90
index e0461001..e21ad1ce 100644
--- a/src/internals/psi_crea_index.f90
+++ b/src/internals/psi_crea_index.f90
@@ -72,8 +72,9 @@ subroutine psi_crea_index(desc_a,index_in,index_out,glob_idx,info)
   endif
 
   ! allocate dependency list
-  call psi_compute_size(desc_a%matrix_data, index_in, dl_lda, info)
+!  call psi_compute_size(desc_a%matrix_data, index_in, dl_lda, info)
 !  dl_lda=dl_lda+3
+  dl_lda=np+1
   allocate(dep_list(max(1,dl_lda),0:np),length_dl(0:np))
   ! ...extract dependence list (ordered list of identifer process
   !    which every process must communcate with...