From b2c667759175bab4c3c300eab3c166259bc27b2e Mon Sep 17 00:00:00 2001 From: Alfredo Buttari Date: Tue, 11 Oct 2005 13:57:01 +0000 Subject: [PATCH] Removed bug due to uninitialized variable --- src/internals/psi_crea_ovr_elem.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/internals/psi_crea_ovr_elem.f90 b/src/internals/psi_crea_ovr_elem.f90 index 8c1162d6..7e122ffc 100644 --- a/src/internals/psi_crea_ovr_elem.f90 +++ b/src/internals/psi_crea_ovr_elem.f90 @@ -16,6 +16,7 @@ subroutine psi_crea_ovr_elem(desc_overlap,ovr_elem) logical, parameter :: usetree=.true. + dim_ovr_elem=size(ovr_elem) i=1 pnt_new_elem=1 if (usetree) call initpairsearchtree(info) @@ -43,9 +44,9 @@ subroutine psi_crea_ovr_elem(desc_overlap,ovr_elem) ! ...check if overflow element_d array...... if (pnt_new_elem.gt.dim_ovr_elem) then - dim=(3*size(ovr_elem))/2+2 + dim_ovr_elem=(3*size(ovr_elem))/2+2 write(0,*) 'calling realloc crea_ovr_elem',dim - call psb_realloc(dim,ovr_elem,info) + call psb_realloc(dim_ovr_elem,ovr_elem,info) endif else ! ....this point already exist in ovr_elem list