Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public, | parameter | :: | NODES_PER_FACE | = | 4 | |
integer, | public, | parameter | :: | NODES_PER_ELEMENT | = | 8 | |
integer, | public, | parameter | :: | FACES_PER_ELEMENT | = | 6 | |
integer, | public, | parameter | :: | EDGES_PER_ELEMENT | = | 12 |
axisMap gives the element local coordinate number for the two directions on each face. The coordinate numbers are given by (xi,eta,zeta) = (1,2,3). For instance, the two coordinate directions on Face 1 are (xi,zeta). |
integer, | public, | dimension(2,6) | :: | axisMap | = | RESHAPE((/1, 3, 1, 3, 1, 2, 2, 3, 1, 2, 2, 3/), (/2, 6/)) | |
integer, | public, | parameter | :: | normalAxis(6) | = | [-2, 2, -3, 1, 3, -1] | |
integer, | public, | parameter | :: | neighborFaces(4,6) | = | reshape((/3, 4, 5, 6, 3, 4, 5, 6, 1, 2, 4, 6, 1, 2, 3, 5, 1, 2, 4, 6, 1, 2, 3, 5/), (/4, 6/)) | |
integer, | public, | DIMENSION(4,6) | :: | localFaceNode | = | RESHAPE((/1, 2, 6, 5, 4, 3, 7, 8, 1, 2, 3, 4, 2, 3, 7, 6, 5, 6, 7, 8, 1, 4, 8, 5/), (/4, 6/)) | |
integer, | public, | DIMENSION(2,12) | :: | localEdgeNode | = | RESHAPE((/1, 2, 2, 6, 5, 6, 1, 5, 4, 3, 3, 7, 8, 7, 4, 8, 1, 4, 2, 3, 6, 7, 5, 8/), (/2, 12/)) | |
integer, | public, | parameter, DIMENSION(4,4) | :: | sideMap | = | RESHAPE((/ILLEG, -1, ILLEG, -2, 1, ILLEG, -2, ILLEG, ILLEG, 2, ILLEG, 1, 2, ILLEG, -1, ILLEG/), (/4, 4/)) |