MPI_Comm_size(MPI_COMM_WORLD, &size);
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
+ start_timer = MPI_Wtime();
MPI_Barrier( MPI_COMM_WORLD );
+
MPI_Barrier( MPI_COMM_WORLD );
+ if (0 == rank) {
+ printf("... Barrier ....\n");
+ printf("Elapsed=%lf s\n", MPI_Wtime() - start_timer);
+ }
MPI_Finalize();
return 0;
smpi_mpi_communicator_t mpi_comm_world;
smpi_mpi_datatype_t mpi_byte;
+ smpi_mpi_datatype_t mpi_char;
smpi_mpi_datatype_t mpi_int;
smpi_mpi_datatype_t mpi_float;
smpi_mpi_datatype_t mpi_double;
#define MPI_STATUS_IGNORE NULL
#define MPI_BYTE (smpi_mpi_global->mpi_byte)
+#define MPI_CHAR (smpi_mpi_global->mpi_char)
#define MPI_INT (smpi_mpi_global->mpi_int)
#define MPI_FLOAT (smpi_mpi_global->mpi_float)
#define MPI_DOUBLE (smpi_mpi_global->mpi_double)