From ee3f63ae3d4038486f625fe07c187a0d8987529a Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 31 Mar 2022 16:13:32 +0200 Subject: [PATCH] Fix compilation of gen_block_map_mod --- 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 260e1176..795a9d8f 100644 --- a/base/modules/desc/psb_gen_block_map_mod.F90 +++ b/base/modules/desc/psb_gen_block_map_mod.F90 @@ -1053,6 +1053,7 @@ contains subroutine block_fnd_owner(idx,iprc,idxmap,info,adj) use psb_penv_mod use psb_realloc_mod + use psb_sort_mod implicit none integer(psb_lpk_), intent(in) :: idx(:) integer(psb_ipk_), allocatable, intent(out) :: iprc(:)