GetMeshPointer

This function returns the mesh pointer stored in the domain.

Interface

Interface

INTERFACE
 MODULE FUNCTION Domain_GetMeshPointer1(obj, dim, entityNum) RESULT(Ans)
   CLASS(Domain_), INTENT(IN) :: obj
   INTEGER(I4B), INTENT(IN) :: dim
   !! dimension of mesh entity
   INTEGER(I4B), INTENT(IN) :: entityNum
   !! entity number
   CLASS(Mesh_), POINTER :: ans
 END FUNCTION Domain_GetMeshPointer1
END INTERFACE

example

PROGRAM main
USE easifemBase
USE easifemClasses
USE FEDomain_Class

IMPLICIT NONE

TYPE(FEDomain_) :: obj
TYPE(HDF5File_) :: meshfile
CLASS(AbstractMesh_), pointer :: meshptr => null()
CHARACTER(*), PARAMETER :: filename="../../Mesh/examples/meshdata/small_tri3_mesh_two_region.h5"

CALL meshfile%Initiate(filename, "READ")
CALL meshfile%OPEN()
CALL obj%Initiate(meshfile, '')

meshptr => obj%GetMeshPointer(3)
CALL OK(.not. associated(meshptr) , "GetMeshPointer: ")

meshptr => obj%GetMeshPointer(2)
CALL OK(associated(meshptr) , "GetMeshPointer: ")

meshptr => obj%GetMeshPointer(1)
CALL OK(associated(meshptr) , "GetMeshPointer: ")

meshptr => obj%GetMeshPointer(0)
CALL OK(associated(meshptr) , "GetMeshPointer: ")

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

↢ close