1014 {
1016
1017 if (
dAta.
tEts.find(getNumeredEntFiniteElementPtr()->getEnt()) ==
1020 }
1022 if (nb_dofs == 0)
1024
1026 int nb_base_functions = row_data.
getN().size2();
1028
1029 {
1030
1033
1034 for (
unsigned int gg = 0; gg < row_data.
getN().size1(); gg++) {
1040 for (;
dd < nb_dofs / 3;
dd++) {
1041 t_nf(
i) += base * res(
i);
1042 ++base;
1043 ++t_nf;
1044 }
1045 for (;
dd != nb_base_functions;
dd++) {
1046 ++base;
1047 }
1048 }
1049
1050 if (row_data.
getIndices().size() > 3 * row_data.
getN().size2()) {
1051 SETERRQ(PETSC_COMM_SELF, 1, "data inconsistency");
1052 }
1055 }
1057}
#define MoFEMFunctionReturnHot(a)
Last executable line of each PETSc function used for error handling. Replaces return()
#define CHKERR
Inline error check.
#define MoFEMFunctionBeginHot
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
FTensor::Index< 'i', SPACE_DIM > i
const Tensor2_symmetric_Expr< const ddTensor0< T, Dim, i, j >, typename promote< T, double >::V, Dim, i, j > dd(const Tensor0< T * > &a, const Index< i, Dim > index1, const Index< j, Dim > index2, const Tensor1< int, Dim > &d_ijk, const Tensor1< double, Dim > &d_xyz)
MoFEMErrorCode VecSetValues(Vec V, const EntitiesFieldData::EntData &data, const double *ptr, InsertMode iora)
Assemble PETSc vector.
Range tEts
elements in block set
std::vector< VectorDouble > valVel
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.