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

Fixed problem with reallocation of CSR matrices.

Browse Source
This commit is contained in:
Salvatore Filippone
2006-10-18 08:07:58 +00:00
parent 246f04c660
commit db16063184
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/modules/psb_spmat_type.f90
+6 -6
View File
@@ -335,11 +335,11 @@ contains
endif
if (ifc_ == 1) then
call psb_realloc(nnz,a%ia1,a%ia2,a%aspk,info)
call psb_realloc(max(nnz,a%m+1,a%k+1),a%ia1,a%ia2,a%aspk,info)
else
call psb_realloc(nnz,a%aspk,info)
call psb_realloc(max(nnz,a%m+1,a%k+1),a%aspk,info)
if (info /= 0) return
call psb_realloc(nnz,a%ia2,info)
call psb_realloc(max(nnz,a%m+1,a%k+1),a%ia2,info)
if (info /= 0) return
call psb_realloc(ifc*nnz+200,a%ia1,info)
if (info /= 0) return
@@ -886,11 +886,11 @@ contains
endif
if (ifc_ == 1) then
call psb_realloc(nnz,a%ia1,a%ia2,a%aspk,info)
call psb_realloc(max(nnz,a%m+1,a%k+1),a%ia1,a%ia2,a%aspk,info)
else
call psb_realloc(nnz,a%aspk,info)
call psb_realloc(max(nnz,a%m+1,a%k+1),a%aspk,info)
if (info /= 0) return
call psb_realloc(nnz,a%ia2,info)
call psb_realloc(max(nnz,a%m+1,a%k+1),a%ia2,info)
if (info /= 0) return
call psb_realloc(ifc*nnz+200,a%ia1,info)
if (info /= 0) return