return retval;
}
-int MPI_Type_get_extent(MPI_Datatype datatype, MPI_Aint * lb,
- MPI_Aint * extent)
+MPI_CALL_IMPLEM(int, MPI_Type_get_extent,
+ (MPI_Datatype datatype, MPI_Aint * lb,
+ MPI_Aint * extent))
{
int retval;
return retval;
}
-int MPI_Group_translate_ranks(MPI_Group group1, int n, int *ranks1,
- MPI_Group group2, int *ranks2)
+MPI_CALL_IMPLEM(int, MPI_Group_translate_ranks,
+ (MPI_Group group1, int n, int *ranks1,
+ MPI_Group group2, int *ranks2))
{
int retval, i, index;
return retval;
}
-int MPI_Group_union(MPI_Group group1, MPI_Group group2,
- MPI_Group * newgroup)
+MPI_CALL_IMPLEM(int, MPI_Group_union,
+ (MPI_Group group1, MPI_Group group2,
+ MPI_Group * newgroup))
{
int retval, i, proc1, proc2, size, size2;
return retval;
}
-int MPI_Group_intersection(MPI_Group group1, MPI_Group group2,
- MPI_Group * newgroup)
+MPI_CALL_IMPLEM(int, MPI_Group_intersection,
+ (MPI_Group group1, MPI_Group group2,
+ MPI_Group * newgroup))
{
int retval, i, proc1, proc2, size, size2;
return retval;
}
-int MPI_Group_difference(MPI_Group group1, MPI_Group group2,
- MPI_Group * newgroup)
+MPI_CALL_IMPLEM(int, MPI_Group_difference,
+ (MPI_Group group1, MPI_Group group2,
+ MPI_Group * newgroup))
{
int retval, i, proc1, proc2, size, size2;
return retval;
}
-int MPI_Group_incl(MPI_Group group, int n, int *ranks,
- MPI_Group * newgroup)
+MPI_CALL_IMPLEM(int, MPI_Group_incl,
+ (MPI_Group group, int n, int *ranks,
+ MPI_Group * newgroup))
{
int retval, i, index;
return retval;
}
-int MPI_Group_excl(MPI_Group group, int n, int *ranks,
- MPI_Group * newgroup)
+MPI_CALL_IMPLEM(int, MPI_Group_excl,
+ (MPI_Group group, int n, int *ranks,
+ MPI_Group * newgroup))
{
int retval, i, size, rank, index;
return retval;
}
-int MPI_Group_range_incl(MPI_Group group, int n, int ranges[][3],
- MPI_Group * newgroup)
+MPI_CALL_IMPLEM(int, MPI_Group_range_incl,
+ (MPI_Group group, int n, int ranges[][3],
+ MPI_Group * newgroup))
{
int retval, i, j, rank, size, index;
return retval;
}
-int MPI_Group_range_excl(MPI_Group group, int n, int ranges[][3],
- MPI_Group * newgroup)
+MPI_CALL_IMPLEM(int, MPI_Group_range_excl,
+ (MPI_Group group, int n, int ranges[][3],
+ MPI_Group * newgroup))
{
int retval, i, newrank, rank, size, index, add;
return retval;
}
-int MPI_Send_init(void *buf, int count, MPI_Datatype datatype, int dst,
- int tag, MPI_Comm comm, MPI_Request * request)
+MPI_CALL_IMPLEM(int, MPI_Send_init,
+ (void *buf, int count, MPI_Datatype datatype, int dst,
+ int tag, MPI_Comm comm, MPI_Request * request))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Recv_init(void *buf, int count, MPI_Datatype datatype, int src,
- int tag, MPI_Comm comm, MPI_Request * request)
+MPI_CALL_IMPLEM(int, MPI_Recv_init,
+ (void *buf, int count, MPI_Datatype datatype, int src,
+ int tag, MPI_Comm comm, MPI_Request * request))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Irecv(void *buf, int count, MPI_Datatype datatype, int src,
- int tag, MPI_Comm comm, MPI_Request * request)
+MPI_CALL_IMPLEM(int, MPI_Irecv,
+ (void *buf, int count, MPI_Datatype datatype, int src,
+ int tag, MPI_Comm comm, MPI_Request * request))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Isend(void *buf, int count, MPI_Datatype datatype, int dst,
- int tag, MPI_Comm comm, MPI_Request * request)
+MPI_CALL_IMPLEM(int, MPI_Isend,
+ (void *buf, int count, MPI_Datatype datatype, int dst,
+ int tag, MPI_Comm comm, MPI_Request * request))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Recv(void *buf, int count, MPI_Datatype datatype, int src, int tag,
- MPI_Comm comm, MPI_Status * status)
+MPI_CALL_IMPLEM(int, MPI_Recv,
+ (void *buf, int count, MPI_Datatype datatype, int src, int tag,
+ MPI_Comm comm, MPI_Status * status))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Send(void *buf, int count, MPI_Datatype datatype, int dst, int tag,
- MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Send,
+ (void *buf, int count, MPI_Datatype datatype, int dst, int tag,
+ MPI_Comm comm))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-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)
+MPI_CALL_IMPLEM(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))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-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)
+MPI_CALL_IMPLEM(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))
{
//TODO: suboptimal implementation
void *recvbuf;
return retval;
}
-int MPI_Testany(int count, MPI_Request requests[], int *index, int *flag,
- MPI_Status * status)
+MPI_CALL_IMPLEM(int, MPI_Testany,
+ (int count, MPI_Request requests[], int *index, int *flag,
+ MPI_Status * status))
{
int retval;
return retval;
}
-int MPI_Waitany(int count, MPI_Request requests[], int *index,
- MPI_Status * status)
+MPI_CALL_IMPLEM(int, MPI_Waitany,
+ (int count, MPI_Request requests[], int *index,
+ MPI_Status * status))
{
int retval;
return MPI_SUCCESS;
}
-int MPI_Waitsome(int incount, MPI_Request requests[], int *outcount,
- int *indices, MPI_Status status[])
+MPI_CALL_IMPLEM(int, MPI_Waitsome,
+ (int incount, MPI_Request requests[], int *outcount,
+ int *indices, MPI_Status status[]))
{
int retval;
return retval;
}
-int MPI_Bcast(void *buf, int count, MPI_Datatype datatype, int root,
- MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Bcast,
+ (void *buf, int count, MPI_Datatype datatype, int root,
+ MPI_Comm comm))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Gather(void *sendbuf, int sendcount, MPI_Datatype sendtype,
- void *recvbuf, int recvcount, MPI_Datatype recvtype,
- int root, MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Gather,
+ (void *sendbuf, int sendcount, MPI_Datatype sendtype,
+ void *recvbuf, int recvcount, MPI_Datatype recvtype,
+ int root, MPI_Comm comm))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Gatherv(void *sendbuf, int sendcount, MPI_Datatype sendtype,
- void *recvbuf, int *recvcounts, int *displs,
- MPI_Datatype recvtype, int root, MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Gatherv,
+ (void *sendbuf, int sendcount, MPI_Datatype sendtype,
+ void *recvbuf, int *recvcounts, int *displs,
+ MPI_Datatype recvtype, int root, MPI_Comm comm))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Allgather(void *sendbuf, int sendcount, MPI_Datatype sendtype,
- void *recvbuf, int recvcount, MPI_Datatype recvtype,
- MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Allgather,
+ (void *sendbuf, int sendcount, MPI_Datatype sendtype,
+ void *recvbuf, int recvcount, MPI_Datatype recvtype,
+ MPI_Comm comm))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Allgatherv(void *sendbuf, int sendcount, MPI_Datatype sendtype,
- void *recvbuf, int *recvcounts, int *displs,
- MPI_Datatype recvtype, MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Allgatherv,
+ (void *sendbuf, int sendcount, MPI_Datatype sendtype,
+ void *recvbuf, int *recvcounts, int *displs,
+ MPI_Datatype recvtype, MPI_Comm comm))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Scatter(void *sendbuf, int sendcount, MPI_Datatype sendtype,
- void *recvbuf, int recvcount, MPI_Datatype recvtype,
- int root, MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Scatter,
+ (void *sendbuf, int sendcount, MPI_Datatype sendtype,
+ void *recvbuf, int recvcount, MPI_Datatype recvtype,
+ int root, MPI_Comm comm))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Scatterv(void *sendbuf, int *sendcounts, int *displs,
- MPI_Datatype sendtype, void *recvbuf, int recvcount,
- MPI_Datatype recvtype, int root, MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Scatterv,
+ (void *sendbuf, int *sendcounts, int *displs,
+ MPI_Datatype sendtype, void *recvbuf, int recvcount,
+ MPI_Datatype recvtype, int root, MPI_Comm comm))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Reduce(void *sendbuf, void *recvbuf, int count,
- MPI_Datatype datatype, MPI_Op op, int root, MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Reduce,
+ (void *sendbuf, void *recvbuf, int count,
+ MPI_Datatype datatype, MPI_Op op, int root, MPI_Comm comm))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Allreduce(void *sendbuf, void *recvbuf, int count,
- MPI_Datatype datatype, MPI_Op op, MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Allreduce,
+ (void *sendbuf, void *recvbuf, int count,
+ MPI_Datatype datatype, MPI_Op op, MPI_Comm comm))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Scan(void *sendbuf, void *recvbuf, int count,
- MPI_Datatype datatype, MPI_Op op, MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Scan,
+ (void *sendbuf, void *recvbuf, int count,
+ MPI_Datatype datatype, MPI_Op op, MPI_Comm comm))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Reduce_scatter(void *sendbuf, void *recvbuf, int *recvcounts,
- MPI_Datatype datatype, MPI_Op op, MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Reduce_scatter,
+ (void *sendbuf, void *recvbuf, int *recvcounts,
+ MPI_Datatype datatype, MPI_Op op, MPI_Comm comm))
{
int retval, i, size, count;
int *displs;
return retval;
}
-int MPI_Alltoall(void *sendbuf, int sendcount, MPI_Datatype sendtype,
- void *recvbuf, int recvcount, MPI_Datatype recvtype,
- MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Alltoall,
+ (void *sendbuf, int sendcount, MPI_Datatype sendtype,
+ void *recvbuf, int recvcount, MPI_Datatype recvtype,
+ MPI_Comm comm))
{
int retval, size, sendsize;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
return retval;
}
-int MPI_Alltoallv(void *sendbuf, int *sendcounts, int *senddisps,
- MPI_Datatype sendtype, void *recvbuf, int *recvcounts,
- int *recvdisps, MPI_Datatype recvtype, MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Alltoallv,
+ (void *sendbuf, int *sendcounts, int *senddisps,
+ MPI_Datatype sendtype, void *recvbuf, int *recvcounts,
+ int *recvdisps, MPI_Datatype recvtype, MPI_Comm comm))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;