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

psblas-3.99

Browse Source 
util/psb_metispart_mod.F90

Allow for realloc of graph_vect.
This commit is contained in:
Salvatore Filippone
2013-09-05 09:07:16 +00:00
parent 33d28de928
commit 6c2acf01a5
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
util/psb_metispart_mod.F90
+2 -1
View File
@@ -266,7 +266,8 @@ contains
end function METIS_PartGraphRecursive
end interface
allocate(graph_vect(n),gvl(n),wgh_(nparts),stat=info)
call psb_realloc(n,graph_vect,info)
if (info == psb_success_) allocate(gvl(n),wgh_(nparts),stat=info)
if (info /= psb_success_) then
write(psb_err_unit,*) 'Fatal error in BUILD_MTPART: memory allocation ',&