5 int MPI_Init(int *argc, char ***argv)
19 // right now this just exits the current node, should send abort signal to all
20 // hosts in the communicator;
21 int MPI_Abort(MPI_Comm comm, int errorcode)
26 int MPI_Comm_size(MPI_Comm comm, int *size)
28 int retval = MPI_SUCCESS;
33 retval = MPI_ERR_COMM;
34 } else if (NULL == size) {
45 int MPI_Comm_rank(MPI_Comm comm, int *rank)
47 int retval = MPI_SUCCESS;
52 retval = MPI_ERR_COMM;
53 } else if (NULL == rank) {
56 *rank = smpi_comm_rank(comm, SIMIX_host_self());
64 int MPI_Type_size(MPI_Datatype datatype, size_t *size)
66 int retval = MPI_SUCCESS;
70 if (NULL == datatype) {
71 retval = MPI_ERR_TYPE;
72 } else if (NULL == size) {
75 *size = datatype->size;
83 int MPI_Barrier(MPI_Comm comm)