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

Add default initialization.

parent d52f5cb1
......@@ -82,7 +82,7 @@ static void
SymPrefix(abort_f)(MPI_Fint *comm_f, const char *msg,
const char *source, int line)
{
MPI_Comm comm_c;
MPI_Comm comm_c = MPI_COMM_NULL;
#if defined(USE_MPI)
int flag = 0;
if (MPI_Initialized(&flag) == MPI_SUCCESS && flag)
......
......@@ -72,6 +72,7 @@ typedef int MPI_Fint;
*/
enum {
MPI_COMM_WORLD = 4711,
MPI_COMM_NULL = 0,
};
#endif
......
......@@ -359,7 +359,7 @@ FCALLSCSUB3(PPM_frandr_a_f,PPM_FRANDR_A_3D,ppm_frandr_a_3d,FLOATVVV,INT,PVOID)
static void
initIRand_f(MPI_Fint *comm_f, int *random_seed)
{
MPI_Comm comm_c;
MPI_Comm comm_c = MPI_COMM_NULL;
#if defined(USE_MPI)
int flag = 0;
if (MPI_Initialized(&flag) == MPI_SUCCESS && flag)
......
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