Fix assembly procedure for remote build

base/tools/psb_cspasb.f90

@@ -139,6 +139,7 @@ subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl, mold)
 
       end block
     end select
+    call a%set_ncols(desc_a%get_local_cols())
     
     call a%cscnv(info,type=afmt,dupl=dupl, mold=mold)
   else if (a%is_upd()) then 

base/tools/psb_dspasb.f90

@@ -139,6 +139,7 @@ subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl, mold)
 
       end block
     end select
+    call a%set_ncols(desc_a%get_local_cols())
     
     call a%cscnv(info,type=afmt,dupl=dupl, mold=mold)
   else if (a%is_upd()) then 

base/tools/psb_sspasb.f90

@@ -139,6 +139,7 @@ subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl, mold)
 
       end block
     end select
+    call a%set_ncols(desc_a%get_local_cols())
     
     call a%cscnv(info,type=afmt,dupl=dupl, mold=mold)
   else if (a%is_upd()) then 

base/tools/psb_zspasb.f90

@@ -139,6 +139,7 @@ subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl, mold)
 
       end block
     end select
+    call a%set_ncols(desc_a%get_local_cols())
     
     call a%cscnv(info,type=afmt,dupl=dupl, mold=mold)
   else if (a%is_upd()) then