49 #ifndef __INTREPID2_HCURL_QUAD_IN_FEM_HPP__
50 #define __INTREPID2_HCURL_QUAD_IN_FEM_HPP__
69 template<EOperator opType>
71 template<
typename outputValueViewType,
72 typename inputPointViewType,
73 typename workViewType,
74 typename vinvViewType>
75 KOKKOS_INLINE_FUNCTION
77 getValues( outputValueViewType outputValues,
78 const inputPointViewType inputPoints,
80 const vinvViewType vinvLine,
81 const vinvViewType vinvBubble );
83 KOKKOS_INLINE_FUNCTION
85 getWorkSizePerPoint(ordinal_type order) {
86 return 2*getPnCardinality<1>(order)+getPnCardinality<1>(order-1);
90 template<
typename ExecSpaceType, ordinal_type numPtsPerEval,
91 typename outputValueValueType,
class ...outputValueProperties,
92 typename inputPointValueType,
class ...inputPointProperties,
93 typename vinvValueType,
class ...vinvProperties>
95 getValues( Kokkos::DynRankView<outputValueValueType,outputValueProperties...> outputValues,
96 const Kokkos::DynRankView<inputPointValueType, inputPointProperties...> inputPoints,
97 const Kokkos::DynRankView<vinvValueType, vinvProperties...> vinvLine,
98 const Kokkos::DynRankView<vinvValueType, vinvProperties...> vinvBubble,
99 const EOperator operatorType);
104 template<
typename outputValueViewType,
105 typename inputPointViewType,
106 typename vinvViewType,
107 typename workViewType,
109 ordinal_type numPtsEval>
111 outputValueViewType _outputValues;
112 const inputPointViewType _inputPoints;
113 const vinvViewType _vinvLine;
114 const vinvViewType _vinvBubble;
117 KOKKOS_INLINE_FUNCTION
118 Functor( outputValueViewType outputValues_,
119 inputPointViewType inputPoints_,
120 vinvViewType vinvLine_,
121 vinvViewType vinvBubble_,
123 : _outputValues(outputValues_), _inputPoints(inputPoints_),
124 _vinvLine(vinvLine_), _vinvBubble(vinvBubble_), _work(work_) {}
126 KOKKOS_INLINE_FUNCTION
127 void operator()(
const size_type iter)
const {
131 const auto ptRange = Kokkos::pair<ordinal_type,ordinal_type>(ptBegin, ptEnd);
132 const auto input = Kokkos::subview( _inputPoints, ptRange, Kokkos::ALL() );
134 typename workViewType::pointer_type ptr = _work.data() + _work.extent(0)*ptBegin*get_dimension_scalar(_work);
136 auto vcprop = Kokkos::common_view_alloc_prop(_work);
137 workViewType work(Kokkos::view_wrap(ptr,vcprop), (ptEnd-ptBegin)*_work.extent(0));
140 case OPERATOR_VALUE : {
141 auto output = Kokkos::subview( _outputValues, Kokkos::ALL(), ptRange, Kokkos::ALL() );
145 case OPERATOR_CURL : {
146 auto output = Kokkos::subview( _outputValues, Kokkos::ALL(), ptRange );
151 INTREPID2_TEST_FOR_ABORT(
true,
152 ">>> ERROR: (Intrepid2::Basis_HCURL_QUAD_In_FEM::Functor) operator is not supported");
165 template<
typename ExecSpaceType = void,
166 typename outputValueType = double,
167 typename pointValueType =
double>
169 :
public Basis<ExecSpaceType,outputValueType,pointValueType> {
178 const EPointType pointType = POINTTYPE_EQUISPACED);
190 const EOperator operatorType = OPERATOR_VALUE )
const {
191 #ifdef HAVE_INTREPID2_DEBUG
192 Intrepid2::getValues_HCURL_Args(outputValues,
199 Impl::Basis_HCURL_QUAD_In_FEM::
200 getValues<ExecSpaceType,numPtsPerEval>( outputValues,
210 #ifdef HAVE_INTREPID2_DEBUG
212 INTREPID2_TEST_FOR_EXCEPTION( dofCoords.rank() != 2, std::invalid_argument,
213 ">>> ERROR: (Intrepid2::Basis_HCURL_QUAD_In_FEM::getDofCoords) rank = 2 required for dofCoords array");
215 INTREPID2_TEST_FOR_EXCEPTION( static_cast<ordinal_type>(dofCoords.extent(0)) != this->
getCardinality(), std::invalid_argument,
216 ">>> ERROR: (Intrepid2::Basis_HCURL_QUAD_In_FEM::getDofCoords) mismatch in number of dof and 0th dimension of dofCoords array");
218 INTREPID2_TEST_FOR_EXCEPTION( dofCoords.extent(1) != this->
getBaseCellTopology().getDimension(), std::invalid_argument,
219 ">>> ERROR: (Intrepid2::Basis_HCURL_QUAD_In_FEM::getDofCoords) incorrect reference cell (1st) dimension in dofCoords array");
221 Kokkos::deep_copy(dofCoords, this->
dofCoords_);
227 #ifdef HAVE_INTREPID2_DEBUG
229 INTREPID2_TEST_FOR_EXCEPTION( dofCoeffs.rank() != 2, std::invalid_argument,
230 ">>> ERROR: (Intrepid2::Basis_HCURL_QUAD_In_FEM::getDofCoeffs) rank = 2 required for dofCoeffs array");
232 INTREPID2_TEST_FOR_EXCEPTION( static_cast<ordinal_type>(dofCoeffs.extent(0)) != this->
getCardinality(), std::invalid_argument,
233 ">>> ERROR: (Intrepid2::Basis_HCURL_QUAD_In_FEM::getDofCoeffs) mismatch in number of dof and 0th dimension of dofCoeffs array");
235 INTREPID2_TEST_FOR_EXCEPTION( dofCoeffs.extent(1) != this->
getBaseCellTopology().getDimension(), std::invalid_argument,
236 ">>> ERROR: (Intrepid2::Basis_HCURL_QUAD_In_FEM::getDofCoeffs) incorrect reference cell (1st) dimension in dofCoeffs array");
238 Kokkos::deep_copy(dofCoeffs, this->
dofCoeffs_);
244 return "Intrepid2_HCURL_QUAD_In_FEM";
256 Kokkos::DynRankView<typename scalarViewType::value_type,ExecSpaceType>
vinvLine_, vinvBubble_;
Header file for the Intrepid2::Basis_HGRAD_LINE_Cn_FEM class.
See Intrepid2::Basis_HCURL_QUAD_In_FEM.
Kokkos::DynRankView< scalarType, Kokkos::LayoutStride, ExecSpaceType > scalarViewType
View type for scalars.
Implementation of the default H(curl)-compatible FEM basis on Quadrilateral cell. ...
Basis_HCURL_QUAD_In_FEM(const ordinal_type order, const EPointType pointType=POINTTYPE_EQUISPACED)
Constructor.
An abstract base class that defines interface for concrete basis implementations for Finite Element (...
Kokkos::DynRankView< outputValueType, Kokkos::LayoutStride, ExecSpaceType > outputViewType
View type for basis value output.
shards::CellTopology getBaseCellTopology() const
Returns the base cell topology for which the basis is defined. See Shards documentation https://trili...
Kokkos::DynRankView< scalarType, ExecSpaceType > dofCoords_
Coordinates of degrees-of-freedom for basis functions defined in physical space.
virtual void getDofCoords(scalarViewType dofCoords) const
Returns spatial locations (coordinates) of degrees of freedom on the reference cell.
virtual void getValues(outputViewType outputValues, const pointViewType inputPoints, const EOperator operatorType=OPERATOR_VALUE) const
Evaluation of a FEM basis on a reference cell.
ordinal_type getCardinality() const
Returns cardinality of the basis.
Kokkos::View< ordinal_type ***, typename ExecSpaceType::array_layout, Kokkos::HostSpace > ordinal_type_array_3d_host
View type for 3d host array.
See Intrepid2::Basis_HCURL_QUAD_In_FEM.
Definition file for FEM basis functions of degree n for H(curl) functions on QUAD cells...
static constexpr ordinal_type MaxNumPtsPerBasisEval
The maximum number of points to eval in serial mode.
Kokkos::View< ordinal_type *,typename ExecSpaceType::array_layout, Kokkos::HostSpace > ordinal_type_array_1d_host
View type for 1d host array.
Kokkos::DynRankView< pointValueType, Kokkos::LayoutStride, ExecSpaceType > pointViewType
View type for input points.
virtual void getDofCoeffs(scalarViewType dofCoeffs) const
Coefficients for computing degrees of freedom for Lagrangian basis If P is an element of the space sp...
Kokkos::DynRankView< scalarType, ExecSpaceType > dofCoeffs_
Coefficients for computing degrees of freedom for Lagrangian basis If P is an element of the space sp...
See Intrepid2::Basis_HCURL_QUAD_In_FEM.
virtual const char * getName() const
Returns basis name.
virtual bool requireOrientation() const
True if orientation is required.
Kokkos::DynRankView< typename scalarViewType::value_type, ExecSpaceType > vinvLine_
inverse of Generalized Vandermonde matrix (isotropic order)
Header file for the abstract base class Intrepid2::Basis.
Kokkos::View< ordinal_type **,typename ExecSpaceType::array_layout, Kokkos::HostSpace > ordinal_type_array_2d_host
View type for 2d host array.