MPI_Comm_spawn问题（求解答）

最新推荐文章于 2023-08-29 22:09:25 发布

VIP文章 mmmyqmmm

最新推荐文章于 2023-08-29 22:09:25 发布

阅读量2.2k

点赞数 1

分类专栏：并行计算

本文链接：https://blog.csdn.net/qiang_yang/article/details/30714997

版权

MPI_Comm_spawn问题（临时解决方法，求高人解答）

最近用到MPI中的自动创建进程，我的程序要求是，在一个循环中，每次循环算法自己决定需要创建的进程个数，然后调用MPI_Comm_spawn创建进程。我的部分原始代码如下：

父进程部分代码

                while( loop_times < MAX_LOOP )
                {

                    loop_times++;

                    if( Change_Dim_Size )
                    {
                        Change_Dim_Size = false;
                        // select the dimension size of each subspace
                        rand_sub_dim = group_dim_size[ random_int_num() ];
                        group_size = dim / rand_sub_dim; // determine the number of child processes

                    }

                    // create child process
                    MPI_Comm_spawn(child, MPI_ARGV_NULL, group_size, MPI_INFO_NULL, 0, MPI_COMM_SELF, &intercomm, MPI_ERRCODES_IGNORE);


                    MPI_Intercomm_merge(intercomm, 0, &intracomm);

                    //broadcast the function number to every child process
                    MPI_Bcast(&funToRun[k], 1, MPI_INT, 0, intracomm );

                    //broadcast the size to every child process
                    MPI_Bcast( &rand_sub_dim, 1, MPI_INT, 0, intracomm );

                    //broadcast the size to every child process
                    MPI_Bcast( final_global_best, dim, MPI_DOUBLE, 0, intracomm );


                    // shuffle the permutation of all dimensions
                    random_shuffle( dim_index, dim_index + dim );
                    //MPI_Bcast( dim_index, dim, MPI_INT, 0, MPI_COMM_WORLD );

                    int *buffer = new int[ rand_sub_dim ];
                    double *send_population = new double[rand_sub_dim * Population_size];
                    double *send_personal_best = new doubl