int MPIR_Ialltoallw_sched_inter_auto(const void *sendbuf, const int sendcounts[], const int sdispls[],
const MPI_Datatype sendtypes[], void *recvbuf, const int recvcounts[],
const int rdispls[], const MPI_Datatype recvtypes[],
MPIR_Comm *comm_ptr, MPIR_Sched_t s)
{
int mpi_errno = MPI_SUCCESS;
mpi_errno = MPIR_Ialltoallw_sched_inter_pairwise_exchange(sendbuf, sendcounts, sdispls,
sendtypes, recvbuf, recvcounts,
rdispls, recvtypes, comm_ptr, s);
return mpi_errno;
}
int MPIR_Ialltoallw_sched_impl(const void *sendbuf, const int sendcounts[], const int sdispls[],
const MPI_Datatype sendtypes[], void *recvbuf,
const int recvcounts[], const int rdispls[],
const MPI_Datatype recvtypes[], MPIR_Comm * comm_ptr, MPIR_Sched_t s)
{
int mpi_errno = MPI_SUCCESS;
if (comm_ptr->comm_kind == MPIR_COMM_KIND__INTRACOMM) {
/* intracommunicator */
switch (MPIR_CVAR_IALLTOALLW_INTRA_ALGORITHM) {
case MPIR_CVAR_IALLTOALLW_INTRA_ALGORITHM_blocked:
mpi_errno = MPIR_Ialltoallw_sched_intra_blocked(sendbuf, sendcounts, sdispls,
sendtypes, recvbuf, recvcounts,
rdispls, recvtypes, comm_ptr, s);
break;
case MPIR_CVAR_IALLTOALLW_INTRA_ALGORITHM_inplace:
mpi_errno = MPIR_Ialltoallw_sched_intra_inplace(sendbuf, sendcounts, sdispls,
sendtypes, recvbuf, recvcounts,
rdispls, recvtypes, comm_ptr, s);
break;
case MPIR_CVAR_IALLTOALLW_INTRA_ALGORITHM_auto:
MPL_FALLTHROUGH;
default:
mpi_errno = MPIR_Ialltoallw_sched_intra_auto(sendbuf, sendcounts, sdispls,
sendtypes, recvbuf, recvcounts,
rdispls, recvtypes, comm_ptr, s);
break;
}
} else {
/* intercommunicator */
switch (MPIR_CVAR_IALLTOALLW_INTER_ALGORITHM) {
case MPIR_CVAR_IALLTOALLW_INTER_ALGORITHM_pairwise_exchange:
mpi_errno =
MPIR_Ialltoallw_sched_inter_pairwise_exchange(sendbuf, sendcounts, sdispls,
sendtypes, recvbuf, recvcounts,
rdispls, recvtypes, comm_ptr, s);
break;
case MPIR_CVAR_IALLTOALLW_INTER_ALGORITHM_auto:
MPL_FALLTHROUGH;
default:
mpi_errno = MPIR_Ialltoallw_sched_inter_auto(sendbuf, sendcounts, sdispls,
sendtypes, recvbuf, recvcounts,
rdispls, recvtypes, comm_ptr, s);
break;
}
}
return mpi_errno;
}
