Intrepid2
Intrepid2_HCURL_WEDGE_I1_FEM.hpp
Go to the documentation of this file.
1 // @HEADER
2 // ************************************************************************
3 //
4 // Intrepid2 Package
5 // Copyright (2007) Sandia Corporation
6 //
7 // Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
8 // license for use of this work by or on behalf of the U.S. Government.
9 //
10 // Redistribution and use in source and binary forms, with or without
11 // modification, are permitted provided that the following conditions are
12 // met:
13 //
14 // 1. Redistributions of source code must retain the above copyright
15 // notice, this list of conditions and the following disclaimer.
16 //
17 // 2. Redistributions in binary form must reproduce the above copyright
18 // notice, this list of conditions and the following disclaimer in the
19 // documentation and/or other materials provided with the distribution.
20 //
21 // 3. Neither the name of the Corporation nor the names of the
22 // contributors may be used to endorse or promote products derived from
23 // this software without specific prior written permission.
24 //
25 // THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
26 // EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
27 // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
28 // PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
29 // CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
30 // EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
31 // PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
32 // PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
33 // LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
34 // NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
35 // SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
36 //
37 // Questions? Contact Kyungjoo Kim (kyukim@sandia.gov), or
38 // Mauro Perego (mperego@sandia.gov)
39 //
40 // ************************************************************************
41 // @HEADER
42 
49 #ifndef __INTREPID2_HCURL_WEDGE_I1_FEM_HPP__
50 #define __INTREPID2_HCURL_WEDGE_I1_FEM_HPP__
51 
52 #include "Intrepid2_Basis.hpp"
55 
56 namespace Intrepid2 {
57 
111  namespace Impl {
112 
117  public:
118  typedef struct Wedge<6> cell_topology_type;
119 
123  template<EOperator opType>
124  struct Serial {
125  template<typename OutputViewType,
126  typename inputViewType>
127  KOKKOS_INLINE_FUNCTION
128  static void
129  getValues( OutputViewType output,
130  const inputViewType input );
131 
132  };
133 
134  template<typename DeviceType,
135  typename outputValueValueType, class ...outputValueProperties,
136  typename inputPointValueType, class ...inputPointProperties>
137  static void
138  getValues( Kokkos::DynRankView<outputValueValueType,outputValueProperties...> outputValues,
139  const Kokkos::DynRankView<inputPointValueType, inputPointProperties...> inputPoints,
140  const EOperator operatorType);
141 
145  template<typename outputValueViewType,
146  typename inputPointViewType,
147  EOperator opType>
148  struct Functor {
149  outputValueViewType _outputValues;
150  const inputPointViewType _inputPoints;
151 
152  KOKKOS_INLINE_FUNCTION
153  Functor( outputValueViewType outputValues_,
154  inputPointViewType inputPoints_ )
155  : _outputValues(outputValues_), _inputPoints(inputPoints_) {}
156 
157  KOKKOS_INLINE_FUNCTION
158  void operator()(const ordinal_type pt) const {
159  switch (opType) {
160  case OPERATOR_VALUE : {
161  auto output = Kokkos::subview( _outputValues, Kokkos::ALL(), pt, Kokkos::ALL() );
162  const auto input = Kokkos::subview( _inputPoints, pt, Kokkos::ALL() );
163  Serial<opType>::getValues( output, input );
164  break;
165  }
166  case OPERATOR_CURL : {
167  auto output = Kokkos::subview( _outputValues, Kokkos::ALL(), pt, Kokkos::ALL() );
168  const auto input = Kokkos::subview( _inputPoints, pt, Kokkos::ALL() );
169  Serial<opType>::getValues( output, input );
170  break;
171  }
172  default: {
173  INTREPID2_TEST_FOR_ABORT( opType != OPERATOR_VALUE &&
174  opType != OPERATOR_CURL,
175  ">>> ERROR: (Intrepid2::Basis_HCURL_WEDGE_I1_FEM::Serial::getValues) operator is not supported");
176  }
177  }
178  }
179  };
180  };
181  }
182 
183  template<typename DeviceType = void,
184  typename outputValueType = double,
185  typename pointValueType = double>
186  class Basis_HCURL_WEDGE_I1_FEM : public Basis<DeviceType, outputValueType, pointValueType> {
187  public:
188  using OrdinalTypeArray1DHost = typename Basis<DeviceType,outputValueType,pointValueType>::OrdinalTypeArray1DHost;
189  using OrdinalTypeArray2DHost = typename Basis<DeviceType,outputValueType,pointValueType>::OrdinalTypeArray2DHost;
190  using OrdinalTypeArray3DHost = typename Basis<DeviceType,outputValueType,pointValueType>::OrdinalTypeArray3DHost;
191 
195 
199 
201 
202  virtual
203  void
204  getValues( OutputViewType outputValues,
205  const PointViewType inputPoints,
206  const EOperator operatorType = OPERATOR_VALUE ) const override {
207 #ifdef HAVE_INTREPID2_DEBUG
208  // Verify arguments
209  Intrepid2::getValues_HCURL_Args(outputValues,
210  inputPoints,
211  operatorType,
212  this->getBaseCellTopology(),
213  this->getCardinality() );
214 #endif
215  Impl::Basis_HCURL_WEDGE_I1_FEM::
216  getValues<DeviceType>( outputValues,
217  inputPoints,
218  operatorType );
219  }
220 
221  virtual
222  void
223  getDofCoords( ScalarViewType dofCoords ) const override {
224 #ifdef HAVE_INTREPID2_DEBUG
225  // Verify rank of output array.
226  INTREPID2_TEST_FOR_EXCEPTION( dofCoords.rank() != 2, std::invalid_argument,
227  ">>> ERROR: (Intrepid2::Basis_HCURL_WEDGE_I1_FEM::getDofCoords) rank = 2 required for dofCoords array");
228  // Verify 0th dimension of output array.
229  INTREPID2_TEST_FOR_EXCEPTION( static_cast<ordinal_type>(dofCoords.extent(0)) != this->basisCardinality_, std::invalid_argument,
230  ">>> ERROR: (Intrepid2::Basis_HCURL_WEDGE_I1_FEM::getDofCoords) mismatch in number of dof and 0th dimension of dofCoords array");
231  // Verify 1st dimension of output array.
232  INTREPID2_TEST_FOR_EXCEPTION( dofCoords.extent(1) != this->basisCellTopology_.getDimension(), std::invalid_argument,
233  ">>> ERROR: (Intrepid2::Basis_HCURL_WEDGE_I1_FEM::getDofCoords) incorrect reference cell (1st) dimension in dofCoords array");
234 #endif
235  Kokkos::deep_copy(dofCoords, this->dofCoords_);
236  }
237 
238  virtual
239  void
240  getDofCoeffs( ScalarViewType dofCoeffs ) const override {
241  #ifdef HAVE_INTREPID2_DEBUG
242  // Verify rank of output array.
243  INTREPID2_TEST_FOR_EXCEPTION( dofCoeffs.rank() != 2, std::invalid_argument,
244  ">>> ERROR: (Intrepid2::Basis_HCURL_WEDGE_I1_FEM::getDofCoeffs) rank = 2 required for dofCoeffs array");
245  // Verify 0th dimension of output array.
246  INTREPID2_TEST_FOR_EXCEPTION( static_cast<ordinal_type>(dofCoeffs.extent(0)) != this->getCardinality(), std::invalid_argument,
247  ">>> ERROR: (Intrepid2::Basis_HCURL_WEDGE_I1_FEM::getDofCoeffs) mismatch in number of dof and 0th dimension of dofCoeffs array");
248  // Verify 1st dimension of output array.
249  INTREPID2_TEST_FOR_EXCEPTION( dofCoeffs.extent(1) != this->getBaseCellTopology().getDimension(), std::invalid_argument,
250  ">>> ERROR: (Intrepid2::Basis_HCURL_WEDGE_I1_FEM::getDofCoeffs) incorrect reference cell (1st) dimension in dofCoeffs array");
251  #endif
252  Kokkos::deep_copy(dofCoeffs, this->dofCoeffs_);
253  }
254 
255  virtual
256  const char*
257  getName() const override {
258  return "Intrepid2_HCURL_WEDGE_I1_FEM";
259  }
260 
261  virtual
262  bool
263  requireOrientation() const override {
264  return true;
265  }
266 
277  getSubCellRefBasis(const ordinal_type subCellDim, const ordinal_type subCellOrd) const override{
278 
279  if(subCellDim == 1)
280  return Teuchos::rcp( new
281  Basis_HVOL_C0_FEM<DeviceType,outputValueType,pointValueType>(shards::getCellTopologyData<shards::Line<2> >()));
282  else if(subCellDim == 2) {
283  if((subCellOrd >=0) && (subCellOrd<3))
284  return Teuchos::rcp(new
286  if((subCellOrd==3)||(subCellOrd==4))
287  return Teuchos::rcp(new
289  }
290 
291  INTREPID2_TEST_FOR_EXCEPTION(true,std::invalid_argument,"Input parameters out of bounds");
292  }
293 
295  getHostBasis() const override{
297  }
298  };
299 }// namespace Intrepid2
300 
302 
303 #endif
Teuchos::RCP< Basis< DeviceType, OutputType, PointType > > BasisPtr
Basis Pointer.
Implementation of the default H(curl)-compatible FEM basis of degree 1 on Wedge cell.
See Intrepid2::Basis_HCURL_WEDGE_I1_FEM.
void getValues_HCURL_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 HCURL-conforming FEM basis...
An abstract base class that defines interface for concrete basis implementations for Finite Element (...
virtual bool requireOrientation() const override
True if orientation is required.
Implementation of the default H(curl)-compatible FEM basis of degree 1 on Quadrilateral cell...
ordinal_type getCardinality() const
Returns cardinality of the basis.
virtual const char * getName() const override
Returns basis name.
EOperator
Enumeration of primitive operators available in Intrepid. Primitive operators act on reconstructed fu...
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...
Implementation of the default HVOL-compatible FEM contstant basis on triangle, quadrilateral, hexahedron and tetrahedron cells.
Implementation of the default H(curl)-compatible FEM basis of degree 1 on Triangle cell...
ordinal_type basisCardinality_
Cardinality of the basis, i.e., the number of basis functions/degrees-of-freedom. ...
Header file for the Intrepid2::Basis_HCURL_QUAD_I1_FEM class.
shards::CellTopology basisCellTopology_
Base topology of the cells for which the basis is defined. See the Shards package for definition of b...
Definition file for FEM basis functions of degree 1 for H(curl) functions on WEDGE cells...
BasisPtr< DeviceType, outputValueType, pointValueType > getSubCellRefBasis(const ordinal_type subCellDim, const ordinal_type subCellOrd) const override
returns the basis associated to a subCell.
shards::CellTopology getBaseCellTopology() const
Returns the base cell topology for which the basis is defined. See Shards documentation https://trili...
Header file for the Intrepid2::Basis_HCURL_TRI_I1_FEM class.
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...