Question

我有一段代码，遗憾的是，我无法运行它，但我试图在逻辑上找出它是否有错误。或者如果缺少某些东西，这里是

代码：

main(int argc, char *argv[]) {
    int numtasks, rank, dest, source, rc, count, tag=1;
    char inmsg, outmsg=’x’;
    MPI_Status Stat;
    MPI_Init(&argc,&argv);
    MPI_Comm_size(MPI_COMM_WORLD, &numtasks);
    MPI_Comm_rank(MPI_COMM_WORLD, &rank);

    if (rank == 0) {
        dest = 1;
        source = 1;
        rc = MPI_Send(&outmsg, 1, MPI_CHAR, dest, tag, MPI_COMM_WORLD);
        rc = MPI_Recv(&inmsg, 1, MPI_CHAR, source, tag, MPI_COMM_WORLD, &Stat);
    }
    else if (rank == 1) {
        dest = 0;
        source = 0;
        rc = MPI_Send(&outmsg, 1, MPI_CHAR, dest, tag, MPI_COMM_WORLD);
        rc = MPI_Recv(&inmsg, 1, MPI_CHAR, source, tag, MPI_COMM_WORLD, &Stat);
    }

    rc = MPI_Get_count(&Stat, MPI_CHAR, &count);
    printf("Task %d: Received %d char(s) from task %d with tag %d \n",
    rank, count, Stat.MPI_SOURCE, Stat.MPI_TAG);
    MPI_Finalize();
}

并且，是否允许在变量中保存MPI发送和接收，这里使用了rc？

Answer 1

你的代码错了。它包含一个死锁，这意味着它可以永久挂起或者行为不端。 MPI_Send是一个阻止操作 - 它可能会阻塞，直到调用相应的MPI_Recv。因此，在调用MPI_Send之前，两个进程都将停留在各自的MPI_Recv操作中。请改用MPI_Sendrecv。

请注意，由于优化，MPI可能会选择立即为小消息发送数据，因此代码可能会完成，即使它是错误的。不要依赖它！

通常，您不必检查MPI返回码，因为默认情况下MPI中的错误是致命的。特别是，不要在不检查MPI_SUCCESS的情况下分配返回代码。

请注意，您可以在任何系统上轻松安装MPI，例如OpenMPI适用于大多数Linux发行版。没有理由不在普通桌面系统上使用MPI。

MPI代码错误检查

1 个答案: