mpi的非阻塞通信程序,这个又称为异步通信。
分类 | 发送 | 接收 |
---|---|---|
阻塞通信 | MPI_Send MPI_Bsend MPI_RSend MPI_SSend | MPI_Recv MPI_Irecv MPI_Recv_Init |
非租塞通信 | MPI_Isend MPI_IBSend MPI_ISSend MPI_Send_Init MPI_Bsend_Init MPI_Bsend_Init MPI_RSend_Init MPI_SSend_Init | MPI_Recv MPI_Irecv MPI_Init |
避免死锁的一个解决办法就是将原来的send和receive成为非租塞的。我这里用的是MPI中的Isend和Ireceive。
#include <stdio.h>
#include <stdlib.h>
#include <mpi.h>
#include <math.h>
int main ( int argc ,char * argv[] )
{
int myid, numprocs ;
int tag, count ;
int buffer ;
MPI_Status status ;
MPI_Request request;
MPI_Init(&argc,&argv);
MPI_Comm_size(MPI_COMM_WORLD,&numprocs);
MPI_Comm_rank(MPI_COMM_WORLD,&myid);
tag=111;
count=1;
request=MPI_REQUEST_NULL;
if(myid == 0){
buffer=2020;
MPI_Isend(&buffer,count,MPI_INT,1,tag,
MPI_COMM_WORLD ,&request);
}
if(myid == 1){
MPI_Irecv(&buffer,count,MPI_INT,0,tag,
MPI_COMM_WORLD ,&request);
}
MPI_Wait ( & request ,& status );
if(myid == 0){
printf("processor %d received %d\n",myid,buffer);
}
if(myid == 1){
printf("processor %d received %d\n",myid,buffer);
}
MPI_Finalize();
}
在ubuntu中跑结果