321 const size_t nb_integration_pts = row_data.getN().size1();
322 const size_t nb_row_base_functions = row_data.getN().size2();
323 auto t_w = getFTensor0IntegrationWeight();
324 auto t_row_diff_base = row_data.getFTensor1DiffN<
SPACE_DIM>();
327 auto t_D = getFTensor4DdgFromMat<SPACE_DIM, SPACE_DIM, 0>(*
mDPtr);
328 auto t_logC_dC = getFTensor4DdgFromMat<SPACE_DIM, SPACE_DIM>(
330 auto t_grad = getFTensor2FromMat<SPACE_DIM, SPACE_DIM>(
333 for (
size_t gg = 0; gg != nb_integration_pts; ++gg) {
334 double alpha = getMeasure() * t_w;
341 t_DLogC_dC(
i,
j,
k,
l) = 0;
348 t_DLogC_dC(ii, jj, kk, ll) +=
349 t_D(mm, nn, kk, ll) * t_logC_dC(mm, nn, ii, jj);
353 t_FDLogC_dC(
i,
j,
k,
l) = t_F(
i,
m) * t_DLogC_dC(
m,
j,
k,
l);
364 for (
int LL = 0; LL != size_symm; ++LL)
365 t_DL(ii, jj, LL) += t_FDLogC_dC(ii, jj, kk, ll) * t_L(kk, ll, LL);
374 t_tmp(
i,
L) = (t_DL(
i,
j,
L) * (
alpha * t_row_diff_base(
j)));
376 auto t_col_base = col_data.getFTensor0N(gg, 0);
379 t_mat(
i,
L) -= (t_col_base * t_tmp(
i,
L));
388 for (; rr < nb_row_base_functions; ++rr)
#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< 'j', SPACE_DIM > j
[Common data]
FTensor::Index< 'l', SPACE_DIM > l
FTensor::Index< 'k', SPACE_DIM > k
FTensor::Index< 'i', SPACE_DIM > i
FTensor::Index< 'm', SPACE_DIM > m
static FTensor::Tensor2< FTensor::PackPtr< double *, 3 >, 2, 3 > get_mat_vector_dtensor_sym(size_t rr, MatrixDouble &mat, FTensor::Number< 2 >)
FTensor::Index< 'L',(SPACE_DIM *(SPACE_DIM+1))/2 > L
int nbRows
number of dofs on rows
MatrixDouble locMat
local entity block matrix
int nbCols
number if dof on column