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

psblas2-dev:

Browse Source 
base/modules/psb_spmat_type.F90

Fixed check on allocation error.
This commit is contained in:
Salvatore Filippone
2008-03-18 10:40:32 +00:00
parent c21d356163
commit 23042afd09
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_spmat_type.f90
+7 -6
View File
@@ -405,7 +405,7 @@ contains
if (debug) write(0,*) 'SPALL : NNZ ',nnz,a%m,a%k
call psb_nullify_sp(a)
call psb_sp_reall(a,nnz,info)
if (info /= 0) return
a%pl(:)=0
a%pr(:)=0
! set INFOA fields
@@ -475,6 +475,7 @@ contains
a%k=max(0,k)
call psb_sp_reall(a,nnz,info)
if (debug) write(0,*) 'Check in ALLOCATE ',info,allocated(a%pl),allocated(a%pr)
if (info /= 0) return
a%pl(:)=0
a%pr(:)=0
! set infoa fields
@@ -501,7 +502,7 @@ contains
info = 0
call psb_nullify_sp(a)
call psb_sp_reall(a, ni1,ni2,nd,info)
if (info /= 0) return
a%pl(:)=0
a%pr(:)=0
! set INFOA fields
@@ -951,7 +952,7 @@ contains
call psb_nullify_sp(a)
if (debug) write(0,*) 'SPALL : NNZ ',nnz,a%m,a%k
call psb_sp_reall(a,nnz,info)
if (info /= 0) return
a%pl(:)=0
a%pr(:)=0
! set INFOA fields
@@ -985,7 +986,7 @@ contains
a%m=max(0,m)
a%k=max(0,k)
call psb_sp_reall(a,nnz,info)
if (info /= 0) return
a%pl(:)=0
a%pr(:)=0
! set INFOA fields
@@ -1019,7 +1020,7 @@ contains
a%m=max(0,m)
a%k=max(0,k)
call psb_sp_reall(a,nnz,info)
if (info /= 0) return
a%pl(:)=0
a%pr(:)=0
! set infoa fields
@@ -1047,7 +1048,7 @@ contains
call psb_nullify_sp(a)
call psb_sp_reall(a, ni1,ni2,nd,info)
if (info /= 0) return
a%pl(:)=0
a%pr(:)=0
! set INFOA fields