GetNodeToNodes

Returns node to node connectivity in the mess.

Interface

There are two interfaces to this method

Interface 1

Interface 1

MODULE PURE FUNCTION getNodeToNodes(obj, globalNode, IncludeSelf) &
  & RESULT(ans)
  CLASS(Mesh_), INTENT(IN) :: obj
  INTEGER(I4B), INTENT(IN) :: globalNode
  LOGICAL(LGT), INTENT(IN) :: IncludeSelf
  INTEGER(I4B), ALLOCATABLE :: ans(:)
END FUNCTION getNodeToNodes

Interface 2

MODULE PURE FUNCTION getNodeToNodes(obj, globalNode, IncludeSelf) &
  & RESULT(ans)
  CLASS(Mesh_), INTENT(IN) :: obj
  INTEGER(I4B), INTENT(IN) :: globalNode( : )
  LOGICAL(LGT), INTENT(IN) :: IncludeSelf
  INTEGER(I4B), ALLOCATABLE :: ans(:)
END FUNCTION getNodeToNodes

example

This example shows how to get the node to node connectivity data in the mesh.

PROGRAM main
  USE easifemBase
  USE easifemClasses
  IMPLICIT NONE
  TYPE( Mesh_ ) :: obj
  TYPE( HDF5File_ ) :: meshfile
  INTEGER( I4B ), ALLOCATABLE :: nptrs( : )

  ! Initiate and open the mesh file which is in [[HDF5File_]] format. Then, create an instance of mesh.

  CALL meshfile%Initiate( FileName="./mesh.h5", MODE="READ" )
  CALL meshfile%Open()
  CALL obj%Initiate(hdf5=meshfile, group="/surfaceEntities_1" )

  ! Now we get the global nodes connected to the global node

  nptrs = obj%GetNodeToNodes( globalNode=200, IncludeSelf=.FALSE. )
  CALL OK( nptrs .IN. [294, 205, 201, 195, 187, 285], "GetNodeToNodes:" )

  ! Now we get the global node numbers connected to several global nodes

  nptrs = obj%GetNodeToNodes( globalNode=[200, 260], includeSelf=.FALSE. )
  CALL OK( nptrs .IN. [294, 205, 201, 195, 187, 285, &
    & 268, 178, 170, 172, 181], "GetNodeToNodes:" )

  CALL obj%Deallocate()
  CALL meshfile%Close()
  CALL meshfile%Deallocate()
END PROGRAM main

↢ close