Home
last modified time | relevance | path

Searched refs:pcis (Results 1 – 10 of 10) sorted by relevance

/petsc/src/ksp/pc/impls/is/
H A Dpcis.c5 PC_IS *pcis = (PC_IS *)pc->data; in PCISSetUseStiffnessScaling_IS() local
8 pcis->use_stiffness_scaling = use; in PCISSetUseStiffnessScaling_IS()
39 PC_IS *pcis = (PC_IS *)pc->data; in PCISSetSubdomainDiagonalScaling_IS() local
43 PetscCall(VecDestroy(&pcis->D)); in PCISSetSubdomainDiagonalScaling_IS()
44 pcis->D = scaling_factors; in PCISSetSubdomainDiagonalScaling_IS()
48 PetscCall(VecGetSize(pcis->D, &sn)); in PCISSetSubdomainDiagonalScaling_IS()
49 if (sn == pcis->n) { in PCISSetSubdomainDiagonalScaling_IS()
50 … PetscCall(VecScatterBegin(pcis->N_to_B, pcis->D, pcis->vec1_B, INSERT_VALUES, SCATTER_FORWARD)); in PCISSetSubdomainDiagonalScaling_IS()
51 PetscCall(VecScatterEnd(pcis->N_to_B, pcis->D, pcis->vec1_B, INSERT_VALUES, SCATTER_FORWARD)); in PCISSetSubdomainDiagonalScaling_IS()
52 PetscCall(VecDestroy(&pcis->D)); in PCISSetSubdomainDiagonalScaling_IS()
[all …]
/petsc/src/ksp/pc/impls/is/nn/
H A Dnn.c42 PC_IS *pcis = (PC_IS *)pc->data; in PCApply_NN() local
44 Vec w = pcis->vec1_global; in PCApply_NN()
52 PetscCall(VecScatterBegin(pcis->global_to_D, r, pcis->vec1_D, INSERT_VALUES, SCATTER_FORWARD)); in PCApply_NN()
53 PetscCall(VecScatterEnd(pcis->global_to_D, r, pcis->vec1_D, INSERT_VALUES, SCATTER_FORWARD)); in PCApply_NN()
54 PetscCall(KSPSolve(pcis->ksp_D, pcis->vec1_D, pcis->vec2_D)); in PCApply_NN()
60 PetscCall(MatMult(pcis->A_BI, pcis->vec2_D, pcis->vec1_B)); in PCApply_NN()
61 PetscCall(VecScale(pcis->vec1_B, m_one)); in PCApply_NN()
63 PetscCall(VecScatterBegin(pcis->global_to_B, pcis->vec1_B, w, ADD_VALUES, SCATTER_REVERSE)); in PCApply_NN()
64 PetscCall(VecScatterEnd(pcis->global_to_B, pcis->vec1_B, w, ADD_VALUES, SCATTER_REVERSE)); in PCApply_NN()
69 …Preconditioner(pc, w, z, pcis->work_N, pcis->vec1_B, pcis->vec2_B, pcis->vec3_B, pcis->vec1_D, pci… in PCApply_NN()
[all …]
H A Dnn.h10 PC_IS pcis; member
/petsc/src/ksp/pc/impls/bddc/
H A Dbddc.c124 PC_IS *pcis = (PC_IS *)pc->data; in PCView_BDDC() local
190 PetscCall(VecSet(pcis->vec1_B, 1.0)); in PCView_BDDC()
193 …PetscCall(VecScatterBegin(pcis->global_to_B, pcis->vec1_B, counter, INSERT_VALUES, SCATTER_REVERSE… in PCView_BDDC()
194 …PetscCall(VecScatterEnd(pcis->global_to_B, pcis->vec1_B, counter, INSERT_VALUES, SCATTER_REVERSE)); in PCView_BDDC()
201 loc[0] = !!pcis->n; in PCView_BDDC()
202 loc[1] = pcis->n - pcis->n_B; in PCView_BDDC()
203 loc[2] = pcis->n_B; in PCView_BDDC()
205 loc[4] = pcis->n; in PCView_BDDC()
206 … = pcbddc->n_local_subs > 0 ? pcbddc->n_local_subs : (pcis->n ? 1 : 0); in PCView_BDDC()
1206 PC_IS *pcis = (PC_IS *)pc->data; in PCPreSolve_BDDC() local
[all …]
H A Dbddcscalingbasic.c47 PC_IS *pcis = (PC_IS *)pc->data; in PCBDDCScalingExtension_Basic() local
52 PetscCall(VecPointwiseMult(pcbddc->work_scaling, pcis->D, local_interface_vector)); in PCBDDCScalingExtension_Basic()
54 …PetscCall(VecScatterBegin(pcis->global_to_B, pcbddc->work_scaling, global_vector, ADD_VALUES, SCAT… in PCBDDCScalingExtension_Basic()
55 …PetscCall(VecScatterEnd(pcis->global_to_B, pcbddc->work_scaling, global_vector, ADD_VALUES, SCATTE… in PCBDDCScalingExtension_Basic()
61 PC_IS *pcis = (PC_IS *)pc->data; in PCBDDCScalingExtension_Deluxe() local
73 PetscCall(VecGetArrayRead(pcis->D, &array_D)); in PCBDDCScalingExtension_Deluxe()
77 PetscCall(VecRestoreArrayRead(pcis->D, &array_D)); in PCBDDCScalingExtension_Deluxe()
123 …PetscCall(VecScatterBegin(pcis->global_to_B, pcbddc->work_scaling, y, ADD_VALUES, SCATTER_REVERSE)… in PCBDDCScalingExtension_Deluxe()
124 PetscCall(VecScatterEnd(pcis->global_to_B, pcbddc->work_scaling, y, ADD_VALUES, SCATTER_REVERSE)); in PCBDDCScalingExtension_Deluxe()
143 PC_IS *pcis = (PC_IS *)pc->data; in PCBDDCScalingRestriction_Basic() local
[all …]
H A Dbddcfetidp.c120 PC_IS *pcis = (PC_IS *)fetidpmat_ctx->pc->data; in PCBDDCSetupFETIDPMatContext() local
233 PetscCall(VecSet(pcis->vec1_N, 0.0)); in PCBDDCSetupFETIDPMatContext()
243 dual_size = pcis->n_B - n_vertices; in PCBDDCSetupFETIDPMatContext()
251 PetscCall(PetscMalloc2(pcis->n, &count, pcis->n, &neighbours_set)); in PCBDDCSetupFETIDPMatContext()
252 for (i = 0, j = 0; i < pcis->n; i++) j += mat_graph->nodes[i].count; in PCBDDCSetupFETIDPMatContext()
253 if (pcis->n) PetscCall(PetscMalloc1(j, &neighbours_set[0])); in PCBDDCSetupFETIDPMatContext()
254 for (i = 0; i < pcis->n; i++) { in PCBDDCSetupFETIDPMatContext()
266 if (i != pcis->n - 1) neighbours_set[i + 1] = neighbours_set[i] + count[i]; in PCBDDCSetupFETIDPMatContext()
269 PetscCall(VecGetArray(pcis->vec1_N, &array)); in PCBDDCSetupFETIDPMatContext()
270 for (i = 0, s = 0; i < pcis->n; i++) { in PCBDDCSetupFETIDPMatContext()
[all …]
H A Dbddcprivate.c2136 PC_IS *pcis = (PC_IS *)pc->data; in PCBDDCBenignRemoveInterior() local
2149 PetscCall(VecScatterBegin(pcis->global_to_D, r, pcis->vec1_D, INSERT_VALUES, SCATTER_FORWARD)); in PCBDDCBenignRemoveInterior()
2150 PetscCall(VecScatterEnd(pcis->global_to_D, r, pcis->vec1_D, INSERT_VALUES, SCATTER_FORWARD)); in PCBDDCBenignRemoveInterior()
2152 PetscCall(KSPSolve(pcbddc->ksp_D, pcis->vec1_D, pcis->vec2_D)); in PCBDDCBenignRemoveInterior()
2154 PetscCall(KSPCheckSolve(pcbddc->ksp_D, pc, pcis->vec2_D)); in PCBDDCBenignRemoveInterior()
2156 PetscCall(VecScatterBegin(pcis->global_to_D, pcis->vec2_D, z, INSERT_VALUES, SCATTER_REVERSE)); in PCBDDCBenignRemoveInterior()
2157 PetscCall(VecScatterEnd(pcis->global_to_D, pcis->vec2_D, z, INSERT_VALUES, SCATTER_REVERSE)); in PCBDDCBenignRemoveInterior()
2263 PC_IS *pcis = (PC_IS *)pc->data; in PCBDDCBenignShellMat() local
2275 PetscCall(PetscMalloc1(pcis->n, &work)); in PCBDDCBenignShellMat()
2277 PetscCall(MatSetSizes(A_IB, pcis->n - pcis->n_B, pcis->n_B, PETSC_DECIDE, PETSC_DECIDE)); in PCBDDCBenignShellMat()
[all …]
/petsc/src/ksp/ksp/impls/fetidp/
H A Dfetidp.c261 PC_IS *pcis = (PC_IS *)fetidp->innerbddc->data; in KSPFETIDPCheckOperators() local
341 PetscCall(VecSet(pcis->vec1_N, 1.0)); in KSPFETIDPCheckOperators()
342 PetscCall(VecSet(pcis->vec1_global, 0.0)); in KSPFETIDPCheckOperators()
343 …PetscCall(VecScatterBegin(matis->rctx, pcis->vec1_N, pcis->vec1_global, ADD_VALUES, SCATTER_REVERS… in KSPFETIDPCheckOperators()
344 …PetscCall(VecScatterEnd(matis->rctx, pcis->vec1_N, pcis->vec1_global, ADD_VALUES, SCATTER_REVERSE)… in KSPFETIDPCheckOperators()
350 …PetscCall(VecScatterBegin(fetidpmat_ctx->g2g_p, fetidp_global, pcis->vec1_global, ADD_VALUES, SCAT… in KSPFETIDPCheckOperators()
351 …PetscCall(VecScatterEnd(fetidpmat_ctx->g2g_p, fetidp_global, pcis->vec1_global, ADD_VALUES, SCATTE… in KSPFETIDPCheckOperators()
352 …PetscCall(VecScatterBegin(fetidpmat_ctx->g2g_p, pcis->vec1_global, fetidp_global, INSERT_VALUES, S… in KSPFETIDPCheckOperators()
353 …PetscCall(VecScatterEnd(fetidpmat_ctx->g2g_p, pcis->vec1_global, fetidp_global, INSERT_VALUES, SCA… in KSPFETIDPCheckOperators()
365 PetscCall(VecSetRandom(pcis->vec1_N, NULL)); in KSPFETIDPCheckOperators()
[all …]
/petsc/include/petsc/private/
H A Dpcbddcimpl.h26 PC_IS pcis; member
/petsc/systems/Apple/iOS/PETSc/PETSc.xcodeproj/
H A Dproject.pbxproj717 …D89D1F46207AA1AC00FACC19 /* pcis.c in Sources */ = {isa = PBXBuildFile; fileRef = D89D1C5E207AA1AB…
1469 …D1C5E207AA1AB00FACC19 /* pcis.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType …
2240 D89D1C5E207AA1AB00FACC19 /* pcis.c */,
2676 D89D1F46207AA1AC00FACC19 /* pcis.c in Sources */,