tem_getFace_prp Subroutine

private subroutine tem_getFace_prp(faces, facePos, leftPrp, rightPrp)

Subroutine returns left and right propery of a face.

Arguments

Type IntentOptional Attributes Name
type(tem_face_descriptor_type), intent(in) :: faces

The face descriptor the face is located in.
integer, intent(in) :: facePos

The position of the face in the face descriptor.
integer, intent(out) :: leftPrp

The left property of the face.
integer, intent(out) :: rightPrp

The right property of the face.

Called by

proc~~tem_getface_prp~~CalledByGraph proc~tem_getface_prp tem_getFace_prp proc~tem_facedep_verticaldown tem_faceDep_verticalDown proc~tem_facedep_verticaldown->proc~tem_getface_prp proc~tem_facedep_verticalup tem_faceDep_verticalUp proc~tem_facedep_verticalup->proc~tem_getface_prp proc~tem_facedep_vertical tem_faceDep_vertical proc~tem_facedep_vertical->proc~tem_facedep_verticaldown proc~tem_facedep_vertical->proc~tem_facedep_verticalup proc~tem_build_face_info tem_build_face_info proc~tem_build_face_info->proc~tem_facedep_vertical

Source Code

  subroutine tem_getFace_prp( faces, facePos, leftPrp, rightPrp)
    ! --------------------------------------------------------------------------
    !> The face descriptor the face is located in.
    type(tem_face_descriptor_type), intent(in) :: faces
    !> The position of the face in the face descriptor.
    integer, intent(in) :: facePos
    !> The left property of the face.
    integer, intent(out) :: leftPrp
    !> The right property of the face.
    integer, intent(out) :: rightPrp
    ! --------------------------------------------------------------------------
    ! --------------------------------------------------------------------------

    ! read the left and right property
    leftPrp = faces%faceList%leftPrp%val(facePos)
    rightPrp = faces%faceList%rightPrp%val(facePos)

  end subroutine tem_getFace_prp