extract_dep_list dl_lda checks removed

dl_lda is now computed after the place the checks were positioned.
psblas-3.6-maint v3.6.1-rc1
Salvatore Filippone 5 years ago
parent f736cb808f
commit 5d6a380664

@ -207,10 +207,6 @@ subroutine psi_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
@ -240,18 +236,10 @@ subroutine psi_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

Loading…
Cancel
Save