Start mods for new fnd_owner

base/internals/psi_a2a_fnd_owner.F90

@@ -73,6 +73,7 @@ subroutine psi_a2a_fnd_owner(idx,iprc,idxmap,info)
   integer(psb_ipk_) :: i,n_row,n_col,err_act,nv
   integer(psb_lpk_) :: mglob, ih
   integer(psb_ipk_) :: ictxt,np,me, nresp
+  logical, parameter :: use_psi_adj=.true.
   real(psb_dpk_)     :: t0, t1, t2, t3, t4, tamx, tidx
   character(len=20)  :: name
 
@@ -100,6 +101,7 @@ subroutine psi_a2a_fnd_owner(idx,iprc,idxmap,info)
     goto 9999      
   end if
 
+  if (use_psi_adj) then 
     !
     ! Reuse the adjcncy version by tricking it with an adjcncy list
     ! that contains everybody but ME. 
@@ -109,6 +111,13 @@ subroutine psi_a2a_fnd_owner(idx,iprc,idxmap,info)
     tmpadj(1:me) = [(i,i=0,me-1)]
     tmpadj(me+1:np-1) = [(i,i=me+1,np-1)]
     call  psi_adjcncy_fnd_owner(idx,iprc,tmpadj,idxmap,info)
+  else
+    !
+    ! 1. allgetherv
+    ! 2. local conversion
+    ! 3. reduce_scatter
+    !
+  end if
 
   call psb_erractionrestore(err_act)
   return