From 9593bfc2c96f508ce244ca859110c52e1ea983ae Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 31 Mar 2022 09:40:46 +0200 Subject: [PATCH] Changed interface fnd_owner --- base/modules/desc/psb_gen_block_map_mod.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/base/modules/desc/psb_gen_block_map_mod.F90 b/base/modules/desc/psb_gen_block_map_mod.F90 index 68871cb1..260e1176 100644 --- a/base/modules/desc/psb_gen_block_map_mod.F90 +++ b/base/modules/desc/psb_gen_block_map_mod.F90 @@ -1052,6 +1052,7 @@ contains subroutine block_fnd_owner(idx,iprc,idxmap,info,adj) use psb_penv_mod + use psb_realloc_mod implicit none integer(psb_lpk_), intent(in) :: idx(:) integer(psb_ipk_), allocatable, intent(out) :: iprc(:)