我在 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;
}