628 const size_t nb_integration_pts = row_data.getN().size1();
629 const size_t nb_row_base_functions = row_data.getN().size2();
630 auto t_w = getFTensor0IntegrationWeight();
632 auto t_row_base = row_data.getFTensor0N();
643 getFTensor2SymmetricFromMat<SPACE_DIM>(
commonDataPtr->plasticFlow);
645 getFTensor4DdgFromMat<SPACE_DIM, SPACE_DIM, 0>(*
commonDataPtr->mDPtr);
647 auto t_D_Op = getFTensor4DdgFromMat<SPACE_DIM, SPACE_DIM, 0>(*
mDPtr);
649 for (
size_t gg = 0; gg != nb_integration_pts; ++gg) {
650 double alpha = getMeasure() * t_w;
652 auto mat_ptr =
locMat.data().begin();
666 auto t_col_base = col_data.getFTensor0N(gg, 0);
669 t_mat(
L) -= (
alpha * t_row_base * t_col_base) *
672 t_diff_constrain_dstrain(
i,
j)
683 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()
static auto getFTensor0FromVec(ublas::vector< T, A > &data)
Get tensor rank 0 (scalar) form data vector.
auto diff_constrain_dstress(double &&diff_constrain_df, FTensor::Tensor2_symmetric< T, SPACE_DIM > &t_plastic_flow)
auto get_mat_scalar_dtensor_sym(MatrixDouble &mat, FTensor::Number< 2 >)
FTensor::Index< 'j', SPACE_DIM > j
[Common data]
auto diff_constrain_dstrain(T1 &t_D, T2 &&t_diff_constrain_dstress)
FTensor::Index< 'i', SPACE_DIM > i
auto diff_constrain_df(long double dot_tau, long double f, long double sigma_y)
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