From 1d0886fbecf9005f8d8af9693395ffe1a79b2674 Mon Sep 17 00:00:00 2001
From: Lukas <lukas.kogler@tuwien.ac.at>
Date: Mon, 26 Aug 2019 12:54:06 +0200
Subject: [PATCH] porperly clean up created mpi-group/comm in paralleltop

---
 libsrc/meshing/paralleltop.cpp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/libsrc/meshing/paralleltop.cpp b/libsrc/meshing/paralleltop.cpp
index 6a5d562c..c410f425 100644
--- a/libsrc/meshing/paralleltop.cpp
+++ b/libsrc/meshing/paralleltop.cpp
@@ -698,6 +698,9 @@ namespace netgen
     // cout << "UpdateCoarseGrid - done" << endl;
     
     is_updated = true;
+
+    MPI_Group_free(&MPI_LocalGroup);
+    MPI_Comm_free(&MPI_LocalComm);
   }
 }