Fix compilation of gen_block_map_mod

This commit is contained in:
Salvatore Filippone
2022-03-31 16:13:32 +02:00
parent 9593bfc2c9
commit ee3f63ae3d
@@ -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(:)