33 static PetscErrorCode CreateElemRestrColloc_CompMajor(Ceed ceed, CeedInt num_comp, CeedBasis basis,…  in CreateElemRestrColloc_CompMajor()  argument
38   PetscCallCeed(ceed, CeedBasisGetNumQuadraturePoints(basis, &num_elem_qpts));  in CreateElemRestrColloc_CompMajor()
39   PetscCallCeed(ceed, CeedElemRestrictionGetNumElements(elem_restr_base, &loc_num_elem));  in CreateElemRestrColloc_CompMajor()
42 …PetscCallCeed(ceed, CeedElemRestrictionCreateStrided(ceed, loc_num_elem, num_elem_qpts, num_comp, …  in CreateElemRestrColloc_CompMajor()
49   Ceed                 ceed;  in SetupMontiorTotalKineticEnergy()  local
66   ceed = honee->ceed;  in SetupMontiorTotalKineticEnergy()
74     PetscCallCeed(ceed, CeedOperatorCompositeGetSubList(main_op, &sub_ops));  in SetupMontiorTotalKineticEnergy()
75     PetscCallCeed(ceed, CeedOperatorGetContext(sub_ops[sub_op_index], &newt_qfctx));  in SetupMontiorTotalKineticEnergy()
77 …PetscCall(QDataGet(ceed, honee->dm, DMLABEL_DEFAULT, DMLABEL_DEFAULT_VALUE, &elem_restr_qd, &q_dat…  in SetupMontiorTotalKineticEnergy()
78 …PetscCall(DMPlexCeedElemRestrictionCreate(ceed, honee->dm, DMLABEL_DEFAULT, DMLABEL_DEFAULT_VALUE,…  in SetupMontiorTotalKineticEnergy()
79 …PetscCall(DMPlexCeedBasisCreate(ceed, honee->dm, DMLABEL_DEFAULT, DMLABEL_DEFAULT_VALUE, 0, 0, &ba…  in SetupMontiorTotalKineticEnergy()
80 …PetscCall(CreateElemRestrColloc_CompMajor(ceed, num_comp_totalke, basis_q, elem_restr_q, &elem_res…  in SetupMontiorTotalKineticEnergy()
81   PetscCallCeed(ceed, CeedElemRestrictionGetNumComponents(elem_restr_q, &num_comp_q));  in SetupMontiorTotalKineticEnergy()
85 …PetscCallCeed(ceed, CeedQFunctionCreateInterior(ceed, 1, MonitorTotalKineticEnergy_Prim, MonitorTo…  in SetupMontiorTotalKineticEnergy()
88       PetscCallCeed(ceed,  in SetupMontiorTotalKineticEnergy()
89 …CeedQFunctionCreateInterior(ceed, 1, MonitorTotalKineticEnergy_Conserv, MonitorTotalKineticEnergy_…  in SetupMontiorTotalKineticEnergy()
92       PetscCallCeed(ceed,  in SetupMontiorTotalKineticEnergy()
93 …CeedQFunctionCreateInterior(ceed, 1, MonitorTotalKineticEnergy_Entropy, MonitorTotalKineticEnergy_…  in SetupMontiorTotalKineticEnergy()
97   PetscCallCeed(ceed, CeedQFunctionSetContext(qf_monitor, newt_qfctx));  in SetupMontiorTotalKineticEnergy()
98   PetscCallCeed(ceed, CeedQFunctionAddInput(qf_monitor, "q", num_comp_q, CEED_EVAL_INTERP));  in SetupMontiorTotalKineticEnergy()
99 …PetscCallCeed(ceed, CeedQFunctionAddInput(qf_monitor, "Grad_q", num_comp_q * dim, CEED_EVAL_GRAD));  in SetupMontiorTotalKineticEnergy()
100   PetscCallCeed(ceed, CeedQFunctionAddInput(qf_monitor, "q_data", q_data_size, CEED_EVAL_NONE));  in SetupMontiorTotalKineticEnergy()
101   PetscCallCeed(ceed, CeedQFunctionAddOutput(qf_monitor, "v", num_comp_totalke, CEED_EVAL_NONE));  in SetupMontiorTotalKineticEnergy()
103   PetscCallCeed(ceed, CeedOperatorCreate(ceed, qf_monitor, NULL, NULL, &op_monitor));  in SetupMontiorTotalKineticEnergy()
104 …PetscCallCeed(ceed, CeedOperatorSetField(op_monitor, "q", elem_restr_q, basis_q, CEED_VECTOR_ACTIV…  in SetupMontiorTotalKineticEnergy()
105 …PetscCallCeed(ceed, CeedOperatorSetField(op_monitor, "Grad_q", elem_restr_q, basis_q, CEED_VECTOR_…  in SetupMontiorTotalKineticEnergy()
106 …PetscCallCeed(ceed, CeedOperatorSetField(op_monitor, "q_data", elem_restr_qd, CEED_BASIS_NONE, q_d…  in SetupMontiorTotalKineticEnergy()
107 …PetscCallCeed(ceed, CeedOperatorSetField(op_monitor, "v", elem_restr_totalke, CEED_BASIS_NONE, CEE…  in SetupMontiorTotalKineticEnergy()
109 …PetscCall(OperatorApplyContextCreate(honee->dm, NULL, ceed, op_monitor, NULL, NULL, NULL, NULL, &m…  in SetupMontiorTotalKineticEnergy()
121   PetscCallCeed(ceed, CeedQFunctionContextDestroy(&newt_qfctx));  in SetupMontiorTotalKineticEnergy()
122   PetscCallCeed(ceed, CeedElemRestrictionDestroy(&elem_restr_qd));  in SetupMontiorTotalKineticEnergy()
123   PetscCallCeed(ceed, CeedElemRestrictionDestroy(&elem_restr_q));  in SetupMontiorTotalKineticEnergy()
124   PetscCallCeed(ceed, CeedElemRestrictionDestroy(&elem_restr_totalke));  in SetupMontiorTotalKineticEnergy()
125   PetscCallCeed(ceed, CeedBasisDestroy(&basis_q));  in SetupMontiorTotalKineticEnergy()
126   PetscCallCeed(ceed, CeedVectorDestroy(&q_data));  in SetupMontiorTotalKineticEnergy()
127   PetscCallCeed(ceed, CeedQFunctionDestroy(&qf_monitor));  in SetupMontiorTotalKineticEnergy()
128   PetscCallCeed(ceed, CeedOperatorDestroy(&op_monitor));  in SetupMontiorTotalKineticEnergy()