diff --git a/base/internals/psi_bld_tmphalo.f90 b/base/internals/psi_bld_tmphalo.f90 index 3fa0f52f..1842f92e 100644 --- a/base/internals/psi_bld_tmphalo.f90 +++ b/base/internals/psi_bld_tmphalo.f90 @@ -100,8 +100,8 @@ subroutine psi_bld_tmphalo(desc,info) helem(i) = n_row+i ! desc%loc_to_glob(n_row+i) end do - call desc%l2gip(helem(1:nh),info) - call desc%fnd_owner(helem(1:nh),hproc,info) + call desc%indxmap%l2gip(helem(1:nh),info) + call desc%indxmap%fnd_owner(helem(1:nh),hproc,info) if (info /= psb_success_) then call psb_errpush(psb_err_from_subroutine_,name,a_err='fnd_owner')