DataOperators.cpp

Go to the documentation of this file.

/** file DataOperators.cpp

  \brief implementation of Data Operators for Forces and Sources

*/

/* This file is part of MoFEM.
 * MoFEM is free software: you can redistribute it and/or modify it under
 * the terms of the GNU Lesser General Public License as published by the
 * Free Software Foundation, either version 3 of the License, or (at your
 * option) any later version.
 *
 * MoFEM is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
 * License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with MoFEM. If not, see <http://www.gnu.org/licenses/>. */

#ifdef __cplusplus
extern "C" {
#endif
#include <cblas.h>
#include <lapack_wrap.h>
#include <gm_rule.h>
#ifdef __cplusplus
}
#endif

namespace MoFEM {

MoFEMErrorCode DataOperator::opLhs(DataForcesAndSourcesCore &row_data,
                                   DataForcesAndSourcesCore &col_data,
                                   bool symm) {
  MoFEMFunctionBeginHot;

  // nodes
  for (unsigned int nn = 0; nn != row_data.dataOnEntities[MBVERTEX].size();
       nn++) {
    unsigned int NN = 0;
    if (symm)
      NN = nn;
    for (; NN != col_data.dataOnEntities[MBVERTEX].size(); NN++) {
      ierr = doWork(nn, NN, MBVERTEX, MBVERTEX,
                    row_data.dataOnEntities[MBVERTEX][0],
                    col_data.dataOnEntities[MBVERTEX][0]);
      CHKERRG(ierr);
    }
    if (!symm) {
      for (unsigned int EE = 0; EE < col_data.dataOnEntities[MBEDGE].size();
           EE++) {
        if (col_data.dataOnEntities[MBEDGE][EE].getN().size1() == 0)
          continue;
        ierr = doWork(nn, EE, MBVERTEX, MBEDGE,
                      row_data.dataOnEntities[MBVERTEX][0],
                      col_data.dataOnEntities[MBEDGE][EE]);
        CHKERRG(ierr);
      }
      for (unsigned int FF = 0; FF < col_data.dataOnEntities[MBTRI].size();
           FF++) {
        if (col_data.dataOnEntities[MBTRI][FF].getN().size1() == 0)
          continue;
        ierr = doWork(nn, FF, MBVERTEX, MBTRI,
                      row_data.dataOnEntities[MBVERTEX][0],
                      col_data.dataOnEntities[MBTRI][FF]);
        CHKERRG(ierr);
      }
      for (unsigned int QQ = 0; QQ < col_data.dataOnEntities[MBQUAD].size();
           QQ++) {
        if (col_data.dataOnEntities[MBQUAD][QQ].getN().size1() == 0)
          continue;
        ierr = doWork(nn, QQ, MBVERTEX, MBQUAD,
                      row_data.dataOnEntities[MBVERTEX][0],
                      col_data.dataOnEntities[MBQUAD][QQ]);
        CHKERRG(ierr);
      }
    }
    for (unsigned int VV = 0; VV < col_data.dataOnEntities[MBTET].size();
         VV++) {
      if (col_data.dataOnEntities[MBTET][VV].getN().size1() == 0)
        continue;
      ierr =
          doWork(nn, VV, MBVERTEX, MBTET, row_data.dataOnEntities[MBVERTEX][0],
                 col_data.dataOnEntities[MBTET][VV]);
      CHKERRG(ierr);
    }
    for (unsigned int PP = 0; PP < col_data.dataOnEntities[MBPRISM].size();
         PP++) {
      if (col_data.dataOnEntities[MBPRISM][PP].getN().size1() == 0)
        continue;
      ierr = doWork(nn, PP, MBVERTEX, MBPRISM,
                    row_data.dataOnEntities[MBVERTEX][0],
                    col_data.dataOnEntities[MBPRISM][PP]);
      CHKERRG(ierr);
    }
    for (unsigned int MM = 0; MM < col_data.dataOnEntities[MBENTITYSET].size();
         MM++) {
      if (row_data.dataOnEntities[MBENTITYSET][MM].getIndices().empty() &&
          row_data.dataOnEntities[MBENTITYSET][MM].getFieldData().empty())
        continue;
      ierr = doWork(nn, MM, MBVERTEX, MBENTITYSET,
                    row_data.dataOnEntities[MBVERTEX][0],
                    col_data.dataOnEntities[MBENTITYSET][MM]);
      CHKERRG(ierr);
    }
  }

  // edges
  for (unsigned int ee = 0; ee < row_data.dataOnEntities[MBEDGE].size(); ee++) {
    if (row_data.dataOnEntities[MBEDGE][ee].getN().size1() == 0)
      continue;
    for (unsigned int NN = 0; NN != col_data.dataOnEntities[MBVERTEX].size();
         NN++) {
      ierr =
          doWork(ee, NN, MBEDGE, MBVERTEX, row_data.dataOnEntities[MBEDGE][ee],
                 col_data.dataOnEntities[MBVERTEX][0]);
      CHKERRG(ierr);
    }
    unsigned int EE = 0;
    if (symm)
      EE = ee;
    for (; EE < col_data.dataOnEntities[MBEDGE].size(); EE++) {
      if (col_data.dataOnEntities[MBEDGE][EE].getN().size1() == 0)
        continue;
      ierr = doWork(ee, EE, MBEDGE, MBEDGE, row_data.dataOnEntities[MBEDGE][ee],
                    col_data.dataOnEntities[MBEDGE][EE]);
      CHKERRG(ierr);
    }
    // tris
    for (unsigned int FF = 0; FF < col_data.dataOnEntities[MBTRI].size();
         FF++) {
      if (col_data.dataOnEntities[MBTRI][FF].getN().size1() == 0)
        continue;
      ierr = doWork(ee, FF, MBEDGE, MBTRI, row_data.dataOnEntities[MBEDGE][ee],
                    col_data.dataOnEntities[MBTRI][FF]);
      CHKERRG(ierr);
    }
    // quad
    for (unsigned int QQ = 0; QQ < col_data.dataOnEntities[MBQUAD].size();
         QQ++) {
      if (col_data.dataOnEntities[MBQUAD][QQ].getN().size1() == 0)
        continue;
      ierr = doWork(ee, QQ, MBEDGE, MBQUAD, row_data.dataOnEntities[MBEDGE][ee],
                    col_data.dataOnEntities[MBQUAD][QQ]);
      CHKERRG(ierr);
    }
    // tet
    for (unsigned int VV = 0; VV < col_data.dataOnEntities[MBTET].size();
         VV++) {
      if (col_data.dataOnEntities[MBTET][VV].getN().size1() == 0)
        continue;
      ierr = doWork(ee, VV, MBEDGE, MBTET, row_data.dataOnEntities[MBEDGE][ee],
                    col_data.dataOnEntities[MBTET][VV]);
      CHKERRG(ierr);
    }
    // prism
    for (unsigned int PP = 0; PP < col_data.dataOnEntities[MBPRISM].size();
         PP++) {
      if (col_data.dataOnEntities[MBPRISM][PP].getN().size1() == 0)
        continue;
      ierr =
          doWork(ee, PP, MBEDGE, MBPRISM, row_data.dataOnEntities[MBEDGE][ee],
                 col_data.dataOnEntities[MBPRISM][PP]);
      CHKERRG(ierr);
    }
    for (unsigned int MM = 0; MM < col_data.dataOnEntities[MBENTITYSET].size();
         MM++) {
      if (col_data.dataOnEntities[MBENTITYSET][MM].getIndices().empty() &&
          col_data.dataOnEntities[MBENTITYSET][MM].getFieldData().empty())
        continue;
      ierr = doWork(ee, MM, MBEDGE, MBENTITYSET,
                    row_data.dataOnEntities[MBEDGE][ee],
                    col_data.dataOnEntities[MBENTITYSET][MM]);
      CHKERRG(ierr);
    }
  }

  // faces
  for (unsigned int ff = 0; ff < row_data.dataOnEntities[MBTRI].size(); ff++) {
    if (row_data.dataOnEntities[MBTRI][ff].getN().size1() == 0)
      continue;
    for (unsigned int NN = 0; NN != col_data.dataOnEntities[MBVERTEX].size();
         NN++) {
      ierr = doWork(ff, NN, MBTRI, MBVERTEX, row_data.dataOnEntities[MBTRI][ff],
                    col_data.dataOnEntities[MBVERTEX][0]);
      CHKERRG(ierr);
    }
    if (!symm) {
      unsigned int EE = 0;
      for (; EE < col_data.dataOnEntities[MBEDGE].size(); EE++) {
        if (col_data.dataOnEntities[MBEDGE][EE].getN().size1() == 0)
          continue;
        ierr = doWork(ff, EE, MBTRI, MBEDGE, row_data.dataOnEntities[MBTRI][ff],
                      col_data.dataOnEntities[MBEDGE][EE]);
        CHKERRG(ierr);
      }
    }
    unsigned int FF = 0;
    if (symm)
      FF = ff;
    for (; FF < col_data.dataOnEntities[MBTRI].size(); FF++) {
      if (col_data.dataOnEntities[MBTRI][FF].getN().size1() == 0)
        continue;
      ierr = doWork(ff, FF, MBTRI, MBTRI, row_data.dataOnEntities[MBTRI][ff],
                    col_data.dataOnEntities[MBTRI][FF]);
      CHKERRG(ierr);
    }
    for (unsigned int QQ = 0; QQ < col_data.dataOnEntities[MBQUAD].size();
         QQ++) {
      if (col_data.dataOnEntities[MBQUAD][QQ].getN().size1() == 0)
        continue;
      ierr = doWork(ff, QQ, MBTRI, MBQUAD, row_data.dataOnEntities[MBTRI][ff],
                    col_data.dataOnEntities[MBQUAD][QQ]);
      CHKERRG(ierr);
    }
    for (unsigned int VV = 0; VV < col_data.dataOnEntities[MBTET].size();
         VV++) {
      if (col_data.dataOnEntities[MBTET][VV].getN().size1() == 0)
        continue;
      ierr = doWork(ff, VV, MBTRI, MBTET, row_data.dataOnEntities[MBTRI][ff],
                    col_data.dataOnEntities[MBTET][VV]);
      CHKERRG(ierr);
    }
    for (unsigned int PP = 0; PP < col_data.dataOnEntities[MBPRISM].size();
         PP++) {
      if (col_data.dataOnEntities[MBPRISM][PP].getN().size1() == 0)
        continue;
      ierr = doWork(ff, PP, MBTRI, MBPRISM, row_data.dataOnEntities[MBTRI][ff],
                    col_data.dataOnEntities[MBPRISM][PP]);
      CHKERRG(ierr);
    }
    for (unsigned int MM = 0; MM < col_data.dataOnEntities[MBENTITYSET].size();
         MM++) {
      if (col_data.dataOnEntities[MBENTITYSET][MM].getIndices().empty() &&
          col_data.dataOnEntities[MBENTITYSET][MM].getFieldData().empty())
        continue;
      ierr =
          doWork(ff, MM, MBTRI, MBENTITYSET, row_data.dataOnEntities[MBTRI][ff],
                 col_data.dataOnEntities[MBENTITYSET][MM]);
      CHKERRG(ierr);
    }
  }

  // quads
  for (unsigned int qq = 0; qq < row_data.dataOnEntities[MBQUAD].size(); qq++) {
    if (row_data.dataOnEntities[MBQUAD][qq].getN().size1() == 0)
      continue;
    for (unsigned int NN = 0; NN != col_data.dataOnEntities[MBVERTEX].size();
         NN++) {
      ierr =
          doWork(qq, NN, MBQUAD, MBVERTEX, row_data.dataOnEntities[MBQUAD][qq],
                 col_data.dataOnEntities[MBVERTEX][0]);
      CHKERRG(ierr);
    }
    if (!symm) {
      unsigned int EE = 0;
      for (; EE < col_data.dataOnEntities[MBEDGE].size(); EE++) {
        if (col_data.dataOnEntities[MBEDGE][EE].getN().size1() == 0)
          continue;
        ierr =
            doWork(qq, EE, MBQUAD, MBEDGE, row_data.dataOnEntities[MBQUAD][qq],
                   col_data.dataOnEntities[MBEDGE][EE]);
        CHKERRG(ierr);
      }
      unsigned int FF = 0;
      for (; FF < col_data.dataOnEntities[MBTRI].size(); FF++) {
        if (col_data.dataOnEntities[MBTRI][FF].getN().size1() == 0)
          continue;
        ierr =
            doWork(qq, FF, MBQUAD, MBTRI, row_data.dataOnEntities[MBQUAD][qq],
                   col_data.dataOnEntities[MBTRI][FF]);
        CHKERRG(ierr);
      }
    }
    unsigned int QQ = 0;
    if (symm)
      QQ = qq;
    for (; QQ < col_data.dataOnEntities[MBQUAD].size(); QQ++) {
      if (col_data.dataOnEntities[MBQUAD][QQ].getN().size1() == 0)
        continue;
      ierr = doWork(qq, QQ, MBQUAD, MBQUAD, row_data.dataOnEntities[MBQUAD][qq],
                    col_data.dataOnEntities[MBQUAD][QQ]);
      CHKERRG(ierr);
    }
    for (unsigned int PP = 0; PP < col_data.dataOnEntities[MBPRISM].size();
         PP++) {
      if (col_data.dataOnEntities[MBPRISM][PP].getN().size1() == 0)
        continue;
      ierr = doWork(qq, PP, MBTRI, MBPRISM, row_data.dataOnEntities[MBQUAD][qq],
                    col_data.dataOnEntities[MBPRISM][PP]);
      CHKERRG(ierr);
    }
    for (unsigned int MM = 0; MM < col_data.dataOnEntities[MBENTITYSET].size();
         MM++) {
      if (col_data.dataOnEntities[MBENTITYSET][MM].getIndices().empty() &&
          col_data.dataOnEntities[MBENTITYSET][MM].getFieldData().empty())
        continue;
      ierr = doWork(qq, MM, MBQUAD, MBENTITYSET,
                    row_data.dataOnEntities[MBQUAD][qq],
                    col_data.dataOnEntities[MBENTITYSET][MM]);
      CHKERRG(ierr);
    }
  }

  // volumes
  for (unsigned int vv = 0; vv < row_data.dataOnEntities[MBTET].size(); vv++) {
    if (row_data.dataOnEntities[MBTET][vv].getN().size1() == 0)
      continue;
    if (!symm) {
      // vertex
      for (unsigned int NN = 0; NN != col_data.dataOnEntities[MBVERTEX].size();
           NN++) {
        ierr =
            doWork(vv, NN, MBTET, MBVERTEX, row_data.dataOnEntities[MBTET][vv],
                   col_data.dataOnEntities[MBVERTEX][0]);
        CHKERRG(ierr);
      }
      // edges
      for (unsigned int EE = 0; EE < col_data.dataOnEntities[MBEDGE].size();
           EE++) {
        if (col_data.dataOnEntities[MBEDGE][EE].getN().size1() == 0)
          continue;
        ierr = doWork(vv, EE, MBTET, MBEDGE, row_data.dataOnEntities[MBTET][vv],
                      col_data.dataOnEntities[MBEDGE][EE]);
        CHKERRG(ierr);
      }
      // faces
      for (unsigned int FF = 0; FF < col_data.dataOnEntities[MBTRI].size();
           FF++) {
        if (col_data.dataOnEntities[MBTRI][FF].getN().size1() == 0)
          continue;
        ierr = doWork(vv, FF, MBTET, MBTRI, row_data.dataOnEntities[MBTET][vv],
                      col_data.dataOnEntities[MBTRI][FF]);
        CHKERRG(ierr);
      }
    }
    unsigned int VV = 0;
    if (symm)
      VV = vv;
    for (; VV < col_data.dataOnEntities[MBTET].size(); VV++) {
      if (col_data.dataOnEntities[MBTET][VV].getN().size1() == 0)
        continue;
      ierr = doWork(vv, VV, MBTET, MBTET, row_data.dataOnEntities[MBTET][vv],
                    col_data.dataOnEntities[MBTET][VV]);
      CHKERRG(ierr);
    }
    for (unsigned int MM = 0; MM < col_data.dataOnEntities[MBENTITYSET].size();
         MM++) {
      if (col_data.dataOnEntities[MBENTITYSET][MM].getIndices().empty() &&
          col_data.dataOnEntities[MBENTITYSET][MM].getFieldData().empty())
        continue;
      ierr =
          doWork(vv, MM, MBTET, MBENTITYSET, row_data.dataOnEntities[MBTET][vv],
                 col_data.dataOnEntities[MBENTITYSET][MM]);
      CHKERRG(ierr);
    }
  }

  for (unsigned int pp = 0; pp < row_data.dataOnEntities[MBPRISM].size();
       pp++) {
    if (row_data.dataOnEntities[MBPRISM][pp].getN().size1() == 0)
      continue;
    if (!symm) {
      // vertex
      for (unsigned int NN = 0; NN != col_data.dataOnEntities[MBVERTEX].size();
           NN++) {
        ierr = doWork(pp, NN, MBPRISM, MBVERTEX,
                      row_data.dataOnEntities[MBPRISM][pp],
                      col_data.dataOnEntities[MBVERTEX][0]);
        CHKERRG(ierr);
      }
      // edges
      for (unsigned int EE = 0; EE < col_data.dataOnEntities[MBEDGE].size();
           EE++) {
        if (col_data.dataOnEntities[MBEDGE][EE].getN().size1() == 0)
          continue;
        ierr = doWork(pp, EE, MBPRISM, MBEDGE,
                      row_data.dataOnEntities[MBPRISM][pp],
                      col_data.dataOnEntities[MBEDGE][EE]);
        CHKERRG(ierr);
      }
      // faces
      for (unsigned int FF = 0; FF < col_data.dataOnEntities[MBTRI].size();
           FF++) {
        if (col_data.dataOnEntities[MBTRI][FF].getN().size1() == 0)
          continue;
        ierr =
            doWork(pp, FF, MBPRISM, MBTRI, row_data.dataOnEntities[MBPRISM][pp],
                   col_data.dataOnEntities[MBTRI][FF]);
        CHKERRG(ierr);
      }
      // quads
      for (unsigned int QQ = 0; QQ < col_data.dataOnEntities[MBQUAD].size();
           QQ++) {
        if (col_data.dataOnEntities[MBQUAD][QQ].getN().size1() == 0)
          continue;
        ierr = doWork(pp, QQ, MBPRISM, MBQUAD,
                      row_data.dataOnEntities[MBPRISM][pp],
                      col_data.dataOnEntities[MBQUAD][QQ]);
        CHKERRG(ierr);
      }
    }
    unsigned int PP = 0;
    if (symm)
      PP = pp;
    for (; PP < col_data.dataOnEntities[MBPRISM].size(); PP++) {
      if (col_data.dataOnEntities[MBPRISM][PP].getN().size1() == 0)
        continue;
      ierr =
          doWork(pp, PP, MBPRISM, MBPRISM, row_data.dataOnEntities[MBPRISM][pp],
                 col_data.dataOnEntities[MBPRISM][PP]);
      CHKERRG(ierr);
    }
    for (unsigned int MM = 0; MM < col_data.dataOnEntities[MBENTITYSET].size();
         MM++) {
      if (col_data.dataOnEntities[MBENTITYSET][MM].getIndices().empty() &&
          col_data.dataOnEntities[MBENTITYSET][MM].getFieldData().empty())
        continue;
      ierr = doWork(pp, MM, MBPRISM, MBENTITYSET,
                    row_data.dataOnEntities[MBPRISM][pp],
                    col_data.dataOnEntities[MBENTITYSET][MM]);
      CHKERRG(ierr);
    }
  }

  // meshsets
  for (unsigned int mm = 0; mm < row_data.dataOnEntities[MBENTITYSET].size();
       mm++) {
    if (row_data.dataOnEntities[MBENTITYSET][mm].getIndices().empty() &&
        row_data.dataOnEntities[MBENTITYSET][mm].getFieldData().empty())
      continue;
    if (!symm) {
      // vertex
      for (unsigned int NN = 0; NN != col_data.dataOnEntities[MBVERTEX].size();
           NN++) {
        ierr = doWork(mm, NN, MBENTITYSET, MBVERTEX,
                      row_data.dataOnEntities[MBENTITYSET][mm],
                      col_data.dataOnEntities[MBVERTEX][0]);
        CHKERRG(ierr);
      }
      // edges
      for (unsigned int EE = 0; EE < col_data.dataOnEntities[MBEDGE].size();
           EE++) {
        if (col_data.dataOnEntities[MBEDGE][EE].getN().size1() == 0)
          continue;
        ierr = doWork(mm, EE, MBENTITYSET, MBEDGE,
                      row_data.dataOnEntities[MBENTITYSET][mm],
                      col_data.dataOnEntities[MBEDGE][EE]);
        CHKERRG(ierr);
      }
      // faces
      for (unsigned int FF = 0; FF < col_data.dataOnEntities[MBTRI].size();
           FF++) {
        if (col_data.dataOnEntities[MBTRI][FF].getN().size1() == 0)
          continue;
        ierr = doWork(mm, FF, MBENTITYSET, MBTRI,
                      row_data.dataOnEntities[MBENTITYSET][mm],
                      col_data.dataOnEntities[MBTRI][FF]);
        CHKERRG(ierr);
      }
      // quad
      for (unsigned int QQ = 0; QQ < col_data.dataOnEntities[MBQUAD].size();
           QQ++) {
        if (col_data.dataOnEntities[MBQUAD][QQ].getN().size1() == 0)
          continue;
        ierr = doWork(mm, QQ, MBENTITYSET, MBQUAD,
                      row_data.dataOnEntities[MBENTITYSET][mm],
                      col_data.dataOnEntities[MBQUAD][QQ]);
        CHKERRG(ierr);
      }
      // volume
      for (unsigned int VV = 0; VV < col_data.dataOnEntities[MBTET].size();
           VV++) {
        ierr = doWork(mm, VV, MBENTITYSET, MBTET,
                      row_data.dataOnEntities[MBENTITYSET][mm],
                      col_data.dataOnEntities[MBTET][VV]);
        CHKERRG(ierr);
      }
      for (unsigned int PP = 0; PP < col_data.dataOnEntities[MBPRISM].size();
           PP++) {
        ierr = doWork(mm, PP, MBENTITYSET, MBPRISM,
                      row_data.dataOnEntities[MBENTITYSET][mm],
                      col_data.dataOnEntities[MBPRISM][PP]);
        CHKERRG(ierr);
      }
    }
    unsigned int MM = 0;
    if (symm)
      MM = mm;
    for (; MM < col_data.dataOnEntities[MBENTITYSET].size(); MM++) {
      if (row_data.dataOnEntities[MBENTITYSET][MM].getIndices().empty() &&
          row_data.dataOnEntities[MBENTITYSET][MM].getFieldData().empty())
        continue;
      ierr = doWork(mm, MM, MBENTITYSET, MBENTITYSET,
                    row_data.dataOnEntities[MBENTITYSET][mm],
                    col_data.dataOnEntities[MBENTITYSET][MM]);
      CHKERRG(ierr);
    }
  }

  MoFEMFunctionReturnHot(0);
}

template <>
MoFEMErrorCode invertTensor3by3<3, double, ublas::row_major, DoubleAllocator>(
    MatrixDouble &jac_data, VectorDouble &det_data,
    MatrixDouble &inv_jac_data) {

  MoFEMFunctionBeginHot;
  auto A = getFTensor2FromMat<3, 3>(jac_data);
  int nb_gauss_pts = jac_data.size2();
  det_data.resize(nb_gauss_pts, false);
  inv_jac_data.resize(3, nb_gauss_pts, false);
  auto det = getFTensor0FromVec(det_data);
  auto I = getFTensor2FromMat<3, 3>(inv_jac_data);
  for (int gg = 0; gg != nb_gauss_pts; ++gg) {
    ierr = determinantTensor3by3(A, det);
    CHKERRG(ierr);
    ierr = invertTensor3by3(A, det, I);
    CHKERRG(ierr);
    ++A;
    ++det;
    ++I;
  }
  MoFEMFunctionReturnHot(0);
}

MoFEMErrorCode DataOperator::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) {
  MoFEMFunctionBeginHot;

  if (do_vertices) {
    for (unsigned int nn = 0; nn < data.dataOnEntities[MBVERTEX].size(); nn++) {
      if (error_if_no_base &&
          data.dataOnEntities[MBVERTEX][nn].getFieldData().size() &&
          (data.dataOnEntities[MBVERTEX][nn].getBase() == NOBASE ||
           data.dataOnEntities[MBVERTEX][nn].getBase() == LASTBASE)) {
        for (VectorDofs::iterator it =
                 data.dataOnEntities[MBVERTEX][nn].getFieldDofs().begin();
             it != data.dataOnEntities[MBVERTEX][nn].getFieldDofs().end(); it++)
          if ((*it) && (*it)->getActive()) {
            SETERRQ1(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                     "No base on Vertex and side %d", nn);
          }
      }
      ierr = doWork(nn, MBVERTEX, data.dataOnEntities[MBVERTEX][nn]);
      CHKERRG(ierr);
    }
  }
  if (do_edges) {
    for (unsigned int ee = 0; ee < data.dataOnEntities[MBEDGE].size(); ee++) {
      if (error_if_no_base &&
          data.dataOnEntities[MBEDGE][ee].getFieldData().size() &&
          (data.dataOnEntities[MBEDGE][ee].getBase() == NOBASE ||
           data.dataOnEntities[MBEDGE][ee].getBase() == LASTBASE)) {
        for (VectorDofs::iterator it =
                 data.dataOnEntities[MBEDGE][ee].getFieldDofs().begin();
             it != data.dataOnEntities[MBEDGE][ee].getFieldDofs().end(); it++)
          if ((*it) && (*it)->getActive()) {
            SETERRQ1(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                     "No base on Edge and side %d", ee);
          }
      }
      ierr = doWork(ee, MBEDGE, data.dataOnEntities[MBEDGE][ee]);
      CHKERRG(ierr);
    }
  }
  if (do_tris) {
    for (unsigned int ff = 0; ff < data.dataOnEntities[MBTRI].size(); ff++) {
      if (error_if_no_base &&
          data.dataOnEntities[MBTRI][ff].getFieldData().size() &&
          (data.dataOnEntities[MBTRI][ff].getBase() == NOBASE ||
           data.dataOnEntities[MBTRI][ff].getBase() == LASTBASE)) {
        for (VectorDofs::iterator it =
                 data.dataOnEntities[MBTRI][ff].getFieldDofs().begin();
             it != data.dataOnEntities[MBTRI][ff].getFieldDofs().end(); it++)
          if ((*it) && (*it)->getActive()) {
            SETERRQ1(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                     "No base on Triangle and side %d", ff);
          }
      }
      ierr = doWork(ff, MBTRI, data.dataOnEntities[MBTRI][ff]);
      CHKERRG(ierr);
    }
  }
  if (do_quads) {
    for (unsigned int qq = 0; qq < data.dataOnEntities[MBQUAD].size(); qq++) {
      if (error_if_no_base &&
          data.dataOnEntities[MBQUAD][qq].getFieldData().size() &&
          (data.dataOnEntities[MBQUAD][qq].getBase() == NOBASE ||
           data.dataOnEntities[MBQUAD][qq].getBase() == LASTBASE)) {
        for (VectorDofs::iterator it =
                 data.dataOnEntities[MBQUAD][qq].getFieldDofs().begin();
             it != data.dataOnEntities[MBQUAD][qq].getFieldDofs().end(); it++)
          if ((*it) && (*it)->getActive()) {
            SETERRQ1(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                     "No base on Quad and side %d", qq);
          }
      }
      ierr = doWork(qq, MBQUAD, data.dataOnEntities[MBQUAD][qq]);
      CHKERRG(ierr);
    }
  }
  if (do_tets) {
    for (unsigned int vv = 0; vv < data.dataOnEntities[MBTET].size(); vv++) {
      if (error_if_no_base &&
          data.dataOnEntities[MBTET][vv].getFieldData().size() &&
          (data.dataOnEntities[MBTET][vv].getBase() == NOBASE &&
           data.dataOnEntities[MBTET][vv].getBase() == LASTBASE)) {
        for (VectorDofs::iterator it =
                 data.dataOnEntities[MBTET][vv].getFieldDofs().begin();
             it != data.dataOnEntities[MBTET][vv].getFieldDofs().end(); it++)
          if ((*it) && (*it)->getActive()) {
            SETERRQ1(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                     "No base on Tet and side %d", vv);
          }
      }
      ierr = doWork(vv, MBTET, data.dataOnEntities[MBTET][vv]);
      CHKERRG(ierr);
    }
  }
  if (do_prisms) {
    for (unsigned int pp = 0; pp < data.dataOnEntities[MBPRISM].size(); pp++) {
      if (error_if_no_base &&
          data.dataOnEntities[MBPRISM][pp].getFieldData().size() &&
          (data.dataOnEntities[MBPRISM][pp].getBase() == NOBASE ||
           data.dataOnEntities[MBPRISM][pp].getBase() == LASTBASE)) {
        for (VectorDofs::iterator it =
                 data.dataOnEntities[MBPRISM][pp].getFieldDofs().begin();
             it != data.dataOnEntities[MBPRISM][pp].getFieldDofs().end(); it++)
          if ((*it) && (*it)->getActive()) {
            SETERRQ1(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                     "No base on Prism and side %d", pp);
          }
      }
      ierr = doWork(pp, MBPRISM, data.dataOnEntities[MBPRISM][pp]);
      CHKERRG(ierr);
    }
  }
  for (unsigned int mm = 0; mm < data.dataOnEntities[MBENTITYSET].size();
       mm++) {
    if (data.dataOnEntities[MBENTITYSET][mm].getIndices().empty() &&
        data.dataOnEntities[MBENTITYSET][mm].getFieldData().empty())
      continue;
    ierr = doWork(mm, MBENTITYSET, data.dataOnEntities[MBENTITYSET][mm]);
    CHKERRG(ierr);
  }

  MoFEMFunctionReturnHot(0);
}

