Fix compilation of gen_block_map_mod

3 years ago · ee3f63ae3d
parent 9593bfc2c9
commit ee3f63ae3d
1 changed files with 1 additions and 0 deletions
--- 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(:)