*** empty log message ***

base/internals/psi_dswapdata.F90

@@ -1774,7 +1774,7 @@ subroutine psi_dswapidx_vect_mptx(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,to
     end if
 
 
-    if (beta/=0 .and. do_send) then
+    if (do_send) then
 
       ! Pack send buffers
       pnti   = 1
@@ -1880,10 +1880,6 @@ subroutine psi_dswapidx_vect_mptx(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,to
 
         if ((nesd>0).and.(proc_to_comm /= me)) then
 
-          if(beta==0) then
-            !call send_routine(y%v,sendtypes(i),prcid(i),p2ptag,icomm, iret)
-            iret = send(y%get_clocv(),sendtypes(i),prcid(i),p2ptag,icomm)
-          else
           if (usersend) then 
             call mpi_rsend(sndbuf(snd_pt),nesd,&
                  & psb_mpi_r_dpk_,prcid(i),&
@@ -1893,7 +1889,6 @@ subroutine psi_dswapidx_vect_mptx(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,to
                  & psb_mpi_r_dpk_,prcid(i),&
                  & p2ptag,icomm,iret)
           end if
-          end if
 
           if(iret /= mpi_success) then
             ierr(1) = iret
@@ -1976,7 +1971,6 @@ subroutine psi_dswapidx_vect_mptx(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,to
       snd_pt = 1
       rcv_pt = 1
       do i=1, totxch
-        if(beta/=0) then
         proc_to_comm = idx(pnti+psb_proc_id_)
         nerv = idx(pnti+psb_n_elem_recv_)
         nesd = idx(pnti+nerv+psb_n_elem_send_)
@@ -1986,7 +1980,6 @@ subroutine psi_dswapidx_vect_mptx(iictxt,iicomm,flag,beta,y,idx,totxch,totsnd,to
         rcv_pt = rcv_pt + nerv
         snd_pt = snd_pt + nesd
         pnti   = pnti + nerv + nesd + 3
-        end if
       end do
 
     end if