MoFEMErrorCode OpSetInvJacH1::doWork(int side, EntityType type,
                                     DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBeginHot;

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

    FieldApproximationBase base = static_cast<FieldApproximationBase>(b);
    const unsigned int nb_base_functions = data.getN(base).size2();
    if (!nb_base_functions)
      continue;
    const unsigned int nb_gauss_pts = data.getN(base).size1();
    if (!nb_gauss_pts)
      continue;

    if (type != MBVERTEX) {
      if (nb_base_functions != data.getDiffN(base).size2() / 3) {
        SETERRQ2(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                 "Data inconsistency nb_base_functions != data.diffN.size2()/3 "
                 "( %u != %u/3 )",
                 nb_base_functions, data.getDiffN(base).size2());
      }
    } else {
      if (data.getDiffN(base).size1() != 4 ||
          data.getDiffN(base).size2() != 3) {
        SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                "Data inconsistency");
      }
    }

    diffNinvJac.resize(data.getDiffN(base).size1(), data.getDiffN(base).size2(),
                       false);

    double *t_diff_n_ptr = &*data.getDiffN(base).data().begin();
    FTensor::Tensor1<FTensor::PackPtr<double *, 3>, 3> t_diff_n(
        t_diff_n_ptr, &t_diff_n_ptr[1], &t_diff_n_ptr[2]);
    double *t_inv_n_ptr = &*diffNinvJac.data().begin();
    FTensor::Tensor1<FTensor::PackPtr<double *, 3>, 3> t_inv_diff_n(
        t_inv_n_ptr, &t_inv_n_ptr[1], &t_inv_n_ptr[2]);

    switch (type) {

    case MBVERTEX: {
      for (unsigned int bb = 0; bb != nb_base_functions; ++bb) {
        t_inv_diff_n(i) = t_diff_n(j) * tInvJac(j, i);
        ++t_diff_n;
        ++t_inv_diff_n;
      }
    } break;
    case MBEDGE:
    case MBTRI:
    case MBTET: {
      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) * tInvJac(j, i);
          ++t_diff_n;
          ++t_inv_diff_n;
        }
      }

    } break;
    default:
      SETERRQ(PETSC_COMM_SELF, MOFEM_NOT_IMPLEMENTED, "not implemented");
    }

    data.getDiffN(base).data().swap(diffNinvJac.data());
  }

  MoFEMFunctionReturnHot(0);
}

