使用MPI_Sendrecv实现MPI_Allgather

MPI_Allgather函数的作用是从所有进程收集数据并将收集的数据分发到所有进程。其优点是在通信过程中，不必考虑哪个进程先发送还是先接收消息，从而可以避免消息传递过程中的死锁：

int main(int argc, char *argv[])
{
    int rank, size;
    MPI_Status status;
    int S[20], R[20];
    int i;

    MPI_Init(&argc, &argv);
    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
    MPI_Comm_size(MPI_COMM_WORLD, &size);

    for (i = 0; i<20; i++)
    {
        S[i] = (rank + 1)*(i + 1);
        R[i] = 0;
    }
    for (i = 0; i<size; i++){
            MPI_Sendrecv(S, 4, MPI_INT, i, 123, &R[i*4], 4, MPI_INT, i, 123, MPI_COMM_WORLD, &status);
    }

    MPI_Barrier(MPI_COMM_WORLD);
    cout << "the data on proc " << rank << " is " ;
    for (int i = 0; i < 20; i++) {
        cout << R[i] << " ";
    }
    MPI_Barrier(MPI_COMM_WORLD);
    MPI_Finalize();
    return 1;
}

需要注意的是：发送缓冲区和接收缓冲区不能相同。