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

Eliminate superfluous casts.

parent 05629278
......@@ -69,7 +69,7 @@ static void
PPM_set_default_comm_f(MPI_Fint *comm_f)
{
#if defined(USE_MPI) && defined(HAVE_MPI_COMM_F2C)
MPI_Comm comm_c = MPI_Comm_f2c((MPI_Fint)*comm_f);
MPI_Comm comm_c = MPI_Comm_f2c(*comm_f);
#else
MPI_Comm comm_c = *comm_f;
#endif
......@@ -102,7 +102,7 @@ PPM_abort_f(MPI_Fint *comm_f, const char *msg, const char *source, int line)
#if defined(USE_MPI) && defined(HAVE_MPI_COMM_F2C)
int flag = 0;
if (MPI_Initialized(&flag) == MPI_SUCCESS && flag)
comm_c = MPI_Comm_f2c((MPI_Fint)*comm_f);
comm_c = MPI_Comm_f2c(*comm_f);
#else
comm_c = *comm_f;
#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