MoFEMErrorCode
OpSetInvJacHdivAndHcurl::doWork(int side, EntityType type,
                                DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBegin;

  if (type != MBEDGE && type != MBTRI && type != MBTET)
    MoFEMFunctionReturnHot(0);

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

    FieldApproximationBase base = static_cast<FieldApproximationBase>(b);

    const unsigned int nb_gauss_pts = data.getDiffN(base).size1();
    const unsigned int nb_base_functions = data.getDiffN(base).size2() / 9;
    if (!nb_base_functions)
      continue;

    diffHdivInvJac.resize(nb_gauss_pts, data.getDiffN(base).size2(), false);

    auto t_diff_n = data.getFTensor2DiffN<3, 3>(base);
    double *t_inv_diff_n_ptr = &*diffHdivInvJac.data().begin();
    FTensor::Tensor2<FTensor::PackPtr<double *, 9>, 3, 3> t_inv_diff_n(
        t_inv_diff_n_ptr, &t_inv_diff_n_ptr[HVEC0_1],
        &t_inv_diff_n_ptr[HVEC0_2],

        &t_inv_diff_n_ptr[HVEC1_0], &t_inv_diff_n_ptr[HVEC1_1],
        &t_inv_diff_n_ptr[HVEC1_2],

        &t_inv_diff_n_ptr[HVEC2_0], &t_inv_diff_n_ptr[HVEC2_1],
        &t_inv_diff_n_ptr[HVEC2_2]);

    for (unsigned int gg = 0; gg != nb_gauss_pts; ++gg) {
      for (unsigned int bb = 0; bb != nb_base_functions; ++bb) {
        t_inv_diff_n(k, i) = t_diff_n(k, j) * tInvJac(j, i);
        ++t_diff_n;
        ++t_inv_diff_n;
      }
    }

    data.getDiffN(base).data().swap(diffHdivInvJac.data());
  }

  MoFEMFunctionReturn(0);
}

