225 {
227
228 int nb_integration_pts = OP::getGaussPts().size2();
229
230 auto get_tag = [&]() {
232 for (
const auto &tag_range_pair : *(
physicalPtr->tagVsRangePtr)) {
233 if (tag_range_pair.second.find(DomainEleOp::getFEEntityHandle()) !=
234 tag_range_pair.second.end()) {
235 return tag_range_pair.first;
236 }
237 }
238 }
239#ifndef NDEBUG
242 "ADOL-C tag not found " +
244 }
245#endif
247 };
248
249 const int current_tag = get_tag();
250 auto *fe_ptr =
const_cast<FEMethod *
>(this->getFEMethod());
252
253 physicalPtr->matOpsDataPtr->getActiveDataPtr(
"Jac")->resize(DIM, DIM,
false);
254 physicalPtr->matOpsDataPtr->getDependentDataPtr(
"Obj")->resize(1,
false);
255 physicalPtr->matOpsDataPtr->getDependentDerivativesDataPtr(
"dObj")->resize(
256 DIM, DIM, false);
257 auto mat_jac_ptr =
physicalPtr->matOpsDataPtr->getCommonDataPtr(
"Jac");
258 auto mat_grad_ptr =
physicalPtr->matOpsDataPtr->getCommonDataPtr(
"grad");
259 auto mat_var_grad_ptr =
260 physicalPtr->matOpsDataPtr->getCommonDataPtr(
"var_grad");
261 auto mat_obj_ptr =
physicalPtr->matOpsDataPtr->getCommonDataPtr(
"Obj");
262 auto mat_dObj_ptr =
physicalPtr->matOpsDataPtr->getCommonDataPtr(
"dObj");
263
264#ifndef NDEBUG
265 if (!mat_jac_ptr || !mat_grad_ptr || !mat_var_grad_ptr || !mat_obj_ptr ||
266 !mat_dObj_ptr) {
268 "Missing common data for ADOL-C evaluation");
269 }
270#endif
271
273 auto get_jac_at_pts =
275 *mat_jac_ptr, nb_integration_pts);
276 [[maybe_unused]] auto get_grad_at_pts =
278 *mat_grad_ptr, nb_integration_pts);
279 [[maybe_unused]] auto get_var_grad_at_pts =
281 *mat_var_grad_ptr, nb_integration_pts);
282 auto get_obj_at_pts =
284 *mat_obj_ptr, nb_integration_pts);
285 auto get_dObj_at_pts =
287 *mat_dObj_ptr, nb_integration_pts);
288
292
293 auto t_jac_at_pts = get_jac_at_pts();
294 auto t_obj_at_pts = get_obj_at_pts();
295
296 auto next = [&]() {
297 ++t_jac_at_pts;
298 ++t_obj_at_pts;
299 };
300
301 for (auto gg = 0; gg != nb_integration_pts; ++gg) {
302 auto t_jac = getFTensor2FromPtr<DIM, DIM>(
303 physicalPtr->matOpsDataPtr->getActiveDataPtr(
"Jac")->data().data());
304 t_jac(
i,
J) = t_jac_at_pts(
i,
J);
307 auto t_obj = getFTensor1FromPtr<1, 1>(
308 physicalPtr->matOpsDataPtr->getDependentDataPtr(
"Obj")
309 ->data()
310 .data());
311 t_obj_at_pts(0) = t_obj(0);
312 next();
313 }
314 }
315
321
322 auto t_jac_at_pts = get_jac_at_pts();
323 auto t_dObj_at_pts = get_dObj_at_pts();
324 auto next = [&]() {
325 ++t_jac_at_pts;
326 ++t_dObj_at_pts;
327 };
328
329 for (auto gg = 0; gg != nb_integration_pts; ++gg) {
330 auto t_jac = getFTensor2FromPtr<DIM, DIM>(
331 physicalPtr->matOpsDataPtr->getActiveDataPtr(
"Jac")->data().data());
332 t_jac(
i,
J) = t_jac_at_pts(
i,
J);
335 auto t_dObj = getFTensor2FromPtr<DIM, DIM>(
336 physicalPtr->matOpsDataPtr->getDependentDerivativesDataPtr(
"dObj")
337 ->data()
338 .data());
339 t_dObj_at_pts(
i,
J) = t_dObj(
i,
J);
340 next();
341 }
342 }
343
345 }
346
348}
#define FTENSOR_INDEX(DIM, I)
#define CHK_THROW_MESSAGE(err, msg)
Check and throw MoFEM exception.
#define MoFEMFunctionBegin
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
@ MOFEM_OPERATION_UNSUCCESSFUL
#define MoFEMFunctionReturn(a)
Last executable line of each PETSc function used for error handling. Replaces return()
#define CHKERR
Inline error check.
FTensor::Index< 'i', SPACE_DIM > i
FTensor::Index< 'J', DIM1 > J
FTensor::Index< 'k', 3 > k
DataLayoutTraits< DataLayout::GaussByCoeffs > DL
decltype(GetFTensor1FromMatImpl< Tensor_Dim, S, DL, M >::get(std::declval< M & >(), 0, 0)) GetFTensor1FromMatType
decltype(GetFTensor2FromMatImpl< Tensor_Dim0, Tensor_Dim1, S, DL, M >::get(std::declval< M & >(), 0, 0)) GetFTensor2FromMatType
Structure for user loop methods on finite elements.
EntityHandle getFEEntityHandle() const
Get the entity handle of the current finite element.