MPI 标签已禁用

Question

我正在使用 MPI 编写背包问题解决器。打包的当前最佳值作为消息上的标签发送。但是，程序因“MPI_ERR_TAG：无效标记”而崩溃。每当执行时。在阅读了一些 MPI 文档后，似乎标签必须是非负的并且小于常量 MPI_TAG_UB。在检查 MPI_TAG_UB 时，我发现它被设置为零，从而使所有标签无效。为什么会这样呢？我必须以某种方式自己设置这个值吗？

附件是一小段代码，它打印“MPI_TAG_UB = 0”并在我的系统上中止。

#include <stdlib.h>
#include <stdio.h>
#include <mpi.h>

struct P {
    char choices[64];
    int next_choice;
};

typedef struct P Packing;

int main(int argc,char** argv) {
    int rank;
    MPI_Datatype PACKING_TYPE;
    MPI_Init(&argc,&argv);
    MPI_Comm_rank(MPI_COMM_WORLD,&rank);

    /*Defines a new MPI datatype tag for Packings.*/
    int field_count = 2;
    int field_lengths[2] = {64,1};
    MPI_Aint field_offsets[2];
    field_offsets[0] = 0;
    field_offsets[1] = 64;
    MPI_Datatype field_types[2] = {MPI_CHAR,MPI_INT};
    MPI_Type_struct(field_count,field_lengths,
        field_offsets,field_types,&PACKING_TYPE);
    MPI_Type_commit(&PACKING_TYPE);

    int tag = 1;
    if (rank == 0) {
        Packing pack;
        printf("MPI_TAG_UB = %d\n",MPI_TAG_UB);
        if(MPI_TAG_UB == 0) {
            fprintf(stderr,"Tags disabled!\n");
            abort();
        }
        MPI_Send(&pack,1,PACKING_TYPE,1,tag,MPI_COMM_WORLD);
        puts("Process 0 sent message.");
    }

    if (rank == 1) {
        Packing pack;
        MPI_Status status;
        MPI_Recv(&pack,1,PACKING_TYPE,MPI_ANY_SOURCE,
                MPI_ANY_TAG,MPI_COMM_WORLD,&status);
        puts("Process 1 recieved message.");
    }

    MPI_Type_free(&PACKING_TYPE);
    MPI_Finalize();
    return 0;
}

Answer 1

MPI_TAG_UB本身并不是一个实际定义的值，而是一个环境查询键。不幸的是你需要另一个间接的。要检查它，您可以使用：

MPI_Aint* tag_ub_ptr;
MPI_Comm_get_attr(MPI_COMM_WORLD, MPI_TAG_UB, &tag_ub_ptr, &flag);
printf("TAG_UB is %d\n", *tag_ub_ptr);

此外，它保证至少为 32767 并且包含在内。

我不建议使用标签作为实际数据值。这不是它的目的，以这种方式滥用它可能会让您付出一些原本可以实现的优化的代价。您可以使用 PACK/UNPACK 或派生数据类型来发送打包和最佳值。