qt_internal Function

  1. SELF_QuadTreeMesh_2D.f90
  2. SELF_QuadTreeMesh_2D
  3. qt_internal

public pure function qt_internal(s, c) result(isInternal)

.true. if child c's side s is interior to its parent (its neighbour across s is a sibling).

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: s
integer, intent(in) :: c

Return Value logical


Called by

proc~~qt_internal~~CalledByGraph proc~qt_internal qt_internal proc~faceneighbor_quadtreemesh2d FaceNeighbor_QuadTreeMesh2D proc~faceneighbor_quadtreemesh2d->proc~qt_internal proc~faceneighbor_quadtreemesh2d->proc~faceneighbor_quadtreemesh2d

Contents

Source Code

qt_internal

Source Code

  pure function qt_internal(s,c) result(isInternal)
    !! .true. if child c's side s is interior to its parent (its neighbour across s is a sibling).
    implicit none
    integer,intent(in) :: s,c
    logical :: isInternal
    select case(s)
    case(1); isInternal = (c == 3 .or. c == 4) ! South interior for the top children
    case(2); isInternal = (c == 1 .or. c == 4) ! East interior for the left children
    case(3); isInternal = (c == 1 .or. c == 2) ! North interior for the bottom children
    case(4); isInternal = (c == 2 .or. c == 3) ! West interior for the right children
    case default; isInternal = .false.
    endselect
  endfunction qt_internal