Use new %ALLOCATE method

4 years ago · 9796ea0aeb
parent 027a14ae08
commit 9796ea0aeb
4 changed files with 4 additions and 4 deletions
--- 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')
--- 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')
--- 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')
--- 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')