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

Put in a safety margin in reallocation of dep_list. To be reworked completely.

Browse Source
This commit is contained in:
Salvatore Filippone
2019-10-24 13:30:09 +01:00
parent 8ae408fa03
commit ce115b1318
1 changed files with 1 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_extrct_dl.F90
+1 -13
View File
@@ -204,10 +204,6 @@ subroutine psi_i_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,&
pointer_dep_list=pointer_dep_list+1
endif
else if (mode == 0) then
if (pointer_dep_list > dl_lda) then
info = psb_err_alloc_dealloc_
goto 9999
endif
itmp(pointer_dep_list)=proc
pointer_dep_list=pointer_dep_list+1
endif
@@ -237,18 +233,10 @@ subroutine psi_i_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,&
enddo
if (j == pointer_dep_list) then
! ...if not found.....
if (pointer_dep_list > dl_lda) then
info = psb_err_alloc_dealloc_
goto 9999
endif
itmp(pointer_dep_list)=proc
pointer_dep_list=pointer_dep_list+1
endif
else if (mode == 0) then
if (pointer_dep_list > dl_lda) then
info = psb_err_alloc_dealloc_
goto 9999
endif
itmp(pointer_dep_list)=proc
pointer_dep_list=pointer_dep_list+1
endif
@@ -263,7 +251,7 @@ subroutine psi_i_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,&
length_dl(me)=pointer_dep_list-1
dl_lda = max(length_dl(me),1)
call psb_max(iictxt, dl_lda)
dl_lda = min(2*dl_lda,np+1)
allocate(dep_list(dl_lda,0:np),stat=info)
if (info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='Allocate')