qt_subpos Function

  1. SELF_QuadTreeMesh_2D.f90
  2. SELF_QuadTreeMesh_2D
  3. qt_subpos

public pure function qt_subpos(c, s) result(t)

Sub-position (1 or 2, in the positive direction of side s) of child c along side s; 0 if c does not touch side s.

Arguments

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

Return Value integer


Called by

proc~~qt_subpos~~CalledByGraph proc~qt_subpos qt_subpos proc~faceneighbor_quadtreemesh2d FaceNeighbor_QuadTreeMesh2D proc~faceneighbor_quadtreemesh2d->proc~qt_subpos proc~faceneighbor_quadtreemesh2d->proc~faceneighbor_quadtreemesh2d

Contents

Source Code

qt_subpos

Source Code

  pure function qt_subpos(c,s) result(t)
    !! Sub-position (1 or 2, in the positive direction of side s) of child c along side s;
    !! 0 if c does not touch side s.
    implicit none
    integer,intent(in) :: c,s
    integer :: t
    if(childOfSide(1,s) == c) then
      t = 1
    elseif(childOfSide(2,s) == c) then
      t = 2
    else
      t = 0
    endif
  endfunction qt_subpos