Panzer  Version of the Day
Panzer_PointValues2.hpp
Go to the documentation of this file.
1 // @HEADER
2 // ***********************************************************************
3 //
4 // Panzer: A partial differential equation assembly
5 // engine for strongly coupled complex multiphysics systems
6 // Copyright (2011) Sandia Corporation
7 //
8 // Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
9 // the U.S. Government retains certain rights in this software.
10 //
11 // Redistribution and use in source and binary forms, with or without
12 // modification, are permitted provided that the following conditions are
13 // met:
14 //
15 // 1. Redistributions of source code must retain the above copyright
16 // notice, this list of conditions and the following disclaimer.
17 //
18 // 2. Redistributions in binary form must reproduce the above copyright
19 // notice, this list of conditions and the following disclaimer in the
20 // documentation and/or other materials provided with the distribution.
21 //
22 // 3. Neither the name of the Corporation nor the names of the
23 // contributors may be used to endorse or promote products derived from
24 // this software without specific prior written permission.
25 //
26 // THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
27 // EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
28 // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
29 // PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
30 // CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
31 // EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
32 // PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
33 // PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
34 // LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
35 // NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
36 // SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
37 //
38 // Questions? Contact Roger P. Pawlowski (rppawlo@sandia.gov) and
39 // Eric C. Cyr (eccyr@sandia.gov)
40 // ***********************************************************************
41 // @HEADER
42 
43 #ifndef PANZER_POINT_VALUES2_HPP
44 #define PANZER_POINT_VALUES2_HPP
45 
46 #include "PanzerDiscFE_config.hpp"
47 #include "Panzer_PointRule.hpp"
48 #include "Panzer_ArrayTraits.hpp"
49 #include "Panzer_Dimension.hpp"
50 
51 #include "Teuchos_RCP.hpp"
52 
53 #include "Intrepid2_CellTools.hpp"
54 
55 namespace panzer {
56 
57  template <typename Scalar,
58  template <typename DataT,
59  typename Tag0, typename Tag1, typename Tag2,
60  typename Tag3, typename Tag4, typename Tag5,
61  typename Tag6, typename Tag7> class Array >
62  struct PointValues2 {
64 
66  template <typename ArrayFactory>
67  void setupArrays(const Teuchos::RCP<const panzer::PointRule>& pr,const ArrayFactory & af);
68 
69  template <typename NodeCoordinateArray,typename PointCoordinateArray>
70  inline void evaluateValues(const NodeCoordinateArray & node_coordinates,const PointCoordinateArray & point_coordinates);
71 
72  template <typename CoordinateArray>
73  void copyNodeCoords(const CoordinateArray& in_node_coords);
74 
75  template <typename CoordinateArray>
76  void copyPointCoords(const CoordinateArray& in_point_coords);
77 
83 
84  // cell points
86 
88  };
89 
90  template <typename Scalar,
91  template <typename DataT,
92  typename Tag0, typename Tag1, typename Tag2,
93  typename Tag3, typename Tag4, typename Tag5,
94  typename Tag6, typename Tag7> class Array >
95  template <typename NodeCoordinateArray,typename PointCoordinateArray>
96  void PointValues2<Scalar,Array>::
97  evaluateValues(const NodeCoordinateArray& in_node_coords,
98  const PointCoordinateArray & in_point_coords)
99  {
100  if (point_rule->isSide()) {
101  TEUCHOS_ASSERT(false); // not implemented!!!!
102  }
103 
104  copyPointCoords(in_point_coords);
105  copyNodeCoords(in_node_coords);
106 
107  Intrepid2::CellTools<Scalar> cell_tools;
108 
109  cell_tools.setJacobian(jac, coords_ref, node_coordinates,*(point_rule->topology));
110  cell_tools.setJacobianInv(jac_inv, jac);
111  cell_tools.setJacobianDet(jac_det, jac);
112 
113  // IP coordinates
114  cell_tools.mapToPhysicalFrame(point_coords, coords_ref, node_coordinates, *(point_rule->topology));
115  }
116 
117 } // namespace panzer
118 
120 
121 #endif
Array< Scalar, Cell, IP, Dim, void, void, void, void, void > point_coords
Array< Scalar, Cell, IP, Dim, Dim, void, void, void, void > jac_inv
Array< Scalar, Cell, NODE, Dim, void, void, void, void, void > node_coordinates
Array< Scalar, Cell, IP, void, void, void, void, void, void > jac_det
ArrayTraits< ScalarT, PHX::MDField< ScalarT, void, void, void, void, void, void, void, void > >::size_type size_type
Teuchos::RCP< const panzer::PointRule > point_rule
Array< Scalar, Cell, IP, Dim, Dim, void, void, void, void > jac
#define TEUCHOS_ASSERT(assertion_test)
Array< Scalar, IP, Dim, void, void, void, void, void, void > coords_ref