psblas-3.99

util/psb_metispart_mod.F90 Allow for realloc of graph_vect.
11 years ago · 6c2acf01a5
parent 33d28de928
commit 6c2acf01a5
1 changed files with 2 additions and 1 deletions
--- a/util/psb_metispart_mod.F90
+++ b/util/psb_metispart_mod.F90
@ -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 ',&