fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Check and enforce allocation of indxmap%halo_owner

Browse Source
This commit is contained in:
Salvatore Filippone
2019-10-04 15:35:23 +01:00
parent c54076ed97
commit d189083816
2 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/desc/psb_indx_map_mod.f90
+11 -1
View File
@@ -1328,7 +1328,17 @@ contains
nr = idxmap%local_rows
nc = idxmap%local_cols
xout = -1
if ((nr<xin).and.(xin <= nc)) xout = idxmap%halo_owner(xin-nr)
if (.not.allocated(idxmap%halo_owner)) then
!write(0,*) 'Halo_owner not allocated!', nr, nc, xin
return
end if
if ((nr<xin).and.(xin <= nc)) then
if (size(idxmap%halo_owner)<(xin-nr)) then
!write(0,*) 'Halo_owner bad size',xin,nr,xin-nr,size(idxmap%halo_owner)
return
end if
xout = idxmap%halo_owner(xin-nr)
end if
end subroutine base_fnd_halo_owner_s
base/tools/psb_cd_renum_block.F90
+2
View File
@@ -126,6 +126,8 @@ subroutine psb_cd_renum_block(desc_in, desc_out, info)
if (info == 0) call blck_map%gen_block_map_init(ictxt,n_row,info)
if (info == 0) call blck_map%g2l_ins(gidx,lidx,info,lidx=reflidx)
if (info == 0) call blck_map%asb(info)
if (info == 0) call &
& psb_safe_ab_cpy(desc_in%indxmap%halo_owner,blck_map%halo_owner,info)
if (info /= psb_success_) then
info = psb_err_from_subroutine_