diff --git a/base/tools/psb_dspins.f90 b/base/tools/psb_dspins.f90
index 7d519b13..8a455653 100644
--- a/base/tools/psb_dspins.f90
+++ b/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
diff --git a/base/tools/psb_zspins.f90 b/base/tools/psb_zspins.f90
index 51392075..aa7bfc8b 100644
--- a/base/tools/psb_zspins.f90
+++ b/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