1246 {
1248
1249 if (
dAta.
tEts.find(getNumeredEntFiniteElementPtr()->getEnt()) ==
1252 }
1253
1254
1255 if (row_type != MBVERTEX)
1257
1259 if (nb_dofs == 0)
1261
1262 try {
1263
1267 G.resize(3, 3);
1274 for (
int dd = 0;
dd < 3;
dd++) {
1277 }
1278
1279 int nb_gauss_pts = row_data.
getN().size1();
1283
1284 int nb_active_vars = 0;
1285 for (int gg = 0; gg < nb_gauss_pts; gg++) {
1286
1287 if (gg == 0) {
1288
1290
1291 for (int nn1 = 0; nn1 < 3; nn1++) {
1294 [gg][nn1];
1295 nb_active_vars++;
1296 }
1297
1298 for (int nn1 = 0; nn1 < 3; nn1++) {
1301 nb_active_vars++;
1302 }
1303 for (int nn1 = 0; nn1 < 3; nn1++) {
1304 for (int nn2 = 0; nn2 < 3; nn2++) {
1307 nn1, nn2);
1308 nb_active_vars++;
1309 }
1310 }
1311 for (int nn1 = 0; nn1 < 3; nn1++) {
1312 for (int nn2 = 0; nn2 < 3; nn2++) {
1315 nn2);
1316 nb_active_vars++;
1318 if (nn1 == nn2) {
1320 }
1321 }
1322 }
1323 }
1325 for (int nn1 = 0; nn1 < 3; nn1++) {
1326 for (int nn2 = 0; nn2 < 3; nn2++) {
1329 nn2);
1330 nb_active_vars++;
1331 }
1332 }
1333 }
1335 detH = 1;
1338 }
1340
1344
1346
1352
1356
1357 t_F(
i,
j) = t_h(
i,
k) * t_invH(
k,
j);
1358 t_G(
i,
j) = t_g(
i,
k) * t_invH(
k,
j);
1359 t_a_T(
i) = t_F(
k,
i) * t_a(
k) + t_G(
k,
i) * t_v(
k);
1361 t_a_T(
i) = -rho0 * detH;
1362
1364 for (int nn = 0; nn < 3; nn++) {
1366 }
1367 trace_off();
1368 }
1369
1370 active.resize(nb_active_vars);
1371 int aa = 0;
1372 for (int nn1 = 0; nn1 < 3; nn1++) {
1376 }
1377
1378 for (int nn1 = 0; nn1 < 3; nn1++) {
1381 }
1382 for (int nn1 = 0; nn1 < 3; nn1++) {
1383 for (int nn2 = 0; nn2 < 3; nn2++) {
1386 nn2);
1387 }
1388 }
1389 for (int nn1 = 0; nn1 < 3; nn1++) {
1390 for (int nn2 = 0; nn2 < 3; nn2++) {
1394 nn1, nn2) +
1395 1;
1396 } else {
1399 nn2);
1400 }
1401 }
1402 }
1404 for (int nn1 = 0; nn1 < 3; nn1++) {
1405 for (int nn2 = 0; nn2 < 3; nn2++) {
1408 nn2);
1409 }
1410 }
1411 }
1412
1415 if (gg > 0) {
1416 res.resize(3);
1418 r = ::function(
tAg, 3, nb_active_vars, &
active[0], &res[0]);
1419 if (r != 3) {
1421 "ADOL-C function evaluation with error r = %d", r);
1422 }
1423 }
1424 double val = getVolume() * getGaussPts()(3, gg);
1425 res *= val;
1426 } else {
1429 for (int nn1 = 0; nn1 < 3; nn1++) {
1431 }
1433 r = jacobian(
tAg, 3, nb_active_vars, &
active[0],
1435 if (r != 3) {
1437 "ADOL-C function evaluation with error");
1438 }
1439 double val = getVolume() * getGaussPts()(3, gg);
1441 }
1442 }
1443
1444 } catch (const std::exception &ex) {
1445 std::ostringstream ss;
1446 ss << "throw in method: " << ex.what() << std::endl;
1448 }
1449
1451}
#define MoFEMFunctionReturnHot(a)
Last executable line of each PETSc function used for error handling. Replaces return()
@ MOFEM_OPERATION_UNSUCCESSFUL
@ MOFEM_DATA_INCONSISTENCY
#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
FTensor::Index< 'j', 3 > j
FTensor::Index< 'k', 3 > k
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 invertTensor3by3(ublas::matrix< T, L, A > &jac_data, ublas::vector< T, A > &det_data, ublas::matrix< T, L, A > &inv_jac_data)
Calculate inverse of tensor rank 2 at integration points.
auto getFTensor2FromArray3by3(ublas::matrix< T, L, A > &data, const FTensor::Number< S > &, const size_t rr, const size_t cc=0)
static auto determinantTensor3by3(T &t)
Calculate the determinant of a 3x3 matrix or a tensor of rank 2.
Range tEts
elements in block set
double rho0
reference density
std::vector< std::vector< double * > > jacTRowPtr
std::map< std::string, std::vector< VectorDouble > > dataAtGaussPts
std::vector< VectorDouble > valT
std::map< std::string, std::vector< MatrixDouble > > gradAtGaussPts
std::vector< MatrixDouble > jacT
VectorBoundedArray< adouble, 3 > a
MatrixBoundedArray< adouble, 9 > h
MatrixBoundedArray< adouble, 9 > g
MatrixBoundedArray< adouble, 9 > invH
MatrixBoundedArray< adouble, 9 > F
MatrixBoundedArray< adouble, 9 > H
VectorBoundedArray< adouble, 3 > a_T
VectorBoundedArray< adouble, 3 > v
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.