psblas:

base/tools:
psb_dspins.f90
psb_zspins.f90

Fixed bug in usage of global/local column indices.

base/tools/psb_dspins.f90

@@ -180,8 +180,6 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild)
       end if
 
     end if
-    nrow = psb_cd_get_local_rows(desc_a)
-    ncol = psb_cd_get_local_cols(desc_a)
     
   else if (psb_is_asb_desc(desc_a)) then 
 
@@ -201,7 +199,7 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild)
       nrow = psb_cd_get_local_rows(desc_a)
       ncol = psb_cd_get_local_cols(desc_a)
 
-      call psb_coins(nz,ia,ja,val,a,1,nrow,1,ncol,&
+      call psb_coins(nz,ila,jla,val,a,1,nrow,1,ncol,&
            & info,rebuild=rebuild_)
       if (info /= 0) then
         info=4010

base/tools/psb_zspins.f90

@@ -200,7 +200,7 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild)
       nrow = psb_cd_get_local_rows(desc_a)
       ncol = psb_cd_get_local_cols(desc_a)
 
-      call psb_coins(nz,ia,ja,val,a,1,nrow,1,ncol,&
+      call psb_coins(nz,ila,jla,val,a,1,nrow,1,ncol,&
            & info,rebuild=rebuild_)
       if (info /= 0) then
         info=4010