psblas3:

base/internals/psi_bld_tmphalo.f90 Revert: in tight loops on small sizes it's better to call directly into %indxmap%
11 years ago · f1db2225bb
parent 81b9285e85
commit f1db2225bb
1 changed files with 2 additions and 2 deletions
--- 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')