MPI点对点非阻塞式通信

/*MPI进程间点对点非阻塞通信*/
#include "mpi.h" /*MPI头函数，提供了MPI函数和数据类型定义*/
#include <stdio.h>

int main(int argc, char** argv)
{
    int rank;   //进程标识
    int size;   //进程总数
    int senddata;   //待发送数据缓存
    int recvdata;   //待接收数据缓存
    int flag_s, flag_r; //通信状态标志，0为通信未完成，1位通信已完成
    MPI_Status status_s, status_r;  //status object (Status)
    MPI_Request handle_s, handle_r; //MPI request (handle)

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

    /*初始化数据*/
    senddata = rank + 1;
    recvdata = 0;
    flag_s =