d. Mesh Object Connectivity

The Mesh Object attributes, itettyp, itetoff, jtetoff, itet, and jtet along with the variables contained in the include file local_element.h completely describe the mesh connectivity. The following discussion is based on the concept of local facets and local edges for an element. The nodes comprising a given element are always specified in a well-defined order; hence when one references the ‘second facet’ of an element, one references a pre-defined set of points. Consider a tetrahedral element, with nodes labeled as in the diagram:

“196” “188”

The points are oriented so that the triple product  I1I2 . I2I3 x I2I4  is positive, and the volume of the tet is one-sixth of the triple product and the right-hand-normals of the facets point outward. The local facets are defined as follows:

F1 = I2 I3 I4 F2  =  I1 I4 I3 F3  =  I1 I2 I4 F4  =  I1 I3 I2 —– —- —- —- —-

The local edges for a tetrahedral are defined as follows:

E1 I1 I2 E2  I1 I3 E3  I1 I4 E4  I2 I3 E5 I2 I4 E6 I3 I4 —– —- —-

Similarly, local facets and local edges are defined for all element types.  (see supported element types)

[]{#itettypitettyp(it) gives the element type of element it.

[]{#itetoffitetoff(it) gives the offset to the first node in element it.

[]{#itetitet(itetoff(it)+j) gives the jth node of element it.

nelmnen(itettyp(it)) gives the number of nodes of element it.

To loop through all the nodes of all elements in the mesh:

do it=1,ntets

do j=1,nelmnen(itettyp(it))

k=itet(itetoff(it)+j)

enddo

enddo

nelmnef(itettyp(it)) gives the number of facets of element it. ielmface0(iface,itettyp(it)) gives the number of nodes on facet iface of element it. ielmface1(local_node,iface,itettyp(it)) gives the increment to the node number (local_node) on facet iface of element it.

To loop through all the nodes, k, of all elements in the mesh by facets:

do it=1,ntets

do i=1,nelmnef(itettyp(it))

do j=1,ielmface0(i,itettyp(it))

k=itet(itetoff(it)+

ielmface1(j,i,itettyp(it)))

enddo

enddo

enddo

nelmnee(itettyp(it)) gives the number of edges of element it. ielmface2(inode,iface,itettyp(it)) gives the edge number associated with inode on facet iface of element it.

ielmedge1(12,iedge,itettyp(it)) gives the node offset associated with edge iedge of element it.

To loop through all pairs of edge nodes (i1,i2) of all elements in the mesh :

do it=1,ntets

do i=1,nelmnee(itettyp(it))

i1=itet(itetoff(it)+

ielmedge1(1,i,itettyp(it)))

i2=itet(itetoff(it)+

ielmedge1(2,i,itettyp(it))

enddo

enddo

To loop through all pairs of edge nodes (i1,i2) of all elements in the mesh by facets:

do it=1,ntets

do i=1,nelmnef(itettyp(it))

do j=1,ielmface0(i,itettyp(it))

ie=ielmface2(j,i,itettype(it))

i1=itet(itetoff(it)+

ielmedge1(1,ie,itettyp(it)))

i2=itet(itetoff(it)+

ielmedge1(2,ie,itettyp(it)))

enddo

enddo

enddo

[]{#jtetjtet(jtetoff(it)+j) gives the element number and local facet number of the neighbor to element it, facet j.

To loop to find all face neighbors of elements ** ** ( jt is the neighbor element number, jf is the local facet of the neighboring element) if jt is a neighbor of element it and local face if of it is the shared face jf of jt then jtet (jtetoff(it) + if) = nef_cmo *** (jt-1)+jf,** where nef_cmo is the number of faces per element. Similarily, jtet (jtetoff(jt) + jf) = nef_cmo *** (it** -1) ** ** + if []{#mbndry(mbndry is the value added to jtet if element it is on a boundary or interface; the jtet value of an element it with facet j on an exterior boundary will be exactly mbndry; the jtet value of an element it with facet j on an interior interface will be mbndry + the jtet value calculated from the neighboring element number and neighbor element local_facet number):

c get number of faces per element for this mesh object

call cmo_get_info( `faces_per_element’,cmo_name,

nef_cmo,ilen,ity,ics)

do it=1,ntets

do i=1,nelmnef(itettyp(it))

c check if element face is on an external boundry

if(jtet(jtetoff(it)+i).eq.mbndry) then

jt=0

jf=0

c check if element face is on an internal boundry

elseif(jtet(jtetoff(it)+i).gt.mbndry)then

jt=1+(jtet(jtetoff(it)+i)-mbndry-1)/nef_cmo

jf=jtet(jtetoff(it)+i)-mbndry-nef_cmo *(jt-1)

C Volume element

else

jt=1+(jtet(jtetoff(it)+i)-1)/nef_cmo

jf=jtet(jtetoff(it)+i)-nef_cmo *(jt-1)

endif

enddo

enddo