MoFEMErrorCode OpSetContravariantPiolaTransform::doWork(
    int side, EntityType type, DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBegin;

  if (type != MBTRI && type != MBTET)
    MoFEMFunctionReturnHot(0);

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

    FieldApproximationBase base = static_cast<FieldApproximationBase>(b);

    const unsigned int nb_base_functions = data.getN(base).size2() / 3;
    if (!nb_base_functions)
      continue;

    const double c = 1. / 6.;
    const unsigned int nb_gauss_pts = data.getN(base).size1();

    double const a = c / vOlume;

    piolaN.resize(nb_gauss_pts, data.getN(base).size2(), false);
    if (data.getN(base).size2() > 0) {
      auto t_n = data.getFTensor1N<3>(base);
      double *t_transformed_n_ptr = &*piolaN.data().begin();
      FTensor::Tensor1<FTensor::PackPtr<double *, 3>, 3> t_transformed_n(
          t_transformed_n_ptr, // HVEC0
          &t_transformed_n_ptr[HVEC1], &t_transformed_n_ptr[HVEC2]);
      for (unsigned int gg = 0; gg != nb_gauss_pts; ++gg) {
        for (unsigned int bb = 0; bb != nb_base_functions; ++bb) {
          t_transformed_n(i) = a * tJac(i, k) * t_n(k);
          ++t_n;
          ++t_transformed_n;
        }
      }
      data.getN(base).data().swap(piolaN.data());
    }

    piolaDiffN.resize(nb_gauss_pts, data.getDiffN(base).size2(), false);
    if (data.getDiffN(base).size2() > 0) {
      auto t_diff_n = data.getFTensor2DiffN<3, 3>(base);
      double *t_transformed_diff_n_ptr = &*piolaDiffN.data().begin();
      FTensor::Tensor2<FTensor::PackPtr<double *, 9>, 3, 3>
          t_transformed_diff_n(t_transformed_diff_n_ptr,
                               &t_transformed_diff_n_ptr[HVEC0_1],
                               &t_transformed_diff_n_ptr[HVEC0_2],
                               &t_transformed_diff_n_ptr[HVEC1_0],
                               &t_transformed_diff_n_ptr[HVEC1_1],
                               &t_transformed_diff_n_ptr[HVEC1_2],
                               &t_transformed_diff_n_ptr[HVEC2_0],
                               &t_transformed_diff_n_ptr[HVEC2_1],
                               &t_transformed_diff_n_ptr[HVEC2_2]);
      for (unsigned int gg = 0; gg != nb_gauss_pts; ++gg) {
        for (unsigned int bb = 0; bb != nb_base_functions; ++bb) {
          t_transformed_diff_n(i, k) = a * tJac(i, j) * t_diff_n(j, k);
          ++t_diff_n;
          ++t_transformed_diff_n;
        }
      }
      data.getDiffN(base).data().swap(piolaDiffN.data());
    }
  }

  MoFEMFunctionReturn(0);
}

