DisplayFacetData

Inheritence

This method is inherited from the AbstractMesh class.

DisplayFacetData

Displays information about all facet data in the mesh.

Interface

INTERFACE
  MODULE SUBROUTINE DisplayFacetData(obj, msg, unitno)
    CLASS(AbstractMesh_), INTENT(INOUT) :: obj
    CHARACTER(*), INTENT(IN) :: msg
    INTEGER(I4B), OPTIONAL, INTENT(IN) :: unitno
  END SUBROUTINE DisplayFacetData
END INTERFACE

Arguments

• obj: The AbstractMesh_ object containing facet data to display
• msg: A message to display at the beginning of the output
• unitno: Optional output unit number (defaults to stdout if not provided)

Description

This method displays all facet data contained in the mesh. It first checks if the facetData array is allocated, then iterates through all facet elements to display their information using FacetData_Display. For each facet, it shows:

• Master and slave cell information
• Local facet IDs within cells
• Facet element type
• Node connectivity
• Other facet-specific properties

A blank line is inserted between facet entries for better readability.

Example

!> author: Vikas Sharma, Ph. D.
! date: 2025-06-02
! summary:  Test method for DisplayFacetData

PROGRAM main
USE FEMesh_Class
USE HDF5File_Class
USE GlobalData

IMPLICIT NONE

TYPE(FEMesh_) :: obj
TYPE(HDF5File_) :: meshfile
CHARACTER(LEN=*), PARAMETER :: filename = &
                               "./meshdata/small_tri3_mesh.h5"

CALL meshfile%Initiate(FileName=filename, MODE="READ")

CALL meshfile%OPEN()

CALL obj%Initiate(hdf5=meshfile, dim=2)

CALL obj%InitiateFacetElements()

CALL obj%DisplayFacetData(msg="facet data of "//filename)

CALL obj%DEALLOCATE()
CALL meshfile%DEALLOCATE()
END PROGRAM main