Searched refs:commlist (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex73.c | 633 MPI_Comm *commlist; in HierarchyCreate() local
655 PetscCall(PetscMalloc1(ndecomps, &commlist)); in HierarchyCreate()
656 for (k = 0; k < ndecomps; k++) commlist[k] = MPI_COMM_NULL; in HierarchyCreate()
668 if (pscommlist[k]->color == 0) PetscCall(PetscCommDuplicate(comm_k, &commlist[k], NULL)); in HierarchyCreate()
671 PetscCall(PetscCommDuplicate(PETSC_COMM_WORLD, &commlist[ndecomps - 1], NULL)); in HierarchyCreate()
683 if (commlist[d] != MPI_COMM_NULL) { in HierarchyCreate()
684 …PetscCall(DMDACreate2d(commlist[d], DM_BOUNDARY_NONE, DM_BOUNDARY_NONE, DMDA_STENCIL_STAR, nx, nx,… in HierarchyCreate()
697 if (commlist[d] != MPI_COMM_NULL) { in HierarchyCreate()
714 if (commlist[d] != MPI_COMM_NULL) { in HierarchyCreate()
715 PetscCall(UserContextCreate(commlist[d], &ctx)); in HierarchyCreate()
[all …]
|