1423 {
1425
1427
1429
1430 if (bc.faces.find(fe_ent) != bc.faces.end()) {
1432
1433 int nb_integration_pts = OP::getGaussPts().size2();
1434 auto t_normal = OP::getFTensor1NormalsAtGaussPts();
1435 auto t_w = OP::getFTensor0IntegrationWeight();
1436 int nb_base_functions = data.
getN().size2() / 3;
1438
1441
1447 } else {
1449 ->getScale(OP::getFEMethod()->ts_t);
1450 }
1451 } else {
1453 << "No scaling method found for " << bc.blockName;
1454 }
1455
1456
1459
1460 for (int gg = 0; gg != nb_integration_pts; ++gg) {
1462 int bb = 0;
1463 for (; bb != nb_dofs /
SPACE_DIM; ++bb) {
1465 t_w * (t_row_base_fun(
j) * t_normal(
j)) * t_bc_disp(
i) * 0.5;
1466 ++t_nf;
1467 ++t_row_base_fun;
1468 }
1469 for (; bb != nb_base_functions; ++bb)
1470 ++t_row_base_fun;
1471
1472 ++t_w;
1473 ++t_normal;
1474 }
1475 }
1476 }
1478}
#define FTENSOR_INDEX(DIM, I)
#define MoFEMFunctionBegin
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
#define MoFEMFunctionReturn(a)
Last executable line of each PETSc function used for error handling. Replaces return()
#define MOFEM_LOG(channel, severity)
Log.
FTensor::Index< 'i', SPACE_DIM > i
FTensor::Index< 'j', 3 > j
FTensor::Tensor1< FTensor::PackPtr< double *, S >, DIM > getFTensor1FromPtr(double *ptr)
Make Tensor1 from pointer.
static double dynamicTime
static PetscBool dynamicRelaxation
boost::shared_ptr< BcDispVec > bcDispPtr
std::map< std::string, boost::shared_ptr< ScalingMethod > > scalingMethodsMap
MatrixDouble & getN(const FieldApproximationBase base)
get base functions this return matrix (nb. of rows is equal to nb. of Gauss pts, nb....
FTensor::Tensor1< FTensor::PackPtr< double *, Tensor_Dim >, Tensor_Dim > getFTensor1N(FieldApproximationBase base)
Get base functions for Hdiv/Hcurl spaces.
const VectorInt & getIndices() const
Get global indices of dofs on entity.