MPI_WAITALL

MPI_WAITALL是一个MPI函数，用于等待一组非阻塞通信操作的完成。它的语法如下：

int MPI_Waitall(int count, MPI_Request array_of_requests[], MPI_Status array_of_statuses[]);

其中，count表示请求数组中的请求数量，array_of_requests是一个包含请求句柄的数组，array_of_statuses是一个用于存储请求状态的数组。

MPI_WAITALL函数会阻塞当前进程，直到所有的请求都完成。如果请求成功完成，MPI_WAITALL函数会返回MPI_SUCCESS，否则会返回一个错误码。

以下是一个使用MPI_WAITALL的示例：

#include <mpi.h>
#include <stdio.h>

int main(int argc, char** argv) {
    int rank, size;
    int send_buf[2], recv_buf[2];
    MPI_Request requests[2];
    MPI_Status statuses[2];

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

    // 发送和接收操作
    if (rank == 0) {
        send_buf[0] = 1;
        send_buf[1] = 2;
        MPI_Isend(send_buf, 2, MPI_INT, 1, 0, MPI_COMM_WORLD, &requests[0]);
        MPI_Irecv(recv_buf, 2, MPI_INT, 1, 1, MPI_COMM_WORLD, &requests[1]);
    } else if (rank == 1) {
        send_buf[0] = 3;
        send_buf[1] = 4;
        MPI_Isend(send_buf, 2, MPI_INT, 0, 1, MPI_COMM_WORLD, &requests[0]);
        MPI_Irecv(recv_buf, 2, MPI_INT, 0, 0, MPI_COMM_WORLD, &requests[1]);
    }

    // 等待所有请求完成
    MPI_Waitall(2, requests, statuses);

    // 打印接收到的数据
    printf("Rank %d received: %d %d\n", rank, recv_buf[0], recv_buf[1]);

    MPI_Finalize();
    return 0;
}

在上面的示例中，两个进程进行相互通信，进程0发送数据给进程1，进程1发送数据给进程0。MPI_Waitall函数用于等待所有的发送和接收操作完成，然后打印接收到的数据。