Add `fmpi_mpi_world_barrier()`

include/internal/fmpi_mpi.h

@@ -199,6 +199,10 @@ _Bool fmpi_mpi_finalized(const struct fmpi_mpi_ctx * ctx);
  * }
  */
 void fmpi_mpi_abort(const struct fmpi_mpi_ctx * ctx);
+/*------------------------------------------------------------------------------
+    fmpi_mpi_world_barrier()
+------------------------------------------------------------------------------*/
+int fmpi_mpi_world_barrier(const struct fmpi_mpi_ctx * ctx);
 /*==============================================================================
     GUARD
 ==============================================================================*/

src/fmpi_mpi.c

@@ -173,3 +173,15 @@ void fmpi_mpi_abort(const struct fmpi_mpi_ctx * const ctx)
         fmpi_mpi_check_error(ctx, err_id, "MPI_Abort");
     }
 }
+/*------------------------------------------------------------------------------
+    fmpi_mpi_world_barrier()
+------------------------------------------------------------------------------*/
+int fmpi_mpi_world_barrier(const struct fmpi_mpi_ctx * const ctx)
+{
+    assert(ctx != NULL);
+    const int err_id = MPI_Barrier(MPI_COMM_WORLD);
+    if(fmpi_mpi_check_error(ctx, err_id, "MPI_Barrier") == true) {
+        return -1;
+    }
+    return err_id;
+}