Searched refs:pscommlist (Results 1 – 1 of 1) sorted by relevance
79 …orCode CommHierarchyCreate(MPI_Comm comm, PetscInt n, PetscInt number[], PetscSubcomm pscommlist[]) in CommHierarchyCreate() argument85 for (k = 0; k < n; k++) pscommlist[k] = NULL; in CommHierarchyCreate()89 PetscCall(CommCoarsen(comm, number[n - 1], &pscommlist[n - 1])); in CommHierarchyCreate()91 MPI_Comm comm_k = PetscSubcommChild(pscommlist[k + 1]); in CommHierarchyCreate()92 if (pscommlist[k + 1]->color == 0) PetscCall(CommCoarsen(comm_k, number[k], &pscommlist[k])); in CommHierarchyCreate()102 if (pscommlist[k]) { in CommHierarchyCreate()103 MPI_Comm comm_k = PetscSubcommChild(pscommlist[k]); in CommHierarchyCreate()105 if (pscommlist[k]->color == 0) { in CommHierarchyCreate()632 PetscSubcomm *pscommlist; in HierarchyCreate() local652 PetscCall(PetscMalloc1(ncoarsen + 1, &pscommlist)); in HierarchyCreate()[all …]