为什么当我使用 MPI_Send 和 MPI_Recv 时我的程序挂起？

Question

我在 MPICH2 中使用了一个简单的通信程序。当我使用 执行程序时

mpiexec.exe -hosts 2 o00 o01  -noprompt mesajlasma.exe

程序启动但没有结束。通过使用资源监视器程序，我可以看到它仍在主机“o01”上运行。当我按 CTRL + c 时，它就结束了。然后我可以看到我的程序运行正常，

为什么我的程序没有结束。卡在哪里了？为什么当我使用 MPI_Send 和 MPI_Recv 时我的程序挂起？

提前致谢

// mesajlasma.cpp

#include "stdafx.h"
#include "string.h"
#include "mpi.h"

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

    int  nTasks, rank;
    char mesaj[20];
    MPI_Status status;

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

    //printf ("\nNumber of threads = %d, My rank = %d\n", nTasks, rank);

    if(rank == 1)
    {
        strcpy_s(mesaj, "Hello World");
        if (MPI_SUCCESS==MPI_Send(mesaj, strlen(mesaj)+1, MPI_CHAR, 0, 99, MPI_COMM_WORLD)) printf("_OK!_\n");
    }


    if(rank == 0)
    {
        MPI_Recv(mesaj, 20, MPI_CHAR, 1, 99, MPI_COMM_WORLD, &status);
        printf("Received Message:%s\n", mesaj);
    }

    MPI_Finalize();

    return 0;
}

Answer 1

您可能还需要将 -n 2 之类的参数传递给 mpiexec.exe 命令，以指示它启动 2 个进程。我相信 -hosts 参数只是指定程序可以运行的主机的另一种方法，而不是指定将创建多少个进程。