Searched refs:comm_k (Results 1 – 1 of 1) sorted by relevance
91 MPI_Comm comm_k = PetscSubcommChild(pscommlist[k + 1]); in CommHierarchyCreate() local92 if (pscommlist[k + 1]->color == 0) PetscCall(CommCoarsen(comm_k, number[k], &pscommlist[k])); in CommHierarchyCreate()103 MPI_Comm comm_k = PetscSubcommChild(pscommlist[k]); in CommHierarchyCreate() local106 PetscCallMPI(MPI_Comm_size(comm_k, &size)); in CommHierarchyCreate()107 PetscCall(PetscPrintf(comm_k, "level[%" PetscInt_FMT "] size %d\n", k, (int)size)); in CommHierarchyCreate()667 MPI_Comm comm_k = PetscSubcommChild(pscommlist[k]); in HierarchyCreate() local668 if (pscommlist[k]->color == 0) PetscCall(PetscCommDuplicate(comm_k, &commlist[k], NULL)); in HierarchyCreate()