From 40e899816d0b6a6c00f9c00cb32a5fe97245a1fe Mon Sep 17 00:00:00 2001
From: Gauthier Becker <gauthierbecker@gmail.com>
Date: Fri, 23 Dec 2011 10:35:51 +0000
Subject: [PATCH] Fix fatal mpi_abort Fix bug for CG in MPI
---
Common/GmshMessage.cpp | 1 +
1 file changed, 1 insertion(+)
diff --git a/Common/GmshMessage.cpp b/Common/GmshMessage.cpp
index 39c69b3d31..bb67288dab 100644
--- a/Common/GmshMessage.cpp
+++ b/Common/GmshMessage.cpp
@@ -112,6 +112,7 @@ void Msg::Exit(int level)
PetscFinalize();
#endif
#if defined(HAVE_MPI)
+ if(level!=0) MPI_Abort(MPI_COMM_WORLD,level); // if abnormal exit on one cpu only
MPI_Finalize();
#endif
FinalizeOnelab();
--
GitLab