49 #ifndef __INTREPID2_HDIV_QUAD_IN_FEM_HPP__ 50 #define __INTREPID2_HDIV_QUAD_IN_FEM_HPP__ 68 template<EOperator opType>
70 template<
typename outputValueViewType,
71 typename inputPointViewType,
72 typename workViewType,
73 typename vinvViewType>
74 KOKKOS_INLINE_FUNCTION
76 getValues( outputValueViewType outputValues,
77 const inputPointViewType inputPoints,
79 const vinvViewType vinvLine,
80 const vinvViewType vinvBubble );
82 KOKKOS_INLINE_FUNCTION
84 getWorkSizePerPoint(ordinal_type order) {
85 return 2*getPnCardinality<1>(order)+getPnCardinality<1>(order-1);
89 template<
typename DeviceType, ordinal_type numPtsPerEval,
90 typename outputValueValueType,
class ...outputValueProperties,
91 typename inputPointValueType,
class ...inputPointProperties,
92 typename vinvValueType,
class ...vinvProperties>
94 getValues( Kokkos::DynRankView<outputValueValueType,outputValueProperties...> outputValues,
95 const Kokkos::DynRankView<inputPointValueType, inputPointProperties...> inputPoints,
96 const Kokkos::DynRankView<vinvValueType, vinvProperties...> vinvLine,
97 const Kokkos::DynRankView<vinvValueType, vinvProperties...> vinvBubble,
103 template<
typename outputValueViewType,
104 typename inputPointViewType,
105 typename vinvViewType,
106 typename workViewType,
108 ordinal_type numPtsEval>
110 outputValueViewType _outputValues;
111 const inputPointViewType _inputPoints;
112 const vinvViewType _vinvLine;
113 const vinvViewType _vinvBubble;
116 KOKKOS_INLINE_FUNCTION
117 Functor( outputValueViewType outputValues_,
118 inputPointViewType inputPoints_,
119 vinvViewType vinvLine_,
120 vinvViewType vinvBubble_,
122 : _outputValues(outputValues_), _inputPoints(inputPoints_),
123 _vinvLine(vinvLine_), _vinvBubble(vinvBubble_), _work(work_) {}
125 KOKKOS_INLINE_FUNCTION
126 void operator()(
const size_type iter)
const {
130 const auto ptRange = Kokkos::pair<ordinal_type,ordinal_type>(ptBegin, ptEnd);
131 const auto input = Kokkos::subview( _inputPoints, ptRange, Kokkos::ALL() );
133 typename workViewType::pointer_type ptr = _work.data() + _work.extent(0)*ptBegin*get_dimension_scalar(_work);
135 auto vcprop = Kokkos::common_view_alloc_prop(_work);
136 workViewType work(Kokkos::view_wrap(ptr,vcprop), (ptEnd-ptBegin)*_work.extent(0));
139 case OPERATOR_VALUE : {
140 auto output = Kokkos::subview( _outputValues, Kokkos::ALL(), ptRange, Kokkos::ALL() );
144 case OPERATOR_DIV : {
145 auto output = Kokkos::subview( _outputValues, Kokkos::ALL(), ptRange );
150 INTREPID2_TEST_FOR_ABORT(
true,
151 ">>> ERROR: (Intrepid2::Basis_HDIV_QUAD_In_FEM::Functor) operator is not supported");
164 template<
typename DeviceType = void,
165 typename outputValueType = double,
166 typename pointValueType =
double>
168 :
public Basis<DeviceType,outputValueType,pointValueType> {
177 const EPointType pointType = POINTTYPE_EQUISPACED);
187 getValues( OutputViewType outputValues,
188 const PointViewType inputPoints,
189 const EOperator operatorType = OPERATOR_VALUE )
const override {
190 #ifdef HAVE_INTREPID2_DEBUG 198 Impl::Basis_HDIV_QUAD_In_FEM::
199 getValues<DeviceType,numPtsPerEval>( outputValues,
207 getDofCoords( ScalarViewType dofCoords )
const override {
208 #ifdef HAVE_INTREPID2_DEBUG 210 INTREPID2_TEST_FOR_EXCEPTION( dofCoords.rank() != 2, std::invalid_argument,
211 ">>> ERROR: (Intrepid2::Basis_HDIV_QUAD_In_FEM::getDofCoords) rank = 2 required for dofCoords array");
213 INTREPID2_TEST_FOR_EXCEPTION( static_cast<ordinal_type>(dofCoords.extent(0)) != this->
getCardinality(), std::invalid_argument,
214 ">>> ERROR: (Intrepid2::Basis_HDIV_QUAD_In_FEM::getDofCoords) mismatch in number of dof and 0th dimension of dofCoords array");
216 INTREPID2_TEST_FOR_EXCEPTION( dofCoords.extent(1) != this->
getBaseCellTopology().getDimension(), std::invalid_argument,
217 ">>> ERROR: (Intrepid2::Basis_HDIV_QUAD_In_FEM::getDofCoords) incorrect reference cell (1st) dimension in dofCoords array");
219 Kokkos::deep_copy(dofCoords, this->
dofCoords_);
224 getDofCoeffs( ScalarViewType dofCoeffs )
const override {
225 #ifdef HAVE_INTREPID2_DEBUG 227 INTREPID2_TEST_FOR_EXCEPTION( dofCoeffs.rank() != 2, std::invalid_argument,
228 ">>> ERROR: (Intrepid2::Basis_HDIV_QUAD_In_FEM::getDofCoeffs) rank = 2 required for dofCoeffs array");
230 INTREPID2_TEST_FOR_EXCEPTION( static_cast<ordinal_type>(dofCoeffs.extent(0)) != this->
getCardinality(), std::invalid_argument,
231 ">>> ERROR: (Intrepid2::Basis_HDIV_QUAD_In_FEM::getDofCoeffs) mismatch in number of dof and 0th dimension of dofCoeffs array");
233 INTREPID2_TEST_FOR_EXCEPTION( dofCoeffs.extent(1) != this->
getBaseCellTopology().getDimension(), std::invalid_argument,
234 ">>> ERROR: (Intrepid2::Basis_HDIV_QUAD_In_FEM::getDofCoeffs) incorrect reference cell (1st) dimension in dofCoeffs array");
236 Kokkos::deep_copy(dofCoeffs, this->
dofCoeffs_);
242 return "Intrepid2_HDIV_QUAD_In_FEM";
263 return Teuchos::rcp(
new 267 INTREPID2_TEST_FOR_EXCEPTION(
true,std::invalid_argument,
"Input parameters out of bounds");
277 Kokkos::DynRankView<typename ScalarViewType::value_type,DeviceType>
vinvLine_, vinvBubble_;
Header file for the Intrepid2::Basis_HGRAD_LINE_Cn_FEM class.
Teuchos::RCP< Basis< DeviceType, OutputType, PointType > > BasisPtr
Basis Pointer.
Definition file for FEM basis functions of degree n for H(div) functions on QUAD cells.
Implementation of the default H(div)-compatible FEM basis on Quadrilateral cell ...
ordinal_type basisDegree_
Degree of the largest complete polynomial space that can be represented by the basis.
void getValues_HDIV_Args(const outputValueViewType outputValues, const inputPointViewType inputPoints, const EOperator operatorType, const shards::CellTopology cellTopo, const ordinal_type basisCard)
Runtime check of the arguments for the getValues method in an HDIV-conforming FEM basis...
BasisPtr< typename Kokkos::HostSpace::device_type, outputValueType, pointValueType > getHostBasis() const override
Creates and returns a Basis object whose DeviceType template argument is Kokkos::HostSpace::device_ty...
virtual bool requireOrientation() const override
True if orientation is required.
BasisPtr< DeviceType, outputValueType, pointValueType > getSubCellRefBasis(const ordinal_type subCellDim, const ordinal_type subCellOrd) const override
returns the basis associated to a subCell.
An abstract base class that defines interface for concrete basis implementations for Finite Element (...
See Intrepid2::Basis_HDIV_QUAD_In_FEM.
Quadrilateral topology, 4 nodes.
Kokkos::DynRankView< typename ScalarViewType::value_type, DeviceType > vinvLine_
inverse of Generalized Vandermonde matrix (isotropic order)
See Intrepid2::Basis_HDIV_QUAD_In_FEM.
ordinal_type getCardinality() const
Returns cardinality of the basis.
virtual const char * getName() const override
Returns basis name.
static constexpr ordinal_type MaxNumPtsPerBasisEval
The maximum number of points to eval in serial mode.
EOperator
Enumeration of primitive operators available in Intrepid. Primitive operators act on reconstructed fu...
Implementation of the locally H(grad)-compatible FEM basis of variable order on the [-1...
EPointType
Enumeration of types of point distributions in Intrepid.
shards::CellTopology getBaseCellTopology() const
Returns the base cell topology for which the basis is defined. See Shards documentation https://trili...
Basis_HDIV_QUAD_In_FEM(const ordinal_type order, const EPointType pointType=POINTTYPE_EQUISPACED)
Constructor.
See Intrepid2::Basis_HDIV_QUAD_In_FEM.
Kokkos::DynRankView< scalarType, DeviceType > dofCoords_
Coordinates of degrees-of-freedom for basis functions defined in physical space.
Header file for the abstract base class Intrepid2::Basis.
Kokkos::DynRankView< scalarType, DeviceType > dofCoeffs_
Coefficients for computing degrees of freedom for Lagrangian basis If P is an element of the space sp...