psblas-3.99

util/psb_metispart_mod.F90

Allow for realloc of graph_vect.
psblas-3.2.0
Salvatore Filippone 11 years ago
parent 33d28de928
commit 6c2acf01a5

@ -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 ',&

Loading…
Cancel
Save