From 840814c7769b33c2a6af28e68d85f5517866289c Mon Sep 17 00:00:00 2001 From: James Harrison Date: Mon, 6 Nov 2017 16:34:55 +0000 Subject: [PATCH] QedFVol: Patch to fix MPI communicators error --- lib/communicator/Communicator_mpi.cc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/communicator/Communicator_mpi.cc b/lib/communicator/Communicator_mpi.cc index ef612f98..e123aaa4 100644 --- a/lib/communicator/Communicator_mpi.cc +++ b/lib/communicator/Communicator_mpi.cc @@ -55,9 +55,9 @@ void CartesianCommunicator::Init(int *argc, char ***argv) { CartesianCommunicator::~CartesianCommunicator() { - int MPI_is_finalised; - MPI_Finalized(&MPI_is_finalised); - if (communicator && MPI_is_finalised) + // int MPI_is_finalised; + // MPI_Finalized(&MPI_is_finalised); + if (communicator && !MPI::Is_finalized()) MPI_Comm_free(&communicator); }