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或派生数据类型来发送打包和最佳值。

MPI标记已禁用

1 个答案: