+ return PMPI_Comm_split(comm, color, key, comm_out);
+}
+
+int MPI_Send_init(void *buf, int count, MPI_Datatype datatype, int dst,
+ int tag, MPI_Comm comm, MPI_Request * request)
+{
+ return PMPI_Send_init(buf, count, datatype, dst, tag, comm, request);
+}
+
+int MPI_Recv_init(void *buf, int count, MPI_Datatype datatype, int src,
+ int tag, MPI_Comm comm, MPI_Request * request)
+{
+ return PMPI_Recv_init(buf, count, datatype, src, tag, comm, request);
+}
+
+int MPI_Start(MPI_Request * request)
+{
+ return PMPI_Start(request);
+}
+
+int MPI_Startall(int count, MPI_Request * requests)
+{
+ return PMPI_Startall(count, requests);
+}
+
+int MPI_Request_free(MPI_Request * request)
+{
+ return PMPI_Request_free(request);
+}
+
+int MPI_Irecv(void *buf, int count, MPI_Datatype datatype, int src,
+ int tag, MPI_Comm comm, MPI_Request * request)
+{
+ return PMPI_Irecv(buf, count, datatype, src, tag, comm, request);
+}
+
+int MPI_Isend(void *buf, int count, MPI_Datatype datatype, int dst,
+ int tag, MPI_Comm comm, MPI_Request * request)
+{
+ return PMPI_Isend(buf, count, datatype, dst, tag, comm, request);
+}
+
+int MPI_Recv(void *buf, int count, MPI_Datatype datatype, int src, int tag,
+ MPI_Comm comm, MPI_Status * status)
+{
+ return PMPI_Recv(buf, count, datatype, src, tag, comm, status);
+}
+
+int MPI_Send(void *buf, int count, MPI_Datatype datatype, int dst, int tag,
+ MPI_Comm comm)
+{
+ return PMPI_Send(buf, count, datatype, dst, tag, comm);
+}
+
+int MPI_Sendrecv(void *sendbuf, int sendcount, MPI_Datatype sendtype,
+ int dst, int sendtag, void *recvbuf, int recvcount,
+ MPI_Datatype recvtype, int src, int recvtag,
+ MPI_Comm comm, MPI_Status * status)
+{
+ return PMPI_Sendrecv(sendbuf, sendcount, sendtype, dst, sendtag,
+ recvbuf, recvcount, recvtype, src, recvtag,
+ comm, status);
+}
+
+int MPI_Sendrecv_replace(void *buf, int count, MPI_Datatype datatype,
+ int dst, int sendtag, int src, int recvtag,
+ MPI_Comm comm, MPI_Status * status)
+{
+ return PMPI_Sendrecv_replace(buf, count, datatype, dst, sendtag, src,
+ recvtag, comm, status);
+}
+
+int MPI_Test(MPI_Request * request, int *flag, MPI_Status * status)
+{
+ return PMPI_Test(request, flag, status);
+}
+
+int MPI_Testany(int count, MPI_Request requests[], int *index, int *flag,
+ MPI_Status * status)
+{
+ return PMPI_Testany(count, requests, index, flag, status);
+}
+
+int MPI_Wait(MPI_Request * request, MPI_Status * status)
+{
+ return PMPI_Wait(request, status);
+}
+
+int MPI_Waitany(int count, MPI_Request requests[], int *index, MPI_Status * status)
+{
+ return PMPI_Waitany(count, requests, index, status);
+}
+
+int MPI_Waitall(int count, MPI_Request requests[], MPI_Status status[])
+{
+ return PMPI_Waitall(count, requests, status);
+}
+
+int MPI_Waitsome(int incount, MPI_Request requests[], int *outcount,
+ int *indices, MPI_Status status[])
+{
+ return PMPI_Waitsome(incount, requests, outcount, indices, status);
+}
+
+int MPI_Bcast(void *buf, int count, MPI_Datatype datatype, int root, MPI_Comm comm)
+{
+ return PMPI_Bcast(buf, count, datatype, root, comm);
+}
+
+int MPI_Barrier(MPI_Comm comm)
+{
+ return PMPI_Barrier(comm);
+}
+
+int MPI_Gather(void *sendbuf, int sendcount, MPI_Datatype sendtype,
+ void *recvbuf, int recvcount, MPI_Datatype recvtype,
+ int root, MPI_Comm comm)
+{
+ return PMPI_Gather(sendbuf, sendcount, sendtype,
+ recvbuf, recvcount, recvtype,
+ root, comm);
+}
+
+int MPI_Gatherv(void *sendbuf, int sendcount, MPI_Datatype sendtype,
+ void *recvbuf, int *recvcounts, int *displs,
+ MPI_Datatype recvtype, int root, MPI_Comm comm)
+{
+ return PMPI_Gatherv(sendbuf, sendcount, sendtype,
+ recvbuf, recvcounts, displs, recvtype,
+ root, comm);
+}
+
+int MPI_Allgather(void *sendbuf, int sendcount, MPI_Datatype sendtype,
+ void *recvbuf, int recvcount, MPI_Datatype recvtype,
+ MPI_Comm comm)
+{
+ return PMPI_Allgather(sendbuf, sendcount, sendtype,
+ recvbuf, recvcount, recvtype,
+ comm);
+}
+
+int MPI_Allgatherv(void *sendbuf, int sendcount, MPI_Datatype sendtype,
+ void *recvbuf, int *recvcounts, int *displs,
+ MPI_Datatype recvtype, MPI_Comm comm)
+{
+ return PMPI_Allgatherv(sendbuf, sendcount, sendtype,
+ recvbuf, recvcounts, displs, recvtype,
+ comm);
+}
+
+int MPI_Scatter(void *sendbuf, int sendcount, MPI_Datatype sendtype,
+ void *recvbuf, int recvcount, MPI_Datatype recvtype,
+ int root, MPI_Comm comm)
+{
+ return PMPI_Scatter(sendbuf, sendcount, sendtype,
+ recvbuf, recvcount, recvtype,
+ root, comm);
+}
+
+int MPI_Scatterv(void *sendbuf, int *sendcounts, int *displs,
+ MPI_Datatype sendtype, void *recvbuf, int recvcount,
+ MPI_Datatype recvtype, int root, MPI_Comm comm)
+{
+ return PMPI_Scatterv(sendbuf, sendcounts, displs, sendtype,
+ recvbuf, recvcount, recvtype,
+ root, comm);
+}
+
+int MPI_Reduce(void *sendbuf, void *recvbuf, int count,
+ MPI_Datatype datatype, MPI_Op op, int root, MPI_Comm comm)
+{
+ return PMPI_Reduce(sendbuf, recvbuf, count, datatype, op, root, comm);
+}
+
+int MPI_Reduce_local(void *inbuf, void *inoutbuf, int count,
+ MPI_Datatype datatype, MPI_Op op){
+ return PMPI_Reduce_local(inbuf, inoutbuf, count, datatype, op);
+}
+
+int MPI_Allreduce(void *sendbuf, void *recvbuf, int count,
+ MPI_Datatype datatype, MPI_Op op, MPI_Comm comm)
+{
+ return PMPI_Allreduce(sendbuf, recvbuf, count, datatype, op, comm);
+}
+
+int MPI_Scan(void *sendbuf, void *recvbuf, int count,
+ MPI_Datatype datatype, MPI_Op op, MPI_Comm comm)
+{
+ return PMPI_Scan(sendbuf, recvbuf, count, datatype, op, comm);
+}
+
+int MPI_Reduce_scatter(void *sendbuf, void *recvbuf, int *recvcounts,
+ MPI_Datatype datatype, MPI_Op op, MPI_Comm comm)
+{
+ return PMPI_Reduce_scatter(sendbuf, recvbuf, recvcounts, datatype, op, comm);
+}
+
+int MPI_Reduce_scatter_block(void *sendbuf, void *recvbuf, int recvcount,
+ MPI_Datatype datatype, MPI_Op op, MPI_Comm comm)
+{
+ return PMPI_Reduce_scatter_block(sendbuf, recvbuf, recvcount, datatype, op, comm);
+}
+
+int MPI_Alltoall(void *sendbuf, int sendcount, MPI_Datatype sendtype,
+ void *recvbuf, int recvcount, MPI_Datatype recvtype,
+ MPI_Comm comm)
+{
+ return PMPI_Alltoall(sendbuf, sendcount, sendtype,
+ recvbuf, recvcount, recvtype,
+ comm);
+}
+
+int MPI_Alltoallv(void *sendbuf, int *sendcounts, int *senddisps,
+ MPI_Datatype sendtype, void *recvbuf, int *recvcounts,
+ int *recvdisps, MPI_Datatype recvtype, MPI_Comm comm)
+{
+ return PMPI_Alltoallv(sendbuf, sendcounts, senddisps, sendtype,
+ recvbuf, recvcounts, recvdisps, recvtype,
+ comm);
+}
+
+
+int MPI_Get_processor_name(char *name, int *resultlen)
+{
+ return PMPI_Get_processor_name(name, resultlen);
+}
+
+int MPI_Get_count(MPI_Status * status, MPI_Datatype datatype, int *count)
+{
+ return PMPI_Get_count(status, datatype, count);
+}
+
+int MPI_Pack_size(int incount, MPI_Datatype datatype, MPI_Comm comm, int* size) {
+ return PMPI_Pack_size(incount, datatype, comm, size);
+}
+
+int MPI_Cart_coords(MPI_Comm comm, int rank, int maxdims, int* coords) {
+ return PMPI_Cart_coords(comm, rank, maxdims, coords);
+}