From f1db2225bb7d4ff9dc1c2119db9bc7b5521935ba Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 2 Oct 2013 11:48:30 +0000 Subject: [PATCH] psblas3: base/internals/psi_bld_tmphalo.f90 Revert: in tight loops on small sizes it's better to call directly into %indxmap% --- base/internals/psi_bld_tmphalo.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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')