Commit 38373299 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Provide dummy MPI_COMM_WORLD in no-MPI builds.

parent f4b3ecfa
......@@ -57,13 +57,7 @@
#include <cfortran.h>
#include "core.h"
MPI_Comm PPM_default_comm =
#ifdef USE_MPI
MPI_COMM_WORLD
#else
0
#endif
;
MPI_Comm PPM_default_comm = MPI_COMM_WORLD;
static void
PPM_set_default_comm_f(MPI_Fint *comm_f)
......
......@@ -67,6 +67,12 @@ typedef int MPI_Comm;
* fall back to int in case no MPI implementation was found
*/
typedef int MPI_Fint;
/**
* provide value to use in case no actual communicators exist
*/
enum {
MPI_COMM_WORLD = 4711,
};
#endif
/**
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment