From 66433a46bbfdce7806114261c23424e0ec3bc0bf Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 27 Jun 2019 18:05:50 +0100 Subject: [PATCH] Fix call to fnd_owner method --- base/tools/psb_cd_renum_block.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/base/tools/psb_cd_renum_block.F90 b/base/tools/psb_cd_renum_block.F90 index 0e26e6b5..ddfa4545 100644 --- a/base/tools/psb_cd_renum_block.F90 +++ b/base/tools/psb_cd_renum_block.F90 @@ -142,7 +142,7 @@ subroutine psb_cd_renum_block(desc_in, desc_out, info) write(debug_unit,*) me,' ',trim(name),': Done g2l_ins ',gidx(:),':',lidx(:),' :',reflidx(:) end if - if (info == psb_success_) call blck_map%indxmap%fnd_owner(gidx(n_row+1:n_col),hproc,info) + if (info == psb_success_) call blck_map%fnd_owner(gidx(n_row+1:n_col),hproc,info) if (info == psb_success_) call blck_map%set_halo_owner(hproc,info) if (info == 0) call blck_map%asb(info)