diff --git a/base/psblas/psb_cspmm.f90 b/base/psblas/psb_cspmm.f90
index 22c6408f..53021724 100644
--- a/base/psblas/psb_cspmm.f90
+++ b/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
       
diff --git a/base/psblas/psb_dspmm.f90 b/base/psblas/psb_dspmm.f90
index fa256276..83f4a69b 100644
--- a/base/psblas/psb_dspmm.f90
+++ b/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
       
diff --git a/base/psblas/psb_sspmm.f90 b/base/psblas/psb_sspmm.f90
index 6c723831..c0960644 100644
--- a/base/psblas/psb_sspmm.f90
+++ b/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
       
diff --git a/base/psblas/psb_zspmm.f90 b/base/psblas/psb_zspmm.f90
index 179e4fad..dacd4960 100644
--- a/base/psblas/psb_zspmm.f90
+++ b/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