1 // Copyright(C) 1999-2020 National Technology & Engineering Solutions
2 // of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
3 // NTESS, the U.S. Government retains certain rights in this software.
4 //
5 // See packages/seacas/LICENSE for details
6
7 #include "Ioss_CodeTypes.h" // for IntVector
8 #include "Ioss_ElementTopology.h" // for ElementTopology
9 #include <Ioss_ElementVariableType.h> // for ElementVariableType
10 #include <Ioss_Tet14.h>
11 #include <cassert> // for assert
12
13 //------------------------------------------------------------------------
14 // Define a variable type for storage of this elements connectivity
15 namespace Ioss {
16 const char *Tet14::name = "tetra14";
17 class St_Tet14 : public ElementVariableType
18 {
19 public:
factory()20 static void factory() { static St_Tet14 registerThis; }
21
22 protected:
St_Tet14()23 St_Tet14() : ElementVariableType(Ioss::Tet14::name, 14) {}
24 };
25 } // namespace Ioss
26
27 // ========================================================================
28 namespace {
29 struct Constants
30 {
31 static const int nnode = 14;
32 static const int nedge = 6;
33 static const int nedgenode = 3;
34 static const int nface = 4;
35 static const int nfacenode = 7;
36 static const int nfaceedge = 3;
37 static int edge_node_order[nedge][nedgenode];
38 static int face_node_order[nface][nfacenode];
39 static int face_edge_order[nface][nfaceedge];
40 static int nodes_per_face[nface + 1];
41 static int edges_per_face[nface + 1];
42 };
43
44 // Edge numbers are zero-based [0..number_edges)
45 int Constants::edge_node_order[nedge][nedgenode] = // [edge][edge_node]
46 {{0, 1, 4}, {1, 2, 5}, {2, 0, 6}, {0, 3, 7}, {1, 3, 8}, {2, 3, 9}};
47
48 // Face numbers are zero-based [0..number_faces)
49 int Constants::face_node_order[nface][nfacenode] = // [face][face_node]
50 {{0, 1, 3, 4, 8, 7, 13},
51 {1, 2, 3, 5, 9, 8, 11},
52 {0, 3, 2, 7, 9, 6, 12},
53 {0, 2, 1, 6, 5, 4, 10}};
54
55 int Constants::face_edge_order[nface][nfaceedge] = // [face][face_edge]
56 {{0, 4, 3}, {1, 5, 4}, {3, 5, 2}, {2, 1, 0}};
57
58 // face 0 returns number of nodes for all faces if homogeneous
59 // returns -1 if faces have differing topology
60 int Constants::nodes_per_face[nface + 1] = {nfacenode, nfacenode, nfacenode, nfacenode,
61 nfacenode};
62
63 // face 0 returns number of edges for all faces if homogeneous
64 // returns -1 if faces have differing topology
65 int Constants::edges_per_face[nface + 1] = {nfaceedge, nfaceedge, nfaceedge, nfaceedge,
66 nfaceedge};
67 } // namespace
68
factory()69 void Ioss::Tet14::factory()
70 {
71 static Ioss::Tet14 registerThis;
72 Ioss::St_Tet14::factory();
73 }
74
Tet14()75 Ioss::Tet14::Tet14() : Ioss::ElementTopology(Ioss::Tet14::name, "Tetrahedron_14")
76 {
77 Ioss::ElementTopology::alias(Ioss::Tet14::name, "tet14");
78 Ioss::ElementTopology::alias(Ioss::Tet14::name, "Solid_Tet_14_3D");
79 }
80
81 Ioss::Tet14::~Tet14() = default;
82
parametric_dimension()83 int Ioss::Tet14::parametric_dimension() const { return 3; }
spatial_dimension()84 int Ioss::Tet14::spatial_dimension() const { return 3; }
order()85 int Ioss::Tet14::order() const { return 2; }
86
number_corner_nodes()87 int Ioss::Tet14::number_corner_nodes() const { return 4; }
number_nodes()88 int Ioss::Tet14::number_nodes() const { return Constants::nnode; }
number_edges()89 int Ioss::Tet14::number_edges() const { return Constants::nedge; }
number_faces()90 int Ioss::Tet14::number_faces() const { return Constants::nface; }
91
number_nodes_edge(int)92 int Ioss::Tet14::number_nodes_edge(int /* edge */) const { return Constants::nedgenode; }
93
number_nodes_face(int face)94 int Ioss::Tet14::number_nodes_face(int face) const
95 {
96 // face is 1-based. 0 passed in for all faces.
97 assert(face >= 0 && face <= number_faces());
98 return Constants::nodes_per_face[face];
99 }
100
number_edges_face(int face)101 int Ioss::Tet14::number_edges_face(int face) const
102 {
103 // face is 1-based. 0 passed in for all faces.
104 assert(face >= 0 && face <= number_faces());
105 return Constants::edges_per_face[face];
106 }
107
edge_connectivity(int edge_number)108 Ioss::IntVector Ioss::Tet14::edge_connectivity(int edge_number) const
109 {
110 assert(edge_number > 0 && edge_number <= Constants::nedge);
111 Ioss::IntVector connectivity(Constants::nedgenode);
112
113 for (int i = 0; i < Constants::nedgenode; i++) {
114 connectivity[i] = Constants::edge_node_order[edge_number - 1][i];
115 }
116
117 return connectivity;
118 }
119
face_connectivity(int face_number)120 Ioss::IntVector Ioss::Tet14::face_connectivity(int face_number) const
121 {
122 assert(face_number > 0 && face_number <= number_faces());
123 Ioss::IntVector connectivity(Constants::nodes_per_face[face_number]);
124
125 for (int i = 0; i < Constants::nodes_per_face[face_number]; i++) {
126 connectivity[i] = Constants::face_node_order[face_number - 1][i];
127 }
128
129 return connectivity;
130 }
131
element_connectivity()132 Ioss::IntVector Ioss::Tet14::element_connectivity() const
133 {
134 Ioss::IntVector connectivity(number_nodes());
135 for (int i = 0; i < number_nodes(); i++) {
136 connectivity[i] = i;
137 }
138 return connectivity;
139 }
140
face_type(int face_number)141 Ioss::ElementTopology *Ioss::Tet14::face_type(int face_number) const
142 {
143 // face_number == 0 returns topology for all faces if
144 // all faces are the same topology; otherwise, returns nullptr
145 // face_number is 1-based.
146
147 assert(face_number >= 0 && face_number <= number_faces());
148 // return Ioss::ElementTopology::factory("triface6");
149 return Ioss::ElementTopology::factory("tri7");
150 }
151
edge_type(int edge_number)152 Ioss::ElementTopology *Ioss::Tet14::edge_type(int edge_number) const
153 {
154 // edge_number == 0 returns topology for all edges if
155 // all edges are the same topology; otherwise, returns nullptr
156 // edge_number is 1-based.
157
158 assert(edge_number >= 0 && edge_number <= number_edges());
159 return Ioss::ElementTopology::factory("edge3");
160 }
161
face_edge_connectivity(int face_number)162 Ioss::IntVector Ioss::Tet14::face_edge_connectivity(int face_number) const
163 {
164 assert(face_number > 0 && face_number <= Constants::nface);
165
166 int nface_edge = number_edges_face(face_number);
167 Ioss::IntVector fcon(nface_edge);
168
169 for (int i = 0; i < nface_edge; i++) {
170 fcon[i] = Constants::face_edge_order[face_number - 1][i];
171 }
172
173 return fcon;
174 }
175