Add ivshft= in impl

base/psblas/psb_cspmm.f90

@@ -212,7 +212,7 @@ subroutine  psb_cspmv_vect(alpha,a,x,beta,y,desc_a,info,&
              & czero,x%v,desc_a,iwork,info,data=psb_comm_halo_)
         if (do_timings) call psb_toc(mv_phase3)
         if (do_timings) call psb_tic(mv_phase4)          
-        call a%and%spmm(alpha,x%v,cone,y%v,info)
+        call a%and%spmm(alpha,x%v,cone,y%v,info,ivshft=a%ad%get_ncols())
         if (do_timings) call psb_toc(mv_phase4)
       end block
       

base/psblas/psb_dspmm.f90

@@ -212,7 +212,7 @@ subroutine  psb_dspmv_vect(alpha,a,x,beta,y,desc_a,info,&
              & dzero,x%v,desc_a,iwork,info,data=psb_comm_halo_)
         if (do_timings) call psb_toc(mv_phase3)
         if (do_timings) call psb_tic(mv_phase4)          
-        call a%and%spmm(alpha,x%v,done,y%v,info)
+        call a%and%spmm(alpha,x%v,done,y%v,info,ivshft=a%ad%get_ncols())
         if (do_timings) call psb_toc(mv_phase4)
       end block
       

base/psblas/psb_sspmm.f90

@@ -212,7 +212,7 @@ subroutine  psb_sspmv_vect(alpha,a,x,beta,y,desc_a,info,&
              & szero,x%v,desc_a,iwork,info,data=psb_comm_halo_)
         if (do_timings) call psb_toc(mv_phase3)
         if (do_timings) call psb_tic(mv_phase4)          
-        call a%and%spmm(alpha,x%v,sone,y%v,info)
+        call a%and%spmm(alpha,x%v,sone,y%v,info,ivshft=a%ad%get_ncols())
         if (do_timings) call psb_toc(mv_phase4)
       end block
       

base/psblas/psb_zspmm.f90

@@ -212,7 +212,7 @@ subroutine  psb_zspmv_vect(alpha,a,x,beta,y,desc_a,info,&
              & zzero,x%v,desc_a,iwork,info,data=psb_comm_halo_)
         if (do_timings) call psb_toc(mv_phase3)
         if (do_timings) call psb_tic(mv_phase4)          
-        call a%and%spmm(alpha,x%v,zone,y%v,info)
+        call a%and%spmm(alpha,x%v,zone,y%v,info,ivshft=a%ad%get_ncols())
         if (do_timings) call psb_toc(mv_phase4)
       end block