MoFEMErrorCode
OpSetCovariantPiolaTransform::doWork(int side, EntityType type,
                                     DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBegin;

  if (type != MBEDGE && type != MBTRI && type != MBTET)
    MoFEMFunctionReturnHot(0);

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

    FieldApproximationBase base = static_cast<FieldApproximationBase>(b);

    const unsigned int nb_base_functions = data.getN(base).size2() / 3;
    if (!nb_base_functions)
      continue;

    const unsigned int nb_gauss_pts = data.getN(base).size1();
    piolaN.resize(nb_gauss_pts, data.getN(base).size2(), false);
    piolaDiffN.resize(nb_gauss_pts, data.getDiffN(base).size2(), false);

    auto t_n = data.getFTensor1N<3>(base);
    double *t_transformed_n_ptr = &*piolaN.data().begin();
    FTensor::Tensor1<FTensor::PackPtr<double *, 3>, 3> t_transformed_n(
        t_transformed_n_ptr, &t_transformed_n_ptr[HVEC1],
        &t_transformed_n_ptr[HVEC2]);
    auto t_diff_n = data.getFTensor2DiffN<3, 3>(base);
    double *t_transformed_diff_n_ptr = &*piolaDiffN.data().begin();
    FTensor::Tensor2<FTensor::PackPtr<double *, 9>, 3, 3> t_transformed_diff_n(
        t_transformed_diff_n_ptr, &t_transformed_diff_n_ptr[HVEC0_1],
        &t_transformed_diff_n_ptr[HVEC0_2], &t_transformed_diff_n_ptr[HVEC1_0],
        &t_transformed_diff_n_ptr[HVEC1_1], &t_transformed_diff_n_ptr[HVEC1_2],
        &t_transformed_diff_n_ptr[HVEC2_0], &t_transformed_diff_n_ptr[HVEC2_1],
        &t_transformed_diff_n_ptr[HVEC2_2]);

    for (unsigned int gg = 0; gg != nb_gauss_pts; ++gg) {
      for (unsigned int bb = 0; bb != nb_base_functions; ++bb) {
        t_transformed_n(i) = tInvJac(k, i) * t_n(k);
        t_transformed_diff_n(i, k) = tInvJac(j, i) * t_diff_n(j, k);
        ++t_n;
        ++t_transformed_n;
        ++t_diff_n;
        ++t_transformed_diff_n;
      }
    }
    data.getN(base).data().swap(piolaN.data());
    data.getDiffN(base).data().swap(piolaDiffN.data());
  }

  // data.getBase() = base;

  MoFEMFunctionReturn(0);
}

MoFEMErrorCode
OpSetHoInvJacH1::doWork(int side, EntityType type,
                        DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBegin;

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

    FieldApproximationBase base = static_cast<FieldApproximationBase>(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");
    }

    if (type == MBVERTEX) {
      data.getDiffN(base).resize(diffNinvJac.size1(), diffNinvJac.size2(),
                                 false);
    }
    data.getDiffN(base).data().swap(diffNinvJac.data());
  }

  MoFEMFunctionReturn(0);
}

MoFEMErrorCode
OpSetHoInvJacHdivAndHcurl::doWork(int side, EntityType type,
                                  DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBegin;

  if (type != MBEDGE && type != MBTRI && type != MBTET)
    MoFEMFunctionReturnHot(0);

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

    FieldApproximationBase base = static_cast<FieldApproximationBase>(b);

    diffHdivInvJac.resize(data.getDiffN(base).size1(),
                          data.getDiffN(base).size2(), false);

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

    auto t_diff_n = data.getFTensor2DiffN<3, 3>(base);
    double *t_inv_diff_n_ptr = &*diffHdivInvJac.data().begin();
    FTensor::Tensor2<FTensor::PackPtr<double *, 9>, 3, 3> t_inv_diff_n(
        t_inv_diff_n_ptr, &t_inv_diff_n_ptr[HVEC0_1],
        &t_inv_diff_n_ptr[HVEC0_2], &t_inv_diff_n_ptr[HVEC1_0],
        &t_inv_diff_n_ptr[HVEC1_1], &t_inv_diff_n_ptr[HVEC1_2],
        &t_inv_diff_n_ptr[HVEC2_0], &t_inv_diff_n_ptr[HVEC2_1],
        &t_inv_diff_n_ptr[HVEC2_2]);
    double *t_inv_jac_ptr = &*invHoJac.data().begin();
    FTensor::Tensor2<FTensor::PackPtr<double *, 9>, 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]);

    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, j) = t_inv_jac(k, j) * t_diff_n(i, k);
        ++t_diff_n;
        ++t_inv_diff_n;
      }
      ++t_inv_jac;
    }

    data.getDiffN(base).data().swap(diffHdivInvJac.data());
  }

  MoFEMFunctionReturn(0);
}

MoFEMErrorCode OpSetHoContravariantPiolaTransform::doWork(
    int side, EntityType type, DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBegin;

  if (type != MBTRI && type != MBTET)
    MoFEMFunctionReturnHot(0);

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

    FieldApproximationBase base = static_cast<FieldApproximationBase>(b);

    unsigned int nb_gauss_pts = data.getN(base).size1();
    unsigned int nb_base_functions = data.getN(base).size2() / 3;
    piolaN.resize(nb_gauss_pts, data.getN(base).size2(), false);
    piolaDiffN.resize(nb_gauss_pts, data.getDiffN(base).size2(), false);

    auto t_n = data.getFTensor1N<3>(base);
    double *t_transformed_n_ptr = &*piolaN.data().begin();
    FTensor::Tensor1<FTensor::PackPtr<double *, 3>, 3> t_transformed_n(
        t_transformed_n_ptr, // HVEC0
        &t_transformed_n_ptr[HVEC1], &t_transformed_n_ptr[HVEC2]);
    auto t_diff_n = data.getFTensor2DiffN<3, 3>(base);
    double *t_transformed_diff_n_ptr = &*piolaDiffN.data().begin();
    FTensor::Tensor2<FTensor::PackPtr<double *, 9>, 3, 3> t_transformed_diff_n(
        t_transformed_diff_n_ptr, &t_transformed_diff_n_ptr[HVEC0_1],
        &t_transformed_diff_n_ptr[HVEC0_2], &t_transformed_diff_n_ptr[HVEC1_0],
        &t_transformed_diff_n_ptr[HVEC1_1], &t_transformed_diff_n_ptr[HVEC1_2],
        &t_transformed_diff_n_ptr[HVEC2_0], &t_transformed_diff_n_ptr[HVEC2_1],
        &t_transformed_diff_n_ptr[HVEC2_2]);

    FTensor::Tensor0<double *> t_det(&*detHoJac.data().begin());
    double *t_jac_ptr = &*hoJac.data().begin();
    FTensor::Tensor2<FTensor::PackPtr<double *, 9>, 3, 3> t_jac(
        t_jac_ptr, &t_jac_ptr[1], &t_jac_ptr[2], &t_jac_ptr[3], &t_jac_ptr[4],
        &t_jac_ptr[5], &t_jac_ptr[6], &t_jac_ptr[7], &t_jac_ptr[8]);

    for (unsigned int gg = 0; gg != nb_gauss_pts; ++gg) {
      for (unsigned int bb = 0; bb != nb_base_functions; ++bb) {
        const double a = 1. / t_det;
        t_transformed_n(i) = a * t_jac(i, k) * t_n(k);
        t_transformed_diff_n(i, k) = a * t_jac(i, j) * t_diff_n(j, k);
        ++t_n;
        ++t_transformed_n;
        ++t_diff_n;
        ++t_transformed_diff_n;
      }
      ++t_det;
      ++t_jac;
    }

    data.getN(base).data().swap(piolaN.data());
    data.getDiffN(base).data().swap(piolaDiffN.data());
  }

  MoFEMFunctionReturn(0);
}

MoFEMErrorCode OpSetHoCovariantPiolaTransform::doWork(
    int side, EntityType type, DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBegin;

  if (type != MBEDGE && type != MBTRI && type != MBTET)
    MoFEMFunctionReturnHot(0);

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

    FieldApproximationBase base = static_cast<FieldApproximationBase>(b);

    unsigned int nb_gauss_pts = data.getN(base).size1();
    unsigned int nb_base_functions = data.getN(base).size2() / 3;
    piolaN.resize(nb_gauss_pts, data.getN(base).size2(), false);
    piolaDiffN.resize(nb_gauss_pts, data.getDiffN(base).size2(), false);

    auto t_n = data.getFTensor1N<3>(base);
    double *t_transformed_n_ptr = &*piolaN.data().begin();
    FTensor::Tensor1<FTensor::PackPtr<double *, 3>, 3> t_transformed_n(
        t_transformed_n_ptr, // HVEC0
        &t_transformed_n_ptr[HVEC1], &t_transformed_n_ptr[HVEC2]);
    auto t_diff_n = data.getFTensor2DiffN<3, 3>(base);
    double *t_transformed_diff_n_ptr = &*piolaDiffN.data().begin();
    FTensor::Tensor2<FTensor::PackPtr<double *, 9>, 3, 3> t_transformed_diff_n(
        t_transformed_diff_n_ptr, &t_transformed_diff_n_ptr[HVEC0_1],
        &t_transformed_diff_n_ptr[HVEC0_2], &t_transformed_diff_n_ptr[HVEC1_0],
        &t_transformed_diff_n_ptr[HVEC1_1], &t_transformed_diff_n_ptr[HVEC1_2],
        &t_transformed_diff_n_ptr[HVEC2_0], &t_transformed_diff_n_ptr[HVEC2_1],
        &t_transformed_diff_n_ptr[HVEC2_2]);

    double *t_inv_jac_ptr = &*hoInvJac.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);

    for (unsigned int gg = 0; gg != nb_gauss_pts; ++gg) {
      for (unsigned int bb = 0; bb != nb_base_functions; ++bb) {
        t_transformed_n(i) = t_inv_jac(k, i) * t_n(k);
        t_transformed_diff_n(i, k) = t_inv_jac(j, i) * t_diff_n(j, k);
        ++t_n;
        ++t_transformed_n;
        ++t_diff_n;
        ++t_transformed_diff_n;
      }
      ++t_inv_jac;
    }

    data.getN(base).data().swap(piolaN.data());
    data.getDiffN(base).data().swap(piolaDiffN.data());
  }

  MoFEMFunctionReturn(0);
}

