Skip to main content

SlaveCellNumber

Returns slave cell number of given facet number.

If the returned cell number is zero, then it means that facet element does not have a slave cell.

note

This routine takes local number of facet element.

Interface1​

INTERFACE
  MODULE PURE FUNCTION SlaveCellNumber(obj, localElement) RESULT(ans)
    CLASS(DomainConnectivity_), INTENT(IN) :: obj
    !! Mesh connectivity data
    INTEGER(I4B), INTENT(IN) :: localElement
    !! Facet element number
    INTEGER(I4B) :: ans
    !! Cell number
  END FUNCTION SlaveCellNumber
END INTERFACE

Interface2​

INTERFACE
  MODULE PURE FUNCTION SlaveCellNumber(obj, localElement) RESULT(ans)
    CLASS(DomainConnectivity_), INTENT(IN) :: obj
    !! Mesh connectivity data
    INTEGER(I4B), INTENT(IN) :: localElement(:)
    !! List of facet element numbers
    INTEGER(I4B) :: ans(SIZE(localElement))
    !! List of cell element numbers
  END FUNCTION SlaveCellNumber
END INTERFACE