简单的 MPI 程序答案

【问题标题】：Simple MPI Program简单的 MPI 程序
【发布时间】：2011-08-22 03:59:05
【问题描述】：

我正在尝试做一些 MPI，这是一个使用 MPI_Send、MPI_Recv（是的，阻塞）的简单程序。 Rank 0 向所有其他进程发送消息，其他进程接收它。但是，我的 MPI_Send 永远不会返回。我在这里错过了什么吗？谢谢！

#include<stdio.h>
#include<string.h>
#include<unistd.h>
#include"mpi.h"

int main(int argc, char **argv)
{

int rank, size, i;
MPI_Status status;
char message[20];
MPI_Init(&argc, &argv);
MPI_Comm_size(MPI_COMM_WORLD, &size);
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
strcpy(message, "Hello, world");
if (rank==0){
   for(i=1;i<size;i++){

         printf("I am sending %s\n", message);
         MPI_Send(message, 23, MPI_BYTE, 0, 7, MPI_COMM_WORLD);
         printf("Sending node=%d, message=%s\n", rank, message);
 }
}
else{
                     MPI_Recv(message, 23, MPI_BYTE, MPI_ANY_SOURCE, 7, MPI_COMM_WORLD,&status);
                     printf("Receiving node=%d, message=%s\n", rank, message);
 }
MPI_Finalize();
return 0;
}

【问题讨论】：

标签： c mpi

【解决方案1】：

您正在向自己发送消息：

MPI_Send(message, 23, MPI_BYTE, 0, 7, MPI_COMM_WORLD);

我认为应该是这样的

MPI_Send(message, 23, MPI_BYTE, i, 7, MPI_COMM_WORLD);

【讨论】：

【解决方案2】：

正如@cnicutar 指出的那样，进程0 正在向自己发送消息。然而，在我看来，MPI_Bcast 将是一个更好的选择。它肯定会简单得多，因为它同时充当“发送”和“接收”方法。

【讨论】：