MoFEMErrorCode
OpGetCoordsAndNormalsOnFace::doWork(int side, EntityType type,
                                    DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBeginHot;

  unsigned int nb_dofs = data.getFieldData().size();
  if (nb_dofs == 0)
    MoFEMFunctionReturnHot(0);

  int nb_gauss_pts = data.getN().size1();
  cOords_at_GaussPt.resize(nb_gauss_pts, 3, false);
  tAngent1_at_GaussPt.resize(nb_gauss_pts, 3, false);
  tAngent2_at_GaussPt.resize(nb_gauss_pts, 3, false);

  auto get_ftensor1 = [](MatrixDouble &m) {
    return FTensor::Tensor1<FTensor::PackPtr<double *, 3>, 3>(
        &m(0, 0), &m(0, 1), &m(0, 2));
  };
  auto t_coords = get_ftensor1(cOords_at_GaussPt);
  auto t_t1 = get_ftensor1(tAngent1_at_GaussPt);
  auto t_t2 = get_ftensor1(tAngent2_at_GaussPt);
  FTensor::Index<'i', 3> i;
  FTensor::Number<0> N0;
  FTensor::Number<1> N1;

  switch (type) {
  case MBVERTEX: {
    cOords_at_GaussPt.clear();
    tAngent1_at_GaussPt.clear();
    tAngent2_at_GaussPt.clear();
    auto t_base = data.getFTensor0N();
    for (int gg = 0; gg != nb_gauss_pts; ++gg) {
      auto t_data = data.getFTensor1FieldData<3>();
      auto t_diff_base = data.getFTensor1DiffN<2>();
      for (int nn = 0; nn != 3; nn++) {
        t_coords(i) += t_base * t_data(i);
        t_t1(i) += t_data(i) * t_diff_base(N0);
        t_t2(i) += t_data(i) * t_diff_base(N1);
        ++t_data;
        ++t_base;
        ++t_diff_base;
      }
      ++t_coords;
      ++t_t1;
      ++t_t2;
    }
  } break;
  case MBEDGE:
  case MBTRI: {
    if (2 * data.getN().size2() != data.getDiffN().size2()) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY, "data inconsistency");
    }
    if (nb_dofs % 3 != 0) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY, "data inconsistency");
    }
    if (nb_dofs > 3 * data.getN().size2()) {
      unsigned int nn = 0;
      for (; nn != nb_dofs; nn++) {
        if (!data.getFieldDofs()[nn]->getActive())
          break;
      }
      if (nn > 3 * data.getN().size2()) {
        SETERRQ1(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                 "data inconsistency for base %s",
                 ApproximationBaseNames[data.getBase()]);
      } else {
        nb_dofs = nn;
        if (!nb_dofs)
          MoFEMFunctionReturnHot(0);
      }
    }
    const int nb_base_functions = data.getN().size2();
    auto t_base = data.getFTensor0N();
    auto t_diff_base = data.getFTensor1DiffN<2>();
    for (int gg = 0; gg != nb_gauss_pts; ++gg) {
      auto t_data = data.getFTensor1FieldData<3>();
      int bb = 0;
      for (; bb != nb_dofs / 3; ++bb) {
        t_coords(i) += t_base * t_data(i);
        t_t1(i) += t_data(i) * t_diff_base(N0);
        t_t2(i) += t_data(i) * t_diff_base(N1);
        ++t_data;
        ++t_base;
        ++t_diff_base;
      }
      for (; bb != nb_base_functions; ++bb) {
        ++t_base;
        ++t_diff_base;
      }
      ++t_coords;
      ++t_t1;
      ++t_t2;
    }
  } break;
  default:
    SETERRQ(PETSC_COMM_SELF, MOFEM_NOT_IMPLEMENTED, "not implemented");
  }

  MoFEMFunctionReturnHot(0);
}

MoFEMErrorCode OpGetCoordsAndNormalsOnFace::calculateNormals() {
  MoFEMFunctionBeginHot;

  nOrmals_at_GaussPt.resize(tAngent1_at_GaussPt.size1(), 3, false);

  auto get_ftensor1 = [](MatrixDouble &m) {
    return FTensor::Tensor1<FTensor::PackPtr<double *, 3>, 3>(
        &m(0, 0), &m(0, 1), &m(0, 2));
  };
  auto t_normal = get_ftensor1(nOrmals_at_GaussPt);
  auto t_t1 = get_ftensor1(tAngent1_at_GaussPt);
  auto t_t2 = get_ftensor1(tAngent2_at_GaussPt);

  FTensor::Index<'i', 3> i;
  FTensor::Index<'j', 3> j;
  FTensor::Index<'k', 3> k;

  for (unsigned int gg = 0; gg != tAngent1_at_GaussPt.size1(); ++gg) {
    t_normal(j) = FTensor::levi_civita(i, j, k) * t_t1(k) * t_t2(i);
    ++t_normal;
    ++t_t1;
    ++t_t2;
  }

  MoFEMFunctionReturnHot(0);
}

MoFEMErrorCode
OpGetCoordsAndNormalsOnPrism::doWork(int side, EntityType type,
                                     DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBegin;

  if (data.getFieldData().size() == 0)
    MoFEMFunctionReturnHot(0);
  const int valid_edges3[] = {1, 1, 1, 0, 0, 0, 0, 0, 0};
  const int valid_faces3[] = {0, 0, 0, 1, 0, 0, 0, 0, 0};
  const int valid_edges4[] = {0, 0, 0, 0, 0, 0, 1, 1, 1};
  const int valid_faces4[] = {0, 0, 0, 0, 1, 0, 0, 0, 0};

  if (type == MBEDGE) {
    if (!valid_edges3[side] || valid_edges4[side])
      MoFEMFunctionReturnHot(0);
  } else if (type == MBTRI) {
    if (!valid_faces3[side] || valid_faces4[side])
      MoFEMFunctionReturnHot(0);
  }

  switch (type) {
  case MBVERTEX: {
    for (unsigned int gg = 0; gg < data.getN().size1(); ++gg) {
      for (int dd = 0; dd < 3; dd++) {
        cOords_at_GaussPtF3(gg, dd) =
            cblas_ddot(3, &data.getN(gg)[0], 1, &data.getFieldData()[dd], 3);
        tAngent1_at_GaussPtF3(gg, dd) = cblas_ddot(
            3, &data.getDiffN()(gg, 0), 2, &data.getFieldData()[dd], 3);
        tAngent2_at_GaussPtF3(gg, dd) = cblas_ddot(
            3, &data.getDiffN()(gg, 1), 2, &data.getFieldData()[dd], 3);
        cOords_at_GaussPtF4(gg, dd) = cblas_ddot(
            3, &data.getN(gg)[0], 1, &data.getFieldData()[9 + dd], 3);
        tAngent1_at_GaussPtF4(gg, dd) = cblas_ddot(
            3, &data.getDiffN()(gg, 6 + 0), 2, &data.getFieldData()[9 + dd], 3);
        tAngent2_at_GaussPtF4(gg, dd) = cblas_ddot(
            3, &data.getDiffN()(gg, 6 + 1), 2, &data.getFieldData()[9 + dd], 3);
      }
    }
  } break;
  case MBEDGE:
  case MBTRI: {
    if (2 * data.getN().size2() != data.getDiffN().size2()) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY, "data inconsistency");
    }
    unsigned int nb_dofs = data.getFieldData().size();
    if (nb_dofs % 3 != 0) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY, "data inconsistency");
    }
    if (nb_dofs > 3 * data.getN().size2()) {
      SETERRQ2(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
               "data inconsistency, side %d type %d", side, type);
    }
    for (unsigned int gg = 0; gg < data.getN().size1(); ++gg) {
      for (int dd = 0; dd < 3; dd++) {
        if ((type == MBTRI && valid_faces3[side]) ||
            (type == MBEDGE && valid_edges3[side])) {
          cOords_at_GaussPtF3(gg, dd) += cblas_ddot(
              nb_dofs / 3, &data.getN(gg)[0], 1, &data.getFieldData()[dd], 3);
          tAngent1_at_GaussPtF3(gg, dd) +=
              cblas_ddot(nb_dofs / 3, &data.getDiffN()(gg, 0), 2,
                         &data.getFieldData()[dd], 3);
          tAngent2_at_GaussPtF3(gg, dd) +=
              cblas_ddot(nb_dofs / 3, &data.getDiffN()(gg, 1), 2,
                         &data.getFieldData()[dd], 3);
        } else if ((type == MBTRI && valid_faces4[side]) ||
                   (type == MBEDGE && valid_edges4[side])) {
          cOords_at_GaussPtF4(gg, dd) += cblas_ddot(
              nb_dofs / 3, &data.getN(gg)[0], 1, &data.getFieldData()[dd], 3);
          tAngent1_at_GaussPtF4(gg, dd) +=
              cblas_ddot(nb_dofs / 3, &data.getDiffN()(gg, 0), 2,
                         &data.getFieldData()[dd], 3);
          tAngent2_at_GaussPtF4(gg, dd) +=
              cblas_ddot(nb_dofs / 3, &data.getDiffN()(gg, 1), 2,
                         &data.getFieldData()[dd], 3);
        }
      }
    }
  } break;
  default:
    SETERRQ(PETSC_COMM_SELF, MOFEM_NOT_IMPLEMENTED, "not implemented");
  }

  MoFEMFunctionReturn(0);
}

