Home
last modified time | relevance | path

Searched refs:sred (Results 1 – 4 of 4) sorted by relevance

/petsc/src/ksp/pc/impls/telescope/
H A Dtelescope.c105 static DM private_PCTelescopeGetSubDM(PC_Telescope sred) in private_PCTelescopeGetSubDM() argument
109 if (!PCTelescope_isActiveRank(sred)) { in private_PCTelescopeGetSubDM()
112 switch (sred->sr_type) { in private_PCTelescopeGetSubDM()
117 subdm = ((PC_Telescope_DMDACtx *)sred->dm_ctx)->dmrepart; in private_PCTelescopeGetSubDM()
123 if (sred->ksp) PetscCallAbort(PETSC_COMM_SELF, KSPGetDM(sred->ksp, &subdm)); in private_PCTelescopeGetSubDM()
130 static PetscErrorCode PCTelescopeSetUp_default(PC pc, PC_Telescope sred) in PCTelescopeSetUp_default() argument
142 comm = PetscSubcommParent(sred->psubcomm); in PCTelescopeSetUp_default()
143 subcomm = PetscSubcommChild(sred->psubcomm); in PCTelescopeSetUp_default()
153 if (PCTelescope_isActiveRank(sred)) { in PCTelescopeSetUp_default()
163 if (PCTelescope_isActiveRank(sred)) PetscCall(VecDuplicate(xred, &yred)); in PCTelescopeSetUp_default()
[all …]
H A Dtelescope_coarsedm.c41 static PetscErrorCode PCTelescopeSetUp_scatters_CoarseDM(PC pc, PC_Telescope sred, PC_Telescope_Coa… in PCTelescopeSetUp_scatters_CoarseDM() argument
59 if (PCTelescope_isActiveRank(sred)) { in PCTelescopeSetUp_scatters_CoarseDM()
75 sred->xred = xred; in PCTelescopeSetUp_scatters_CoarseDM()
76 sred->yred = yred; in PCTelescopeSetUp_scatters_CoarseDM()
77 sred->isin = isin; in PCTelescopeSetUp_scatters_CoarseDM()
78 sred->scatter = scatter; in PCTelescopeSetUp_scatters_CoarseDM()
79 sred->xtmp = xtmp; in PCTelescopeSetUp_scatters_CoarseDM()
85 PetscErrorCode PCTelescopeSetUp_CoarseDM(PC pc, PC_Telescope sred) in PCTelescopeSetUp_CoarseDM() argument
95 sred->dm_ctx = (void *)ctx; in PCTelescopeSetUp_CoarseDM()
104 if (PCTelescope_isActiveRank(sred)) { in PCTelescopeSetUp_CoarseDM()
[all …]
H A Dtelescope_dmda.c123 static PetscErrorCode PCTelescopeSetUp_dmda_repart_coors2d(PC_Telescope sred, DM dm, DM subdm) in PCTelescopeSetUp_dmda_repart_coors2d() argument
135 …if (PCTelescope_isActiveRank(sred)) PetscCall(DMDASetUniformCoordinates(subdm, 0.0, 1.0, 0.0, 1.0,… in PCTelescopeSetUp_dmda_repart_coors2d()
145 if (PCTelescope_isActiveRank(sred)) { in PCTelescopeSetUp_dmda_repart_coors2d()
157 if (PCTelescope_isActiveRank(sred)) { in PCTelescopeSetUp_dmda_repart_coors2d()
182 if (PCTelescope_isActiveRank(sred)) { in PCTelescopeSetUp_dmda_repart_coors2d()
196 if (PCTelescope_isActiveRank(sred)) { in PCTelescopeSetUp_dmda_repart_coors2d()
214 static PetscErrorCode PCTelescopeSetUp_dmda_repart_coors3d(PC_Telescope sred, DM dm, DM subdm) in PCTelescopeSetUp_dmda_repart_coors3d() argument
227 …if (PCTelescope_isActiveRank(sred)) PetscCall(DMDASetUniformCoordinates(subdm, 0.0, 1.0, 0.0, 1.0,… in PCTelescopeSetUp_dmda_repart_coors3d()
238 if (PCTelescope_isActiveRank(sred)) { in PCTelescopeSetUp_dmda_repart_coors3d()
252 if (PCTelescope_isActiveRank(sred)) { in PCTelescopeSetUp_dmda_repart_coors3d()
[all …]
H A Dtelescope.h47 static inline PetscBool PCTelescope_isActiveRank(PC_Telescope sred) in PCTelescope_isActiveRank() argument
49 if (sred->psubcomm) return PetscSubcomm_isActiveRank(sred->psubcomm); in PCTelescope_isActiveRank()
51 if (sred->subcomm != MPI_COMM_NULL) return PETSC_TRUE; in PCTelescope_isActiveRank()