From 6c2acf01a52ca8e5240a072ef0024ce257899e34 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 5 Sep 2013 09:07:16 +0000
Subject: [PATCH] psblas-3.99  util/psb_metispart_mod.F90

Allow for realloc of graph_vect.
---
 util/psb_metispart_mod.F90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/util/psb_metispart_mod.F90 b/util/psb_metispart_mod.F90
index 76410c93..b4c2fd0f 100644
--- 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 ',&