MoFEMErrorCode OpGetCoordsAndNormalsOnPrism::calculateNormals() {
  MoFEMFunctionBegin;

  sPin.resize(3, 3);
  sPin.clear();
  nOrmals_at_GaussPtF3.resize(tAngent1_at_GaussPtF3.size1(), 3, false);
  for (unsigned int gg = 0; gg < tAngent1_at_GaussPtF3.size1(); ++gg) {
    ierr = Spin(&*sPin.data().begin(), &tAngent1_at_GaussPtF3(gg, 0));
    CHKERRG(ierr);
    cblas_dgemv(CblasRowMajor, CblasNoTrans, 3, 3, 1., &*sPin.data().begin(), 3,
                &tAngent2_at_GaussPtF3(gg, 0), 1, 0.,
                &nOrmals_at_GaussPtF3(gg, 0), 1);
  }
  sPin.clear();
  nOrmals_at_GaussPtF4.resize(tAngent1_at_GaussPtF4.size1(), 3, false);
  for (unsigned int gg = 0; gg < tAngent1_at_GaussPtF4.size1(); ++gg) {
    ierr = Spin(&*sPin.data().begin(), &tAngent1_at_GaussPtF4(gg, 0));
    CHKERRG(ierr);
    cblas_dgemv(CblasRowMajor, CblasNoTrans, 3, 3, 1., &*sPin.data().begin(), 3,
                &tAngent2_at_GaussPtF4(gg, 0), 1, 0.,
                &nOrmals_at_GaussPtF4(gg, 0), 1);
  }
  MoFEMFunctionReturn(0);
}

MoFEMErrorCode OpSetContravariantPiolaTransformOnTriangle::doWork(
    int side, EntityType type, DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBeginHot;

  if (type != MBTRI)
    MoFEMFunctionReturnHot(0);

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

    FieldApproximationBase base = static_cast<FieldApproximationBase>(b);

    int nb_gauss_pts = data.getN(base).size1();
    if (nb_gauss_pts) {
      FTensor::Index<'i', 3> i;
      auto t_normal =
          FTensor::Tensor1<double, 3>(nOrmal[0], nOrmal[1], nOrmal[2]);
      const double l02 = t_normal(i) * t_normal(i);
      int nb_base_functions = data.getN(base).size2() / 3;
      auto t_n = data.getFTensor1N<3>(base);
      if (normalsAtGaussPts.size1() == (unsigned int)nb_gauss_pts) {
        auto t_ho_normal =
            FTensor::Tensor1<FTensor::PackPtr<const double *, 3>, 3>(
                &normalsAtGaussPts(0, 0), &normalsAtGaussPts(0, 1),
                &normalsAtGaussPts(0, 2));
        for (int gg = 0; gg != nb_gauss_pts; ++gg) {
          for (int bb = 0; bb != nb_base_functions; ++bb) {
            const double v = t_n(0);
            const double l2 = t_ho_normal(i) * t_ho_normal(i);
            t_n(i) = (v / l2) * t_ho_normal(i);
            ++t_n;
          }
          ++t_ho_normal;
        }
      } else {
        for (int gg = 0; gg != nb_gauss_pts; ++gg) {
          for (int bb = 0; bb != nb_base_functions; ++bb) {
            const double v = t_n(0);
            t_n(i) = (v / l02) * t_normal(i);
            ++t_n;
          }
        }
      }
    }
  }

  MoFEMFunctionReturnHot(0);
}

MoFEMErrorCode OpSetCovariantPiolaTransformOnTriangle::doWork(
    int side, EntityType type, DataForcesAndSourcesCore::EntData &data) {

  MoFEMFunctionBeginHot;

  if (type != MBEDGE && type != MBTRI)
    MoFEMFunctionReturnHot(0);

  FTensor::Index<'i', 3> i;
  FTensor::Index<'j', 3> j;
  FTensor::Index<'k', 2> k;

  // double zero = 0;
  FTensor::Tensor2<const double *, 3, 3> t_m(
      &tAngent0[0], &tAngent1[0], &nOrmal[0], &tAngent0[1], &tAngent1[1],
      &nOrmal[1], &tAngent0[2], &tAngent1[2], &nOrmal[2], 3);
  double det;
  FTensor::Tensor2<double, 3, 3> t_inv_m;
  ierr = determinantTensor3by3(t_m, det);
  CHKERRG(ierr);
  ierr = invertTensor3by3(t_m, det, t_inv_m);
  CHKERRG(ierr);

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

    FieldApproximationBase base = static_cast<FieldApproximationBase>(b);

    int nb_dofs = data.getN(base).size2() / 3;
    int nb_gauss_pts = data.getN(base).size1();

    MatrixDouble piola_n(data.getN(base).size1(), data.getN(base).size2());
    MatrixDouble diff_piola_n(data.getDiffN(base).size1(),
                              data.getDiffN(base).size2());

    if (nb_dofs > 0 && nb_gauss_pts > 0) {

      FieldApproximationBase base = static_cast<FieldApproximationBase>(b);
      FTensor::Tensor1<FTensor::PackPtr<double *, 3>, 3> t_h_curl(
          &data.getN(base)(0, HVEC0), &data.getN(base)(0, HVEC1),
          &data.getN(base)(0, HVEC2));
      FTensor::Tensor2<FTensor::PackPtr<double *, 6>, 3, 2> t_diff_h_curl(
          &data.getDiffN(base)(0, HVEC0_0), &data.getDiffN(base)(0, HVEC0_1),
          &data.getDiffN(base)(0, HVEC1_0), &data.getDiffN(base)(0, HVEC1_1),
          &data.getDiffN(base)(0, HVEC2_0), &data.getDiffN(base)(0, HVEC2_1));
      FTensor::Tensor1<FTensor::PackPtr<double *, 3>, 3> t_transformed_h_curl(
          &piola_n(0, HVEC0), &piola_n(0, HVEC1), &piola_n(0, HVEC2));
      FTensor::Tensor2<FTensor::PackPtr<double *, 6>, 3, 2>
          t_transformed_diff_h_curl(
              &diff_piola_n(0, HVEC0_0), &diff_piola_n(0, HVEC0_1),
              &diff_piola_n(0, HVEC1_0), &diff_piola_n(0, HVEC1_1),
              &diff_piola_n(0, HVEC2_0), &diff_piola_n(0, HVEC2_1));

      int cc = 0;
      if (normalsAtGaussPts.size1() == (unsigned int)nb_gauss_pts) {
        // HO geometry is set, so jacobian is different at each gauss point
        FTensor::Tensor2<const double *, 3, 3> t_m_at_pts(
            &tangent0AtGaussPt(0, 0), &tangent1AtGaussPt(0, 0),
            &normalsAtGaussPts(0, 0), &tangent0AtGaussPt(0, 1),
            &tangent1AtGaussPt(0, 1), &normalsAtGaussPts(0, 1),
            &tangent0AtGaussPt(0, 2), &tangent1AtGaussPt(0, 2),
            &normalsAtGaussPts(0, 2), 3);
        for (int gg = 0; gg < nb_gauss_pts; ++gg) {
          ierr = determinantTensor3by3(t_m_at_pts, det);
          CHKERRG(ierr);
          ierr = invertTensor3by3(t_m_at_pts, det, t_inv_m);
          CHKERRG(ierr);
          for (int ll = 0; ll != nb_dofs; ll++) {
            t_transformed_h_curl(i) = t_inv_m(j, i) * t_h_curl(j);
            t_transformed_diff_h_curl(i, k) =
                t_inv_m(j, i) * t_diff_h_curl(j, k);
            ++t_h_curl;
            ++t_transformed_h_curl;
            ++t_diff_h_curl;
            ++t_transformed_diff_h_curl;
            ++cc;
          }
          ++t_m_at_pts;
        }
      } else {
        for (int gg = 0; gg < nb_gauss_pts; ++gg) {
          for (int ll = 0; ll != nb_dofs; ll++) {
            t_transformed_h_curl(i) = t_inv_m(j, i) * t_h_curl(j);
            t_transformed_diff_h_curl(i, k) =
                t_inv_m(j, i) * t_diff_h_curl(j, k);
            ++t_h_curl;
            ++t_transformed_h_curl;
            ++t_diff_h_curl;
            ++t_transformed_diff_h_curl;
            ++cc;
          }
        }
      }
      if (cc != nb_gauss_pts * nb_dofs) {
        SETERRQ(PETSC_COMM_SELF, MOFEM_IMPOSIBLE_CASE, "Data inconsistency");
      }
      data.getN(base).data().swap(piola_n.data());
      data.getDiffN(base).data().swap(diff_piola_n.data());
    }
  }

  MoFEMFunctionReturnHot(0);
}

