Changed interface fnd_owner

3 years ago · 9593bfc2c9
parent 6bed4bc55e
commit 9593bfc2c9
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
@ -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(:)