我想创建一个新的通信器,它只保留在处理中使用的等级,如果我有 24 个可用处理器并且我只需要 10 个,那么该组应该只保留这 10 个,否则它将保留所有这些。出于某种原因,当我尝试创建一个通信器时,一切都会执行,但是一旦我尝试获取新通信器的大小或等级之类的东西,MPI 就会因错误而停止。
80 float **matrix;
81 int *ranksArr;
82 MPI_Comm default_comm;
83 MPI_Group world_grp, new_grp;
84 MPI_Comm_rank(MPI_COMM_WORLD, &proc_rank);
85 MPI_Comm_size(MPI_COMM_WORLD, &proc_avail);
86 MPI_Comm_group(MPI_COMM_WORLD, &world_grp);
91 compute_block_size(&block, proc_avail);
92
93 if(block.procsUsed == proc_avail)
94 {
95 ranksArr = alloc_ranks_arr(proc_avail);
96 }
97 else
98 {
99 ranksArr = alloc_ranks_arr(block.procsUsed);
100 proc_avail = block.procsUsed;
101 }
102
103 MPI_Group_incl(world_grp, proc_avail, ranksArr, &new_grp);
104 MPI_Comm_create(MPI_COMM_WORLD, new_grp, &default_comm);
105 //MPI_Comm_size(default_comm, &proc_avail); //ERROR, default_comm
106
107 MPI_Comm_rank(default_comm, &proc_rank);
108
111 matrix = create_matrix_sub(&block, proc_rank);
112
113
114 dealloc_matrix(matrix);
178 int* alloc_ranks_arr(int totalRanks)
179 {
180 int *ranksToGroup = malloc(totalRanks * sizeof(int));
181 int i;
182
183 for(i = 0; i < totalRanks ; i++)
184 {
185 ranksToGroup[i] = i;
186 }
187
188 return ranksToGroup;
189 }
[cluster-srv2:24701] * MPI_Comm_rank [cluster-srv2:24701] *在通信器 MPI_COMM_WORLD [cluster-srv2:24701] * MPI_ERR_COMM:无效通信器 [cluster-srv2:24701] * MPI_ERRORS_ARE_FATAL 中发生错误(您的 MPI 作业将现在中止)
它在文档中说:
MPI_ERR_COMM 无效的通讯器。一个常见的错误是在调用中使用空通信器(在 MPI_Comm_rank 中甚至不允许)。
但是我在调用 Comm_rank 之前创建了通信器,并且 MPI_Comm_create 的返回值给了我 MPI_SUCCESS。所以我不知道为什么会这样。