341 {
344 int nb_integration_pts = data.
getN().size1();
345 auto v = getVolume();
346 auto t_w = getFTensor0IntegrationWeight();
347 auto t_approx_P = getFTensor2FromMat<3, 3>(
dataAtPts->approxPAtPts);
348 auto t_P = getFTensor2FromMat<3, 3>(
dataAtPts->PAtPts);
349 auto t_R = getFTensor2FromMat<3, 3>(
dataAtPts->rotMatAtPts);
350 auto t_dot_log_u =
351 getFTensor2SymmetricFromMat<3>(
dataAtPts->logStreachDotTensorAtPts);
352 auto t_diff_u =
353 getFTensor4DdgFromMat<3, 3, 1>(
dataAtPts->diffStreachTensorAtPts);
354
359 auto get_ftensor2 = [](
auto &
v) {
361 &
v[0], &
v[1], &
v[2], &
v[3], &
v[4], &
v[5]);
362 };
363
364 int nb_base_functions = data.
getN().size2();
366 for (int gg = 0; gg != nb_integration_pts; ++gg) {
368 auto t_nf = get_ftensor2(
nF);
369
371 t_RTP(
i,
j) = t_R(
k,
i) * t_approx_P(
k,
j);
373 t_deltaP(
i,
j) = t_RTP(
i,
j) - t_P(
i,
j);
374
376 t_viscous_stress(
i,
j) =
alphaU * t_dot_log_u(
i,
j);
377
380 a * (t_diff_u(
k,
l,
i,
j) * (t_deltaP(
k,
l) - t_viscous_stress(
k,
l)));
381
382 int bb = 0;
383 for (; bb != nb_dofs / 6; ++bb) {
384
385 t_nf(
i,
j) += t_row_base_fun * t1(
i,
j);
386
387 ++t_nf;
388 ++t_row_base_fun;
389 }
390 for (; bb != nb_base_functions; ++bb)
391 ++t_row_base_fun;
392
393 ++t_w;
394 ++t_approx_P;
395 ++t_P;
396 ++t_R;
397 ++t_dot_log_u;
398 ++t_diff_u;
399 }
401}
#define MoFEMFunctionBegin
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
#define MoFEMFunctionReturn(a)
Last executable line of each PETSc function used for error handling. Replaces return()
FTensor::Index< 'i', SPACE_DIM > i
const double v
phase velocity of light in medium (cm/ns)
FTensor::Index< 'l', 3 > l
FTensor::Index< 'j', 3 > j
FTensor::Index< 'k', 3 > k
VectorDouble nF
local right hand side vector
boost::shared_ptr< DataAtIntegrationPts > dataAtPts
data at integration pts
FTensor::Tensor0< FTensor::PackPtr< double *, 1 > > getFTensor0N(const FieldApproximationBase base)
Get base function as Tensor0.
MatrixDouble & getN(const FieldApproximationBase base)
get base functions this return matrix (nb. of rows is equal to nb. of Gauss pts, nb....
const VectorInt & getIndices() const
Get global indices of dofs on entity.