Take out debug prints

base/internals/psi_adjcncy_fnd_owner.F90

@@ -154,7 +154,7 @@ subroutine psi_adjcncy_fnd_owner(idx,iprc,adj,idxmap,info)
         ! write(0,*) me, ' First receive from ',i,rvsz(i)
         call psb_get_rank(prc,ictxt,i)        
         p2ptag = psb_long_swap_tag
-        write(0,*) me, ' Posting first receive from ',i,rvsz(i),prc           
+        !write(0,*) me, ' Posting first receive from ',i,rvsz(i),prc           
         call mpi_irecv(rmtidx(hidx(i)+1),rvsz(i),&
              & psb_mpi_lpk_,prc,&
              & p2ptag, icomm,rvhd(i),iret)
@@ -165,7 +165,7 @@ subroutine psi_adjcncy_fnd_owner(idx,iprc,adj,idxmap,info)
         !call psb_snd(ictxt,idx(1:nidx),adj(j))
         call psb_get_rank(prc,ictxt,adj(j))        
         p2ptag = psb_long_swap_tag
-        write(0,*) me, ' First send to ',adj(j),nidx, prc
+        !write(0,*) me, ' First send to ',adj(j),nidx, prc
         call mpi_send(idx,nidx,&
              & psb_mpi_lpk_,prc,&
              & p2ptag, icomm,iret)
@@ -197,7 +197,7 @@ subroutine psi_adjcncy_fnd_owner(idx,iprc,adj,idxmap,info)
         !call psb_snd(ictxt,idx(1:nidx),adj(j))
         call psb_get_rank(prc,ictxt,adj(j))        
         p2ptag = psb_int_swap_tag
-        write(0,*) me, ' Posting second receive from ',adj(j),nidx, prc
+        !write(0,*) me, ' Posting second receive from ',adj(j),nidx, prc
         call mpi_irecv(lclidx((j-1)*nidx+1),nidx, &
              & psb_mpi_ipk_,prc,&
              & p2ptag, icomm,rvhd(j),iret)
@@ -212,7 +212,7 @@ subroutine psi_adjcncy_fnd_owner(idx,iprc,adj,idxmap,info)
         !call psb_snd(ictxt,tproc(hidx(i)+1:hidx(i)+rvsz(i)),i)
         call psb_get_rank(prc,ictxt,i)        
         p2ptag = psb_int_swap_tag
-        write(0,*) me, ' Second send to ',i,rvsz(i), prc
+        !write(0,*) me, ' Second send to ',i,rvsz(i), prc
         call mpi_send(tproc(hidx(i)+1),rvsz(i),&
              & psb_mpi_ipk_,prc,&
              & p2ptag, icomm,iret)