MPI_Recv

来源:互联网 发布:mac virtualbox 拖拽 编辑:程序博客网 时间:2024/06/15 04:49
//Writed by YaoPu//connect via Email:yaopu@iccas.ac.cn#include"mpi.h"#include"stdio.h"#include"string.h"int main(int argc, char **argv){char message[20];int myrank;MPI_Status status;MPI_Init(&argc,&argv);MPI_Comm_rank(MPI_COMM_WORLD,&myrank);if(myrank==0){strcpy(message,"hello 1");MPI_Send(message,strlen(message),MPI_CHAR,1,99,MPI_COMM_WORLD);}else if(myrank==1){MPI_Recv(message,20,MPI_CHAR,0,99,MPI_COMM_WORLD,&status);printf("received :%s\n",message);}MPI_Finalize();return 0;}


0 0
原创粉丝点击