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_Hex16.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 *Hex16::name = "hex16";
17 class St_Hex16 : public ElementVariableType
18 {
19 public:
factory()20 static void factory() { static St_Hex16 registerThis; }
21
22 protected:
St_Hex16()23 St_Hex16() : ElementVariableType(Ioss::Hex16::name, 16) {}
24 };
25 } // namespace Ioss
26
27 // ========================================================================
28 namespace {
29 struct Constants
30 {
31 static const int nnode = 16;
32 static const int nedge = 12;
33 static const int nedgenode = 3;
34 static const int nface = 6;
35 static const int nfacenode = 8;
36 static const int nfaceedge = 4;
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, 8}, {1, 2, 9}, {2, 3, 10}, {3, 0, 11}, {4, 5, 12}, {5, 6, 13},
47 {6, 7, 14}, {7, 4, 15}, {0, 4, -1}, {1, 5, -1}, {2, 6, -1}, {3, 7, -1}};
48
49 // Face numbers are zero-based [0..number_faces]
50 int Constants::face_node_order[nface][nfacenode] = // [face][face_node]
51 {{0, 1, 5, 4, 8, 12, -1, -1}, {1, 2, 6, 5, 9, 13, -1, -1}, {2, 3, 7, 6, 10, 14, -1, -1},
52 {3, 0, 4, 7, 3, 11, 15, -1}, {0, 3, 2, 1, 11, 10, 9, 8}, {4, 5, 6, 7, 12, 13, 14, 15}};
53
54 int Constants::face_edge_order[nface][nfaceedge] = // [face][face_edge]
55 {{0, 9, 4, 8}, {1, 10, 5, 9}, {2, 11, 6, 10}, {3, 8, 7, 11}, {3, 2, 1, 0}, {4, 5, 6, 7}};
56
57 // face 0 returns number of nodes for all faces if homogeneous
58 // returns -1 if faces have differing topology
59 int Constants::nodes_per_face[nface + 1] = {-1, 6, 6, 6, 6, 8, 8};
60
61 // face 0 returns number of edges for all faces if homogeneous
62 // returns -1 if faces have differing topology
63 int Constants::edges_per_face[nface + 1] = {4, 4, 4, 4, 4, 4, 4};
64 } // namespace
65
factory()66 void Ioss::Hex16::factory()
67 {
68 static Ioss::Hex16 registerThis;
69 Ioss::St_Hex16::factory();
70 }
71
Hex16()72 Ioss::Hex16::Hex16() : Ioss::ElementTopology(Ioss::Hex16::name, "Hexahedron_16")
73 {
74 Ioss::ElementTopology::alias(Ioss::Hex16::name, "Solid_Hex_16_3D");
75 }
76
77 Ioss::Hex16::~Hex16() = default;
78
parametric_dimension()79 int Ioss::Hex16::parametric_dimension() const { return 3; }
spatial_dimension()80 int Ioss::Hex16::spatial_dimension() const { return 3; }
order()81 int Ioss::Hex16::order() const { return 2; }
82
number_corner_nodes()83 int Ioss::Hex16::number_corner_nodes() const { return 8; }
number_nodes()84 int Ioss::Hex16::number_nodes() const { return Constants::nnode; }
number_edges()85 int Ioss::Hex16::number_edges() const { return Constants::nedge; }
number_faces()86 int Ioss::Hex16::number_faces() const { return Constants::nface; }
87
number_nodes_edge(int edge)88 int Ioss::Hex16::number_nodes_edge(int edge) const
89 {
90 // edge is 1-based. 0 passed in for all edges.
91 assert(edge >= 0 && edge <= number_edges());
92 if (edge == 0) {
93 return -1;
94 }
95 if (edge <= 8) {
96 return 3;
97 }
98
99 return 2;
100 }
101
number_nodes_face(int face)102 int Ioss::Hex16::number_nodes_face(int face) const
103 {
104 // face is 1-based. 0 passed in for all faces.
105 assert(face >= 0 && face <= number_faces());
106 return Constants::nodes_per_face[face];
107 }
108
number_edges_face(int face)109 int Ioss::Hex16::number_edges_face(int face) const
110 {
111 // face is 1-based. 0 passed in for all faces.
112 assert(face >= 0 && face <= number_faces());
113 return Constants::edges_per_face[face];
114 }
115
edge_connectivity(int edge_number)116 Ioss::IntVector Ioss::Hex16::edge_connectivity(int edge_number) const
117 {
118 assert(edge_number > 0 && edge_number <= Constants::nedge);
119 Ioss::IntVector connectivity(number_nodes_edge(edge_number));
120
121 for (int i = 0; i < number_nodes_edge(edge_number); i++) {
122 connectivity[i] = Constants::edge_node_order[edge_number - 1][i];
123 }
124
125 return connectivity;
126 }
127
face_connectivity(int face_number)128 Ioss::IntVector Ioss::Hex16::face_connectivity(int face_number) const
129 {
130 assert(face_number > 0 && face_number <= number_faces());
131 Ioss::IntVector connectivity(Constants::nodes_per_face[face_number]);
132
133 for (int i = 0; i < Constants::nodes_per_face[face_number]; i++) {
134 connectivity[i] = Constants::face_node_order[face_number - 1][i];
135 }
136
137 return connectivity;
138 }
139
element_connectivity()140 Ioss::IntVector Ioss::Hex16::element_connectivity() const
141 {
142 Ioss::IntVector connectivity(number_nodes());
143 for (int i = 0; i < number_nodes(); i++) {
144 connectivity[i] = i;
145 }
146 return connectivity;
147 }
148
face_type(int face_number)149 Ioss::ElementTopology *Ioss::Hex16::face_type(int face_number) const
150 {
151 // face_number == 0 returns topology for all faces if
152 // all faces are the same topology; otherwise, returns nullptr
153 // face_number is 1-based.
154 assert(face_number >= 0 && face_number <= number_faces());
155
156 if (face_number == 0) {
157 return (Ioss::ElementTopology *)nullptr;
158 }
159 if (face_number <= 4) {
160 return Ioss::ElementTopology::factory("quad6");
161 }
162 return Ioss::ElementTopology::factory("quad8");
163 }
164
edge_type(int edge_number)165 Ioss::ElementTopology *Ioss::Hex16::edge_type(int edge_number) const
166 {
167 // edge_number == 0 returns topology for all edges if
168 // all edges are the same topology; otherwise, returns nullptr
169 // edge_number is 1-based.
170 assert(edge_number >= 0 && edge_number <= number_edges());
171
172 if (edge_number == 0) {
173 return (Ioss::ElementTopology *)nullptr;
174 }
175 if (edge_number <= 8) {
176 return Ioss::ElementTopology::factory("edge3");
177 }
178 return Ioss::ElementTopology::factory("edge2");
179 }
180
face_edge_connectivity(int face_number)181 Ioss::IntVector Ioss::Hex16::face_edge_connectivity(int face_number) const
182 {
183 assert(face_number > 0 && face_number <= Constants::nface);
184
185 int nface_edge = number_edges_face(face_number);
186 Ioss::IntVector fcon(nface_edge);
187
188 for (int i = 0; i < nface_edge; i++) {
189 fcon[i] = Constants::face_edge_order[face_number - 1][i];
190 }
191
192 return fcon;
193 }
194