MoFEM::OpSetHoInvJacH1 Struct Reference

transform local reference derivatives of shape function to global derivatives if higher order geometry is given More...

#include <src/finite_elements/DataOperators.hpp>

Inheritance diagram for MoFEM::OpSetHoInvJacH1:

Collaboration diagram for MoFEM::OpSetHoInvJacH1:

Public Member Functions
	OpSetHoInvJacH1 (MatrixDouble &inv_ho_jac)
MoFEMErrorCode	doWork (int side, EntityType type, DataForcesAndSourcesCore::EntData &data)
	Operator for linear form, usually to calculate values on left hand side. More...
Public Member Functions inherited from MoFEM::DataOperator
	DataOperator (const bool symm=true, const bool do_vertices=true, const bool do_edges=true, const bool do_quads=true, const bool do_tris=true, const bool do_tets=true, const bool do_prisms=true)
virtual	~DataOperator ()
virtual MoFEMErrorCode	doWork (int row_side, int col_side, EntityType row_type, EntityType col_type, DataForcesAndSourcesCore::EntData &row_data, DataForcesAndSourcesCore::EntData &col_data)
	Operator for bi-linear form, usually to calculate values on right hand side. More...
virtual MoFEMErrorCode	opLhs (DataForcesAndSourcesCore &row_data, DataForcesAndSourcesCore &col_data, bool symm=true)
virtual MoFEMErrorCode	opLhs (DataForcesAndSourcesCore &row_data, DataForcesAndSourcesCore &col_data)
virtual MoFEMErrorCode	opRhs (DataForcesAndSourcesCore &data, const bool do_vertices, const bool do_edges, const bool do_quads, const bool do_tris, const bool do_tets, const bool do_prisms, const bool error_if_no_base=true)
virtual MoFEMErrorCode	opRhs (DataForcesAndSourcesCore &data, const bool error_if_no_base=true)
bool	getSymm () const
	Get if operator uses symmetry of DOFs or not. More...
void	setSymm ()
	set if operator is executed taking in account symmetry More...
void	unSetSymm ()
	unset if operator is executed for non symmetric problem More...

Public Attributes
MatrixDouble &	invHoJac
FTensor::Index< 'i', 3 >	i
FTensor::Index< 'j', 3 >	j
MatrixDouble	diffNinvJac
Public Attributes inherited from MoFEM::DataOperator
bool	sYmm
	If true assume that matrix is symmetric structure. More...
bool	doVertices
	If false skip vertices. More...
bool	doEdges
	If false skip edges. More...
bool	doQuads
bool	doTris
bool	doTets
bool	doPrisms

Detailed Description

transform local reference derivatives of shape function to global derivatives if higher order geometry is given

Definition at line 313 of file DataOperators.hpp.

Constructor & Destructor Documentation

OpSetHoInvJacH1()

MoFEM::OpSetHoInvJacH1::OpSetHoInvJacH1

(

MatrixDouble &

inv_ho_jac

)

Definition at line 318 of file DataOperators.hpp.

: invHoJac(inv_ho_jac) {}

Member Function Documentation

doWork()

MoFEMErrorCode MoFEM::OpSetHoInvJacH1::doWork ( int  side, EntityType  type, DataForcesAndSourcesCore::EntData &  data  )

virtual

Operator for linear form, usually to calculate values on left hand side.

Reimplemented from MoFEM::DataOperator.

