diff --git a/base/tools/psb_cspalloc.f90 b/base/tools/psb_cspalloc.f90
index b67aeede..3bd1f649 100644
--- a/base/tools/psb_cspalloc.f90
+++ b/base/tools/psb_cspalloc.f90
@@ -101,7 +101,7 @@ subroutine psb_cspalloc(a, desc_a, info, nnz)
        & ':allocating size:',loc_row,loc_col,nnz_
   call a%free()
   !....allocate aspk, ia1, ia2.....
-  call a%csall(loc_row,loc_col,info,nz=nnz_)
+  call a%allocate(loc_row,loc_col,info,nz=nnz_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     call psb_errpush(info,name,a_err='sp_all')
diff --git a/base/tools/psb_dspalloc.f90 b/base/tools/psb_dspalloc.f90
index 9ae4572a..85e82b90 100644
--- a/base/tools/psb_dspalloc.f90
+++ b/base/tools/psb_dspalloc.f90
@@ -101,7 +101,7 @@ subroutine psb_dspalloc(a, desc_a, info, nnz)
        & ':allocating size:',loc_row,loc_col,nnz_
   call a%free()
   !....allocate aspk, ia1, ia2.....
-  call a%csall(loc_row,loc_col,info,nz=nnz_)
+  call a%allocate(loc_row,loc_col,info,nz=nnz_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     call psb_errpush(info,name,a_err='sp_all')
diff --git a/base/tools/psb_sspalloc.f90 b/base/tools/psb_sspalloc.f90
index 4b092e62..67a94368 100644
--- a/base/tools/psb_sspalloc.f90
+++ b/base/tools/psb_sspalloc.f90
@@ -101,7 +101,7 @@ subroutine psb_sspalloc(a, desc_a, info, nnz)
        & ':allocating size:',loc_row,loc_col,nnz_
   call a%free()
   !....allocate aspk, ia1, ia2.....
-  call a%csall(loc_row,loc_col,info,nz=nnz_)
+  call a%allocate(loc_row,loc_col,info,nz=nnz_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     call psb_errpush(info,name,a_err='sp_all')
diff --git a/base/tools/psb_zspalloc.f90 b/base/tools/psb_zspalloc.f90
index 81099dcb..bcf110eb 100644
--- a/base/tools/psb_zspalloc.f90
+++ b/base/tools/psb_zspalloc.f90
@@ -101,7 +101,7 @@ subroutine psb_zspalloc(a, desc_a, info, nnz)
        & ':allocating size:',loc_row,loc_col,nnz_
   call a%free()
   !....allocate aspk, ia1, ia2.....
-  call a%csall(loc_row,loc_col,info,nz=nnz_)
+  call a%allocate(loc_row,loc_col,info,nz=nnz_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     call psb_errpush(info,name,a_err='sp_all')