psblas-3.3-maint:

base/serial/psb_csymbmm.f90 base/serial/psb_dsymbmm.f90 base/serial/psb_ssymbmm.f90 base/serial/psb_zsymbmm.f90 One more error return
9 years ago · 2ea1d0afbd
parent 4b94b9c2d3
commit 2ea1d0afbd
4 changed files with 16 additions and 0 deletions
--- a/base/serial/psb_csymbmm.f90
+++ b/base/serial/psb_csymbmm.f90
@ -248,6 +248,10 @@ contains
          nze = max(c%irp(i+1), nint((dble(c%irp(i))*(dble(n)/i)))   )
        endif
        call psb_realloc(nze,c%ja,info)
+        if (info /= 0) then
+          info = psb_err_alloc_dealloc_
+          return
+        endif
      end if
      do j= c%irp(i),c%irp(i+1)-1
        c%ja(j)=istart
--- a/base/serial/psb_dsymbmm.f90
+++ b/base/serial/psb_dsymbmm.f90
@ -248,6 +248,10 @@ contains
          nze = max(c%irp(i+1), nint((dble(c%irp(i))*(dble(n)/i)))   )
        endif
        call psb_realloc(nze,c%ja,info)
+        if (info /= 0) then
+          info = psb_err_alloc_dealloc_
+          return
+        endif
      end if
      do j= c%irp(i),c%irp(i+1)-1
        c%ja(j)=istart
--- a/base/serial/psb_ssymbmm.f90
+++ b/base/serial/psb_ssymbmm.f90
@ -248,6 +248,10 @@ contains
          nze = max(c%irp(i+1), nint((dble(c%irp(i))*(dble(n)/i)))   )
        endif
        call psb_realloc(nze,c%ja,info)
+        if (info /= 0) then
+          info = psb_err_alloc_dealloc_
+          return
+        endif
      end if
      do j= c%irp(i),c%irp(i+1)-1
        c%ja(j)=istart
--- a/base/serial/psb_zsymbmm.f90
+++ b/base/serial/psb_zsymbmm.f90
@ -248,6 +248,10 @@ contains
          nze = max(c%irp(i+1), nint((dble(c%irp(i))*(dble(n)/i)))   )
        endif
        call psb_realloc(nze,c%ja,info)
+        if (info /= 0) then
+          info = psb_err_alloc_dealloc_
+          return
+        endif
      end if
      do j= c%irp(i),c%irp(i+1)-1
        c%ja(j)=istart