如何让一个进程终止其他进程？

Question

我正在尝试与MPI并行化一个“搜索问题”，在那里你迭代几个元素并检查它们是否验证某个属性，如果有的话（其中几个可以验证属性，但你只需要一个）你返回它并完成了。 在对代码进行并列化时，我在进程之间拆分元素，但是，当找到一个元素时，我希望其他进程停止搜索，因此不会浪费时间。

我已经尝试过使用MPI_ISend和MPI_IRecv，因此每个进程在搜索元素时会定期检查，如果另一个进程发送了一条消息告诉他们已找到一个消息，并且如果它收到消息，它将退出其循环。

int search(...) {
    int meh,out = 0;
    MPI_Request req;
    MPI_Irecv(&meh, 1, MPI_INT, MPI_ANY_SOURCE,0, MPI_COMM_WORLD, &req);

    for(int i = 0 ; i < max_tries && out == 0; i++){
       test element
       if (found) return found;
       MPI_Test(&req,&fuera,MPI_IGNORE_STATUS); 
    }

    return -1;
}

int main() {
    MPI_Init(NULL, NULL);
    int world_size;
    MPI_Comm_size(MPI_COMM_WORLD, &world_size);
    int world_rank;
    MPI_Comm_rank(MPI_COMM_WORLD, &world_rank);

    int result = search(...)
    if(result != -1) {
        for (int i = 0; i < world_size; i++) {
            MPI_Request req;
            int ok = 51914
            if (i != world_rank) {
            MPI_Isend(&ok,1,MPI_INT,i,0,MPI_COMM_WORLD,&req);
            MPI_Request_free(req);
            }
        }
        cout << result << endl;
     }

    MPI_Finalize();


    return 0;
}

似乎工作正常，但是，在（罕见的，但可能的）两个进程“同时”找到一个元素的情况下，它们都到达了消息发送部分，发送“有人找到了它！” 消息两次，打印他们找到的elemend，并且在所有这些之后，之前没有，程序崩溃，出现MPI错误，说有分段错误。 它可以工作，我得到的结果，但它是丑陋的，并且，只为自己编写丑陋的代码而不显示它我只会使用MPI_Abort。

谢谢你的帮助。