psblas2-dev:

base/modules/psb_spmat_type.F90

Fixed check on allocation error.

base/modules/psb_spmat_type.f90

@@ -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