Definition at line 922 of file DataOperators.cpp.

                                                               {
  MoFEMFunctionBegin;

  for (int b = AINSWORTH_LEGENDRE_BASE; b != USER_BASE; b++) {

    FieldApproximationBase base = ApproximationBaseArray[b];
    if (data.getDiffN(base).size2() == 0)
      continue;

    unsigned int nb_gauss_pts = data.getN(base).size1();
    if (nb_gauss_pts == 0)
      continue;
    unsigned int nb_base_functions = data.getN(base).size2();
    if (nb_base_functions == 0)
      continue;

    if (invHoJac.size2() != 9) {
      SETERRQ1(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
               "It looks that ho inverse of Jacobian is not calculated %d != 9",
               invHoJac.size2());
    }
    if (invHoJac.size1() != nb_gauss_pts) {
      cerr << "type: " << type << " side: " << side << endl;
      cerr << "shape fun: " << data.getN(base) << endl;
      cerr << "diff shape fun  " << data.getDiffN(base) << endl;
      SETERRQ2(
          PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
          "It looks that ho inverse of Jacobian is not calculated %d != %d",
          invHoJac.size1(), nb_gauss_pts);
    }
    double *t_inv_jac_ptr = &*invHoJac.data().begin();
    FTensor::Tensor2<double *, 3, 3> t_inv_jac(
        t_inv_jac_ptr, &t_inv_jac_ptr[1], &t_inv_jac_ptr[2], &t_inv_jac_ptr[3],
        &t_inv_jac_ptr[4], &t_inv_jac_ptr[5], &t_inv_jac_ptr[6],
        &t_inv_jac_ptr[7], &t_inv_jac_ptr[8], 9);

    diffNinvJac.resize(nb_gauss_pts, 3 * nb_base_functions, false);
    double *t_inv_n_ptr = &*diffNinvJac.data().begin();
    FTensor::Tensor1<double *, 3> t_inv_diff_n(t_inv_n_ptr, &t_inv_n_ptr[1],
                                               &t_inv_n_ptr[2], 3);

    switch (type) {
    case MBVERTEX:
    case MBEDGE:
    case MBTRI:
    case MBTET: {
      FTensor::Tensor1<double *, 3> t_diff_n = data.getFTensor1DiffN<3>(base);
      for (unsigned int gg = 0; gg < nb_gauss_pts; ++gg) {
        for (unsigned int bb = 0; bb != nb_base_functions; ++bb) {
          t_inv_diff_n(i) = t_diff_n(j) * t_inv_jac(j, i);
          ++t_diff_n;
          ++t_inv_diff_n;
        }
        ++t_inv_jac;
      }
    } break;
    default:
      SETERRQ(PETSC_COMM_SELF, MOFEM_NOT_IMPLEMENTED, "not implemented");
    }

    // unsigned int gg = 0;
    // for(;gg<nb_gauss_pts;++gg) {
    //   double *inv_h = &invHoJac(gg,0);
    //   for(unsigned dd = 0;dd<nb_base_functions;dd++) {
    //     double *diff_n;
    //     if(type == MBVERTEX) {
    //       diff_n = &data.getDiffN(base)(dd,0);
    //     } else {
    //       diff_n = &data.getDiffN(base)(gg,3*dd);
    //     }
    //     double *diff_n_inv_jac = &diffNinvJac(gg,3*dd);
    //     cblas_dgemv(CblasRowMajor,CblasTrans,3,3,1.,inv_h,3,diff_n,1,0.,diff_n_inv_jac,1);
    //   }
    // }
    if (type == MBVERTEX) {
      data.getDiffN(base).resize(diffNinvJac.size1(), diffNinvJac.size2(),
                                 false);
    }
    data.getDiffN(base).data().swap(diffNinvJac.data());
  }

  MoFEMFunctionReturn(0);
}

Member Data Documentation

diffNinvJac

MatrixDouble MoFEM::OpSetHoInvJacH1::diffNinvJac

Definition at line 320 of file DataOperators.hpp.

i

FTensor::Index<'i',3> MoFEM::OpSetHoInvJacH1::i

Definition at line 316 of file DataOperators.hpp.

invHoJac

MatrixDouble& MoFEM::OpSetHoInvJacH1::invHoJac

Definition at line 315 of file DataOperators.hpp.

j

FTensor::Index<'j',3> MoFEM::OpSetHoInvJacH1::j

Definition at line 317 of file DataOperators.hpp.

---

The documentation for this struct was generated from the following files:

• src/finite_elements/DataOperators.hpp
• src/finite_elements/impl/DataOperators.cpp