renames routine YAC_mpi_calls_are_allowed to yac_mpi_calls_are_allowed

src/core/ppm/core.c

@@ -82,7 +82,7 @@ symprefix(abort_default)(MPI_Comm comm, const char *msg, const char *source, int
 #if defined (__xlC__) && defined (_AIX)
 #pragma omp critical
 #endif
-  if (SymPrefix(mpi_calls_are_allowed)())
+  if (symprefix(mpi_calls_are_allowed)())
     MPI_Abort(comm, 1);
   abort();
 }
@@ -123,6 +123,13 @@ symprefix(get_default_abort_handler)(void) {
   return (symprefix(abort_func))symprefix(abort_default);
 }
 
+int symprefix(mpi_calls_are_allowed)(void)
+{
+  int init_flag = 0, finished_flag = 0;
+  return MPI_Initialized(&init_flag) == MPI_SUCCESS && init_flag
+    && MPI_Finalized(&finished_flag) == MPI_SUCCESS && !finished_flag;
+}
+
 /*
  * Local Variables:
  * license-project-url: "https://www.dkrz.de/redmine/projects/scales-ppm"

src/core/ppm/core.h

@@ -130,13 +130,10 @@ symprefix(abort_func) symprefix(get_default_abort_handler)(void);
 extern void
 symprefix(set_default_comm)(MPI_Comm comm);
 
-static inline int
-SymPrefix(mpi_calls_are_allowed)(void)
-{
-  int init_flag = 0, finished_flag = 0;
-  return MPI_Initialized(&init_flag) == MPI_SUCCESS && init_flag
-    && MPI_Finalized(&finished_flag) == MPI_SUCCESS && !finished_flag;
-}
+/**
+ * checks whether MPI calls are allowed
+ */
+int symprefix(mpi_calls_are_allowed)(void);
 
 // YAC PUBLIC HEADER STOP
 

tests/core/test_mpi_error.c

@@ -12,7 +12,7 @@ int main (void) {
   MPI_Init(NULL, NULL);
 
   yac_mpi_error(MPI_ERR_COMM, MPI_COMM_WORLD);
-  
+
   MPI_Finalize();
 
   return EXIT_SUCCESS;