Aligned swap_ext_ with dbaseprc_aply.

18 years ago · b95fbb3a5c
parent 246f8b3c45
commit b95fbb3a5c
1 changed files with 1 additions and 1 deletions
--- a/psb_zbaseprc_aply.f90
+++ b/psb_zbaseprc_aply.f90
@ -190,7 +190,7 @@ subroutine psb_zbaseprc_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
      tx(desc_data%matrix_data(psb_n_row_)+1:isz) = zzero

      if (prec%iprcparm(restr_)==psb_halo_) then 
-        call psb_halo(tx,prec%desc_data,info,work=aux)
+        call psb_halo(tx,prec%desc_data,info,work=aux,data=psb_comm_ext_)
        if(info /=0) then
          info=4010
          ch_err='psb_halo'