MoFEMErrorCode
OpGetHoTangentOnEdge::doWork(int side, EntityType type,
                             DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBegin;

  int nb_dofs = data.getFieldData().size();
  if (nb_dofs == 0)
    MoFEMFunctionReturnHot(0);

  int nb_gauss_pts = data.getN().size1();
  tAngent.resize(nb_gauss_pts, 3, false);

  int nb_approx_fun = data.getN().size2();
  double *diff = &*data.getDiffN().data().begin();
  double *dofs[] = {&data.getFieldData()[0], &data.getFieldData()[1],
                    &data.getFieldData()[2]};

  tAngent.resize(nb_gauss_pts, 3, false);

  switch (type) {
  case MBVERTEX:
    for (int dd = 0; dd != 3; dd++) {
      for (int gg = 0; gg != nb_gauss_pts; ++gg) {
        tAngent(gg, dd) = cblas_ddot(2, diff, 1, dofs[dd], 3);
      }
    }
    break;
  case MBEDGE:
    if (nb_dofs % 3) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_IMPOSIBLE_CASE,
              "Approximated field should be rank 3, i.e. vector in 3d space");
    }
    for (int dd = 0; dd != 3; dd++) {
      for (int gg = 0; gg != nb_gauss_pts; ++gg) {
        tAngent(gg, dd) +=
            cblas_ddot(nb_dofs / 3, &diff[gg * nb_approx_fun], 1, dofs[dd], 3);
      }
    }
    break;
  default:
    SETERRQ(PETSC_COMM_SELF, MOFEM_IMPOSIBLE_CASE,
            "This operator can calculate tangent vector only on edge");
  }

  MoFEMFunctionReturn(0);
}

MoFEMErrorCode OpSetCovariantPiolaTransformOnEdge::doWork(
    int side, EntityType type, DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBeginHot;

  if (type != MBEDGE)
    MoFEMFunctionReturnHot(0);

  FTensor::Index<'i', 3> i;
  FTensor::Tensor1<FTensor::PackPtr<const double *, 1>, 3> t_m(
      &tAngent[0], &tAngent[1], &tAngent[2]);
  const double l0 = t_m(i) * t_m(i);
  std::vector<double> l1;
  {
    int nb_gauss_pts = tangentAtGaussPt.size1();
    if (nb_gauss_pts) {
      l1.resize(nb_gauss_pts);
      FTensor::Tensor1<FTensor::PackPtr<const double *, 3>, 3> t_m_at_pts(
          &tangentAtGaussPt(0, 0), &tangentAtGaussPt(0, 1),
          &tangentAtGaussPt(0, 2));
      for (int gg = 0; gg < nb_gauss_pts; ++gg) {
        l1[gg] = t_m_at_pts(i) * t_m_at_pts(i);
        ++t_m_at_pts;
      }
    }
  }

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

    FieldApproximationBase base = static_cast<FieldApproximationBase>(b);
    int nb_gauss_pts = data.getN(base).size1();
    int nb_dofs = data.getN(base).size2() / 3;
    if (nb_gauss_pts > 0 && nb_dofs > 0) {
      FTensor::Tensor1<FTensor::PackPtr<double *, 3>, 3> t_h_curl(
          &data.getN(base)(0, HVEC0), &data.getN(base)(0, HVEC1),
          &data.getN(base)(0, HVEC2));
      int cc = 0;
      if (tangentAtGaussPt.size1() == (unsigned int)nb_gauss_pts) {
        FTensor::Tensor1<FTensor::PackPtr<const double *, 3>, 3> t_m_at_pts(
            &tangentAtGaussPt(0, 0), &tangentAtGaussPt(0, 1),
            &tangentAtGaussPt(0, 2));
        for (int gg = 0; gg < nb_gauss_pts; ++gg) {
          const double l0 = l1[gg];
          for (int ll = 0; ll != nb_dofs; ll++) {
            const double val = t_h_curl(0);
            const double a = val / l0;
            t_h_curl(i) = t_m_at_pts(i) * a;
            ++t_h_curl;
            ++cc;
          }
          ++t_m_at_pts;
        }
      } else {
        for (int gg = 0; gg < nb_gauss_pts; ++gg) {
          for (int ll = 0; ll != nb_dofs; ll++) {
            const double val = t_h_curl(0);
            const double a = val / l0;
            t_h_curl(i) = t_m(i) * a;
            ++t_h_curl;
            ++cc;
          }
        }
      }
      if (cc != nb_gauss_pts * nb_dofs) {
        SETERRQ(PETSC_COMM_SELF, MOFEM_IMPOSIBLE_CASE, "Data inconsistency");
      }
    }
  }

  MoFEMFunctionReturnHot(0);
}

template <>
template <>
FTensor::Tensor1<double *, 3>
OpGetDataAndGradient<3, 3>::getValAtGaussPtsTensor<3>(MatrixDouble &data) {
  double *ptr = &*data.data().begin();
  return FTensor::Tensor1<double *, 3>(ptr, &ptr[1], &ptr[2], 3);
}

template <>
template <>
FTensor::Tensor2<double *, 3, 3>
OpGetDataAndGradient<3, 3>::getGradAtGaussPtsTensor<3, 3>(MatrixDouble &data) {
  double *ptr = &*data.data().begin();
  return FTensor::Tensor2<double *, 3, 3>(ptr, &ptr[1], &ptr[2], &ptr[3],
                                          &ptr[4], &ptr[5], &ptr[6], &ptr[7],
                                          &ptr[8], 9);
}

template <>
MoFEMErrorCode OpGetDataAndGradient<3, 3>::calculateValAndGrad(
    int side, EntityType type, DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBeginHot;
  if (data.getBase() == NOBASE)
    MoFEMFunctionReturnHot(0);
  const unsigned int nb_gauss_pts = data.getN().size1();
  const unsigned int nb_base_functions = data.getN().size2();
  const unsigned int nb_dofs = data.getFieldData().size();
  if (!nb_dofs)
    MoFEMFunctionReturnHot(0);
  auto t_n = data.getFTensor0N();
  auto t_val = getValAtGaussPtsTensor<3>(dataAtGaussPts);
  auto t_grad = getGradAtGaussPtsTensor<3, 3>(dataGradAtGaussPts);
  FTensor::Index<'i', 3> i;
  FTensor::Index<'j', 3> j;
  if (type == MBVERTEX &&
      data.getDiffN().data().size() == 3 * nb_base_functions) {
    for (unsigned int gg = 0; gg != nb_gauss_pts; ++gg) {
      auto t_data = data.getFTensor1FieldData<3>();
      auto t_diff_n = data.getFTensor1DiffN<3>();
      unsigned int bb = 0;
      for (; bb != nb_dofs / 3; ++bb) {
        t_val(i) += t_data(i) * t_n;
        t_grad(i, j) += t_data(i) * t_diff_n(j);
        ++t_n;
        ++t_diff_n;
        ++t_data;
      }
      ++t_val;
      ++t_grad;
      for (; bb != nb_base_functions; ++bb) {
        ++t_n;
      }
    }
  } else {
    auto t_diff_n = data.getFTensor1DiffN<3>();
    for (unsigned int gg = 0; gg != nb_gauss_pts; ++gg) {
      auto t_data = data.getFTensor1FieldData<3>();
      unsigned int bb = 0;
      for (; bb != nb_dofs / 3; ++bb) {
        t_val(i) += t_data(i) * t_n;
        t_grad(i, j) += t_data(i) * t_diff_n(j);
        ++t_n;
        ++t_diff_n;
        ++t_data;
      }
      ++t_val;
      ++t_grad;
      for (; bb != nb_base_functions; ++bb) {
        ++t_n;
        ++t_diff_n;
      }
    }
  }
  MoFEMFunctionReturnHot(0);
}

template <>
MoFEMErrorCode OpGetDataAndGradient<1, 3>::calculateValAndGrad(
    int side, EntityType type, DataForcesAndSourcesCore::EntData &data) {
  MoFEMFunctionBeginHot;
  const unsigned int nb_gauss_pts = data.getN().size1();
  const unsigned int nb_base_functions = data.getN().size2();
  // bool constant_diff = false;
  const unsigned int nb_dofs = data.getFieldData().size();
  auto t_n = data.getFTensor0N();
  FTensor::Tensor0<double *> t_val =
      FTensor::Tensor0<double *>(&*dataAtGaussPts.data().begin(), 1);
  double *ptr = &*dataGradAtGaussPts.data().begin();
  FTensor::Tensor1<FTensor::PackPtr<double *, 3>, 3> t_grad(ptr, &ptr[1],
                                                            &ptr[2]);
  FTensor::Index<'i', 3> i;
  if (type == MBVERTEX &&
      data.getDiffN().data().size() == 3 * nb_base_functions) {
    for (unsigned int gg = 0; gg != nb_gauss_pts; ++gg) {
      auto t_data = data.getFTensor0FieldData();
      auto t_diff_n = data.getFTensor1DiffN<3>();
      unsigned int bb = 0;
      for (; bb != nb_dofs / 3; ++bb) {
        t_val += t_data * t_n;
        t_grad(i) += t_data * t_diff_n(i);
        ++t_n;
        ++t_diff_n;
        ++t_data;
      }
      ++t_val;
      ++t_grad;
      for (; bb != nb_base_functions; ++bb) {
        ++t_n;
      }
    }
  } else {
    auto t_diff_n = data.getFTensor1DiffN<3>();
    for (unsigned int gg = 0; gg != nb_gauss_pts; ++gg) {
      auto t_data = data.getFTensor0FieldData();
      unsigned int bb = 0;
      for (; bb != nb_dofs / 3; ++bb) {
        t_val = t_data * t_n;
        t_grad(i) += t_data * t_diff_n(i);
        ++t_n;
        ++t_diff_n;
        ++t_data;
      }
      ++t_val;
      ++t_grad;
      for (; bb != nb_base_functions; ++bb) {
        ++t_n;
        ++t_diff_n;
      }
    }
  }
  MoFEMFunctionReturnHot(0);
}
} // namespace MoFEM