49 #ifndef __INTREPID2_HGRAD_LINE_CN_FEM_DEF_HPP__
50 #define __INTREPID2_HGRAD_LINE_CN_FEM_DEF_HPP__
57 template<EOperator opType>
58 template<
typename OutputViewType,
59 typename inputViewType,
60 typename workViewType,
61 typename vinvViewType>
62 KOKKOS_INLINE_FUNCTION
64 Basis_HGRAD_LINE_Cn_FEM::Serial<opType>::
65 getValues( OutputViewType output,
66 const inputViewType input,
68 const vinvViewType vinv,
69 const ordinal_type operatorDn ) {
70 ordinal_type opDn = operatorDn;
72 const ordinal_type card = vinv.extent(0);
73 const ordinal_type npts = input.extent(0);
75 const ordinal_type order = card - 1;
76 const double alpha = 0.0, beta = 0.0;
78 typedef typename Kokkos::DynRankView<typename workViewType::value_type, typename workViewType::memory_space> viewType;
79 auto vcprop = Kokkos::common_view_alloc_prop(work);
82 case OPERATOR_VALUE: {
83 viewType phis(Kokkos::view_wrap(work.data(), vcprop), card, npts);
85 Impl::Basis_HGRAD_LINE_Cn_FEM_JACOBI::
86 Serial<opType>::getValues(phis, input, order, alpha, beta);
88 for (ordinal_type i=0;i<card;++i)
89 for (ordinal_type j=0;j<npts;++j) {
90 output.access(i,j) = 0.0;
91 for (ordinal_type k=0;k<card;++k)
92 output.access(i,j) += vinv(k,i)*phis.access(k,j);
107 opDn = getOperatorOrder(opType);
110 const ordinal_type dkcard = 1;
111 viewType phis(Kokkos::view_wrap(work.data(), vcprop), card, npts, dkcard);
112 Impl::Basis_HGRAD_LINE_Cn_FEM_JACOBI::
113 Serial<opType>::getValues(phis, input, order, alpha, beta, opDn);
115 for (ordinal_type i=0;i<card;++i)
116 for (ordinal_type j=0;j<npts;++j)
117 for (ordinal_type k=0;k<dkcard;++k) {
118 output.access(i,j,k) = 0.0;
119 for (ordinal_type l=0;l<card;++l)
120 output.access(i,j,k) += vinv(l,i)*phis.access(l,j,k);
125 INTREPID2_TEST_FOR_ABORT(
true,
126 ">>> ERROR: (Intrepid2::Basis_HGRAD_LINE_Cn_FEM::Serial::getValues) operator is not supported." );
132 template<
typename DT, ordinal_type numPtsPerEval,
133 typename outputValueValueType,
class ...outputValueProperties,
134 typename inputPointValueType,
class ...inputPointProperties,
135 typename vinvValueType,
class ...vinvProperties>
137 Basis_HGRAD_LINE_Cn_FEM::
138 getValues(
const typename DT::execution_space& space,
139 Kokkos::DynRankView<outputValueValueType,outputValueProperties...> outputValues,
140 const Kokkos::DynRankView<inputPointValueType, inputPointProperties...> inputPoints,
141 const Kokkos::DynRankView<vinvValueType, vinvProperties...> vinv,
142 const EOperator operatorType ) {
143 typedef Kokkos::DynRankView<outputValueValueType,outputValueProperties...> outputValueViewType;
144 typedef Kokkos::DynRankView<inputPointValueType, inputPointProperties...> inputPointViewType;
145 typedef Kokkos::DynRankView<vinvValueType, vinvProperties...> vinvViewType;
146 typedef typename ExecSpace<typename inputPointViewType::execution_space,typename DT::execution_space>::ExecSpaceType ExecSpaceType;
149 const auto loopSizeTmp1 = (inputPoints.extent(0)/numPtsPerEval);
150 const auto loopSizeTmp2 = (inputPoints.extent(0)%numPtsPerEval != 0);
151 const auto loopSize = loopSizeTmp1 + loopSizeTmp2;
152 Kokkos::RangePolicy<ExecSpaceType,Kokkos::Schedule<Kokkos::Static> > policy(space, 0, loopSize);
154 typedef typename inputPointViewType::value_type inputPointType;
156 const ordinal_type cardinality = outputValues.extent(0);
158 auto vcprop = Kokkos::common_view_alloc_prop(inputPoints);
159 typedef typename Kokkos::DynRankView< inputPointType, typename inputPointViewType::memory_space> workViewType;
160 workViewType work(Kokkos::view_alloc(space,
"Basis_HGRAD_LINE_Cn_FEM::getValues::work", vcprop), cardinality, inputPoints.extent(0));
162 switch (operatorType) {
163 case OPERATOR_VALUE: {
164 typedef Functor<outputValueViewType,inputPointViewType,vinvViewType,workViewType,
165 OPERATOR_VALUE,numPtsPerEval> FunctorType;
166 Kokkos::parallel_for( policy, FunctorType(outputValues, inputPoints, vinv, work) );
180 typedef Functor<outputValueViewType,inputPointViewType,vinvViewType,workViewType,
181 OPERATOR_Dn,numPtsPerEval> FunctorType;
182 Kokkos::parallel_for( policy, FunctorType(outputValues, inputPoints, vinv, work,
183 getOperatorOrder(operatorType)) );
187 INTREPID2_TEST_FOR_EXCEPTION(
true , std::invalid_argument,
188 ">>> ERROR (Basis_HGRAD_LINE_Cn_FEM): Operator type not implemented" );
196 template<
typename DT,
typename OT,
typename PT>
199 const EPointType pointType ) {
200 this->pointType_ = pointType;
201 this->basisCardinality_ = order+1;
202 this->basisDegree_ = order;
203 this->basisCellTopology_ = shards::CellTopology(shards::getCellTopologyData<shards::Line<2> >() );
204 this->basisType_ = BASIS_FEM_LAGRANGIAN;
205 this->basisCoordinates_ = COORDINATES_CARTESIAN;
206 this->functionSpace_ = FUNCTION_SPACE_HGRAD;
208 const ordinal_type card = this->basisCardinality_;
211 Kokkos::DynRankView<typename ScalarViewType::value_type,typename DT::execution_space::array_layout,Kokkos::HostSpace>
212 dofCoords(
"Hgrad::Line::Cn::dofCoords", card, 1);
215 auto pointT = (pointType == POINTTYPE_DEFAULT) ? POINTTYPE_EQUISPACED : pointType;
218 case POINTTYPE_EQUISPACED:
219 case POINTTYPE_WARPBLEND: {
222 const ordinal_type offset = 0;
224 this->basisCellTopology_,
232 INTREPID2_TEST_FOR_EXCEPTION( !isValidPointType(pointT),
233 std::invalid_argument ,
234 ">>> ERROR: (Intrepid2::Basis_HGRAD_LINE_Cn_FEM) invalid pointType." );
238 this->dofCoords_ = Kokkos::create_mirror_view(
typename DT::memory_space(), dofCoords);
239 Kokkos::deep_copy(this->dofCoords_, dofCoords);
243 const ordinal_type lwork = card*card;
244 Kokkos::DynRankView<typename ScalarViewType::value_type,Kokkos::LayoutLeft,Kokkos::HostSpace>
245 vmat(
"Hgrad::Line::Cn::vmat", card, card),
246 work(
"Hgrad::Line::Cn::work", lwork),
247 ipiv(
"Hgrad::Line::Cn::ipiv", card);
249 const double alpha = 0.0, beta = 0.0;
250 Impl::Basis_HGRAD_LINE_Cn_FEM_JACOBI::
251 getValues<Kokkos::HostSpace::execution_space,Parameters::MaxNumPtsPerBasisEval>
252 (
typename Kokkos::HostSpace::execution_space{}, vmat, dofCoords, order, alpha, beta, OPERATOR_VALUE);
254 ordinal_type info = 0;
255 Teuchos::LAPACK<ordinal_type,typename ScalarViewType::value_type> lapack;
257 lapack.GETRF(card, card,
258 vmat.data(), vmat.stride_1(),
259 (ordinal_type*)ipiv.data(),
262 INTREPID2_TEST_FOR_EXCEPTION( info != 0,
264 ">>> ERROR: (Intrepid2::Basis_HGRAD_LINE_Cn_FEM) lapack.GETRF returns nonzero info." );
267 vmat.data(), vmat.stride_1(),
268 (ordinal_type*)ipiv.data(),
272 INTREPID2_TEST_FOR_EXCEPTION( info != 0,
274 ">>> ERROR: (Intrepid2::Basis_HGRAD_LINE_Cn_FEM) lapack.GETRI returns nonzero info." );
277 Kokkos::DynRankView<typename ScalarViewType::value_type,typename DT::execution_space::array_layout,Kokkos::HostSpace>
278 vinv(
"Hgrad::Line::Cn::vinv", card, card);
280 for (ordinal_type i=0;i<card;++i)
281 for (ordinal_type j=0;j<card;++j)
282 vinv(i,j) = vmat(j,i);
284 this->vinv_ = Kokkos::create_mirror_view(
typename DT::memory_space(), vinv);
285 Kokkos::deep_copy(this->vinv_ , vinv);
290 const ordinal_type tagSize = 4;
291 const ordinal_type posScDim = 0;
292 const ordinal_type posScOrd = 1;
293 const ordinal_type posDfOrd = 2;
297 INTREPID2_TEST_FOR_EXCEPTION( order >
Parameters::MaxOrder, std::invalid_argument,
"polynomial order exceeds the max supported by this class");
308 const ordinal_type iend = card - 2;
309 for (ordinal_type i=0;i<iend;++i) {
310 const auto e = i + 1;
317 const auto v1 = card -1;
351 this->setOrdinalTagData(this->tagToOrdinal_,
354 this->basisCardinality_,
Basis_HGRAD_LINE_Cn_FEM(const ordinal_type order, const EPointType pointType=POINTTYPE_EQUISPACED)
Constructor.
static constexpr ordinal_type MaxOrder
The maximum reconstruction order.
Kokkos::View< ordinal_type *, typename ExecutionSpace::array_layout, Kokkos::HostSpace > OrdinalTypeArray1DHost
View type for 1d host array.