implement MPI_Finalized

vistle · Jan 3, 2024 · 27be8f8 · 27be8f8
1 parent a1a8934
commit 27be8f8
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/mpi.c b/mpi.c
@@ -5,6 +5,7 @@
 /****************************************************************************/
 
 static int initialized=0;
+static int finalized=0;
 
 
 /* Store fortran pointer values here */
@@ -185,6 +186,7 @@ int MPI_Init(int *argc, char **argv[])
   FC_FUNC(mpi_get_fort_pointers,MPI_GET_FORT_POINTERS)();  // the () are important
 
   initialized=1;
+  finalized=0;
   return(MPI_SUCCESS);
 }
 
@@ -211,6 +213,7 @@ int FC_FUNC( mpi_finalize, MPI_FINALIZE )(int *ierror)
 int MPI_Finalize(void)
 {
   initialized=0;
+  finalized=1;
 
   mpi_destroy_handles();
 
@@ -220,6 +223,13 @@ int MPI_Finalize(void)
 
 /*********/
 
+int MPI_Finalized( int *flag )
+{
+  *flag = finalized;
+  return(MPI_SUCCESS);
+}
+
+
 
 int FC_FUNC( mpi_abort , MPI_ABORT )(int *comm, int *errorcode, int *ierror)
 {

diff --git a/mpi.h b/mpi.h
@@ -343,6 +343,7 @@ extern MPI_Fint MPI_Group_c2f(MPI_Group group);
 
 extern int MPI_Init(int *argc, char **argv[]) ;
 extern int MPI_Finalize(void);
+extern int MPI_Finalized(int *flag);
 extern int MPI_Abort(MPI_Comm comm, int errorcode);
 extern int MPI_Error_string(int errorcode, char *string, int *resultlen);
 extern int MPI_Get_processor_name(char *name, int *resultlen);