302 {
304
306
308
309 try {
311 } catch (const out_of_range &e) {
312 SETERRQ(
314 "Generation of reference elements for type <%s> is not implemented",
315 moab::CN::EntityTypeName(type));
316 }
317
318 auto set_gauss_pts = [&](auto &level_gauss_pts_on_ref_mesh, auto &level_ref,
319 auto &level_shape_functions,
320
321 auto start_vert_handle, auto start_ele_handle,
322 auto &verts_array, auto &conn, auto &ver_count,
323 auto &ele_count
324
325 ) {
327
329 level = std::min(level, level_gauss_pts_on_ref_mesh.size() - 1);
330
331 auto &level_ref_gauss_pts = level_gauss_pts_on_ref_mesh[level];
332 auto &level_ref_ele = level_ref[level];
333 auto &shape_functions = level_shape_functions[level];
334 E::gaussPts.resize(level_ref_gauss_pts.size1(), level_ref_gauss_pts.size2(),
335 false);
336 noalias(E::gaussPts) = level_ref_gauss_pts;
337
338 const auto fe_ent = E::numeredEntFiniteElementPtr->getEnt();
339 auto get_fe_coords = [&]() {
341 int num_nodes;
343 E::mField.get_moab().get_connectivity(fe_ent, conn, num_nodes, true),
344 "error get connectivity");
345 VectorDouble coords(num_nodes * 3);
347 E::mField.get_moab().get_coords(conn, num_nodes, &*coords.begin()),
348 "error get coordinates");
349 return coords;
350 };
351
352 auto coords = get_fe_coords();
353
354 const int num_nodes = level_ref_gauss_pts.size2();
356
359 &*shape_functions.data().begin());
361 &verts_array[0][ver_count], &verts_array[1][ver_count],
362 &verts_array[2][ver_count]);
363 for (int gg = 0; gg != num_nodes; ++gg, ++ver_count) {
364
366
367 auto set_float_precision = [](const double x) {
368 if (std::abs(x) < std::numeric_limits<float>::epsilon())
369 return 0.;
370 else
371 return x;
372 };
373
376 for (int nn = 0; nn != CN::VerticesPerEntity(type); ++nn) {
377 t_coords(
i) += t_n * t_ele_coords(
i);
378 ++t_ele_coords;
379 ++t_n;
380 }
381
382 for (auto ii : {0, 1, 2})
383 t_coords(ii) = set_float_precision(t_coords(ii));
384
385 ++t_coords;
386 }
387
389 int def_in_the_loop = -1;
391 "NB_IN_THE_LOOP", 1, MB_TYPE_INTEGER,
th, MB_TAG_CREAT | MB_TAG_SPARSE,
392 &def_in_the_loop);
393
395 const int num_el = level_ref_ele.size1();
396 const int num_nodes_on_ele = level_ref_ele.size2();
397 auto start_e = start_ele_handle + ele_count;
399 for (auto tt = 0; tt != level_ref_ele.size1(); ++tt, ++ele_count) {
400 for (int nn = 0; nn != num_nodes_on_ele; ++nn) {
401 conn[num_nodes_on_ele * ele_count + nn] =
403 }
404 }
405
406 const int n_in_the_loop = E::nInTheLoop;
408 &n_in_the_loop);
410
412 };
413
415
416 ref_ele->levelGaussPtsOnRefMesh, ref_ele->levelRef,
417 ref_ele->levelShapeFunctions,
418
419 ref_ele->startingVertEleHandle, ref_ele->startingEleHandle,
420 ref_ele->verticesOnEleArrays, ref_ele->eleConn, ref_ele->countVertEle,
421 ref_ele->countEle
422
423 );
424
426};
#define CHK_MOAB_THROW(err, msg)
Check error code of MoAB function and throw MoFEM exception.
FTensor::Index< 'i', SPACE_DIM > i
auto type_from_handle(const EntityHandle h)
get type from entity handle
auto getFTensor1FromArray(VectorDouble &data)
Get FTensor1 from array.
virtual MoFEMErrorCode transferTags()