fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

merge with mat-allocation

Browse Source
This commit is contained in:
Cirdans-Home
2020-11-16 19:08:16 +01:00
parent 62c75abbf4
commit c52d42a50d
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_cspalloc.f90
+1 -1
View File
@@ -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')
base/tools/psb_dspalloc.f90
+1 -1
View File
@@ -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')
base/tools/psb_sspalloc.f90
+1 -1
View File
@@ -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')
base/tools/psb_zspalloc.f90
+1 -1
View File
@@ -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')