fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 04:12:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

Removed bug due to uninitialized variable

Browse Source
This commit is contained in:
Alfredo Buttari
2005-10-11 13:57:01 +00:00
parent 20714a8cfe
commit b2c6677591
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/internals/psi_crea_ovr_elem.f90
+3 -2
View File
@@ -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