Lines Matching refs:bc_def
37 …comm, const char *name, PetscInt num_label_values, PetscInt label_values[], BCDefinition *bc_def) { in BCDefinitionCreate() argument
50 *bc_def = bc_def_; in BCDefinitionCreate()
59 PetscErrorCode BCDefinitionDestroy(BCDefinition *bc_def) { in BCDefinitionDestroy() argument
60 BCDefinition bc_def_ = *bc_def; in BCDefinitionDestroy()
71 *bc_def = NULL; in BCDefinitionDestroy()
85 PetscErrorCode BCDefinitionView(BCDefinition bc_def, PetscViewer viewer) { in BCDefinitionView() argument
91 PetscValidHeaderSpecific(bc_def, BC_DEFINITION_CLASSID, 1); in BCDefinitionView()
93 if (!viewer) PetscCall(PetscViewerASCIIGetStdout(PetscObjectComm((PetscObject)bc_def), &viewer)); in BCDefinitionView()
96 PetscCallMPI(MPI_Comm_size(PetscObjectComm((PetscObject)bc_def), &size)); in BCDefinitionView()
103 PetscCall(PetscObjectPrintClassNamePrefixType((PetscObject)bc_def, viewer)); in BCDefinitionView()
106 if (is_detailed) PetscCall(DMView(bc_def->dm, viewer)); in BCDefinitionView()
107 PetscCall(PetscViewerASCIIPrintf(viewer, "DM Field: %" PetscInt_FMT "\n", bc_def->dm_field)); in BCDefinitionView()
110 if (bc_def->num_label_values > 0) { in BCDefinitionView()
111 for (PetscInt i = 0; i < bc_def->num_label_values; i++) { in BCDefinitionView()
112 PetscCall(PetscViewerASCIIPrintf(viewer, " %" PetscInt_FMT, bc_def->label_values[i])); in BCDefinitionView()
122 if (bc_def->num_essential_comps > 0) { in BCDefinitionView()
123 for (PetscInt i = 0; i < bc_def->num_essential_comps; i++) { in BCDefinitionView()
124 PetscCall(PetscViewerASCIIPrintf(viewer, " %" PetscInt_FMT, bc_def->essential_comps[i])); in BCDefinitionView()
144 PetscErrorCode BCDefinitionViewFromOptions(BCDefinition bc_def, PetscObject obj, const char name[])… in BCDefinitionViewFromOptions() argument
146 PetscValidHeaderSpecific(bc_def, BC_DEFINITION_CLASSID, 1); in BCDefinitionViewFromOptions()
147 PetscCall(PetscObjectViewFromOptions((PetscObject)bc_def, obj, name)); in BCDefinitionViewFromOptions()
159 PetscErrorCode BCDefinitionGetInfo(BCDefinition bc_def, const char *name[], PetscInt *num_label_val… in BCDefinitionGetInfo() argument
161 PetscValidHeaderSpecific(bc_def, BC_DEFINITION_CLASSID, 1); in BCDefinitionGetInfo()
164 *name = bc_def->name; in BCDefinitionGetInfo()
169 *num_label_values = bc_def->num_label_values; in BCDefinitionGetInfo()
170 *label_values = bc_def->label_values; in BCDefinitionGetInfo()
182 PetscErrorCode BCDefinitionSetEssential(BCDefinition bc_def, PetscInt num_essential_comps, PetscInt… in BCDefinitionSetEssential() argument
184 PetscValidHeaderSpecific(bc_def, BC_DEFINITION_CLASSID, 1); in BCDefinitionSetEssential()
185 bc_def->num_essential_comps = num_essential_comps; in BCDefinitionSetEssential()
186 PetscCall(PetscMalloc1(num_essential_comps, &bc_def->essential_comps)); in BCDefinitionSetEssential()
187 PetscCall(PetscArraycpy(bc_def->essential_comps, essential_comps, num_essential_comps)); in BCDefinitionSetEssential()
198 PetscErrorCode BCDefinitionGetEssential(BCDefinition bc_def, PetscInt *num_essential_comps, const P… in BCDefinitionGetEssential() argument
200 PetscValidHeaderSpecific(bc_def, BC_DEFINITION_CLASSID, 1); in BCDefinitionGetEssential()
203 *num_essential_comps = bc_def->num_essential_comps; in BCDefinitionGetEssential()
204 *essential_comps = bc_def->essential_comps; in BCDefinitionGetEssential()
212 … const char name[], BCDefinition *bc_def, PetscBool *set) { in PetscOptionsBCDefinition_Private() argument
218 …scCall(BCDefinitionCreate(PetscOptionsObject->comm, name, num_label_values, label_values, bc_def)); in PetscOptionsBCDefinition_Private()
220 *bc_def = NULL; in PetscOptionsBCDefinition_Private()
231 PetscErrorCode BCDefinitionSetDM(BCDefinition bc_def, DM dm) { in BCDefinitionSetDM() argument
233 PetscValidHeaderSpecific(bc_def, BC_DEFINITION_CLASSID, 1); in BCDefinitionSetDM()
234 if (bc_def->dm) PetscCall(DMDestroy(&bc_def->dm)); in BCDefinitionSetDM()
238 bc_def->dm = dm; in BCDefinitionSetDM()
249 PetscErrorCode BCDefinitionGetDM(BCDefinition bc_def, DM *dm) { in BCDefinitionGetDM() argument
250 PetscValidHeaderSpecific(bc_def, BC_DEFINITION_CLASSID, 1); in BCDefinitionGetDM()
254 *dm = bc_def->dm; in BCDefinitionGetDM()
265 PetscErrorCode BCDefinitionSetContext(BCDefinition bc_def, PetscCtxDestroyFn *destroy_ctx, void *ct… in BCDefinitionSetContext() argument
267 PetscValidHeaderSpecific(bc_def, BC_DEFINITION_CLASSID, 1); in BCDefinitionSetContext()
268 if (bc_def->DestroyCtx) PetscCall((*bc_def->DestroyCtx)(&bc_def->ctx)); in BCDefinitionSetContext()
269 bc_def->ctx = ctx; in BCDefinitionSetContext()
270 bc_def->DestroyCtx = destroy_ctx; in BCDefinitionSetContext()
280 PetscErrorCode BCDefinitionGetContext(BCDefinition bc_def, void *ctx) { in BCDefinitionGetContext() argument
282 PetscValidHeaderSpecific(bc_def, BC_DEFINITION_CLASSID, 1); in BCDefinitionGetContext()
284 *(void **)ctx = bc_def->ctx; in BCDefinitionGetContext()
295 PetscErrorCode BCDefinitionSetIFunction(BCDefinition bc_def, BCDefinitionCreateQFunction create_qf,… in BCDefinitionSetIFunction() argument
297 PetscValidHeaderSpecific(bc_def, BC_DEFINITION_CLASSID, 1); in BCDefinitionSetIFunction()
298 bc_def->CreateIFunctionQF = create_qf; in BCDefinitionSetIFunction()
299 bc_def->AddIFunctionOperator = add_op; in BCDefinitionSetIFunction()
310 PetscErrorCode BCDefinitionSetIJacobian(BCDefinition bc_def, BCDefinitionCreateQFunction create_qf,… in BCDefinitionSetIJacobian() argument
312 PetscValidHeaderSpecific(bc_def, BC_DEFINITION_CLASSID, 1); in BCDefinitionSetIJacobian()
313 bc_def->CreateIJacobianQF = create_qf; in BCDefinitionSetIJacobian()
314 bc_def->AddIJacobianOperator = add_op; in BCDefinitionSetIJacobian()
327 PetscErrorCode BCDefinitionAddOperators(BCDefinition bc_def, CeedOperator op_ifunc, CeedOperator op… in BCDefinitionAddOperators() argument
335 PetscValidHeaderSpecific(bc_def, BC_DEFINITION_CLASSID, 1); in BCDefinitionAddOperators()
336 …if (!bc_def->CreateIFunctionQF || !bc_def->AddIFunctionOperator) PetscFunctionReturn(PETSC_SUCCESS… in BCDefinitionAddOperators()
337 …PetscBool add_ijac = (!bc_def->CreateIJacobianQF || !bc_def->AddIJacobianOperator || !op_ijac) ? P… in BCDefinitionAddOperators()
338 …PetscCheck(bc_def->dm, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONGSTATE, "BCDefinition must have DM set u… in BCDefinitionAddOperators()
340 PetscCall(bc_def->CreateIFunctionQF(bc_def, &qf_ifunction)); in BCDefinitionAddOperators()
341 if (add_ijac) PetscCall(bc_def->CreateIJacobianQF(bc_def, &qf_ijacobian)); in BCDefinitionAddOperators()
343 PetscCall(DMGetLabel(bc_def->dm, "Face Sets", &face_sets_label)); in BCDefinitionAddOperators()
344 PetscCall(BCDefinitionGetInfo(bc_def, NULL, &num_face_set_values, &face_set_values)); in BCDefinitionAddOperators()
352 … PetscCall(DMPlexCreateFaceLabel(bc_def->dm, face_set_values[f], &face_orientation_label_name)); in BCDefinitionAddOperators()
353 PetscCall(DMGetLabel(bc_def->dm, face_orientation_label_name, &face_orientation_label)); in BCDefinitionAddOperators()
356 …PetscCall(DMLabelCreateGlobalValueArray(bc_def->dm, face_orientation_label, &num_orientations_valu… in BCDefinitionAddOperators()
361 …PetscCall(bc_def->AddIFunctionOperator(bc_def, face_orientation_label, orientation, qf_ifunction, … in BCDefinitionAddOperators()
362 …if (add_ijac) PetscCall(bc_def->AddIJacobianOperator(bc_def, sub_op_ifunc, face_orientation_label,… in BCDefinitionAddOperators()