oc_subpos Function

  1. SELF_OctreeMesh_3D.f90
  2. SELF_OctreeMesh_3D
  3. oc_subpos

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

Face quadrant (1..4, in face s's trace coordinates) of child c on face s; 0 if c does not touch face s.

Arguments

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

Return Value integer


Called by

proc~~oc_subpos~~CalledByGraph proc~oc_subpos oc_subpos proc~faceneighbor_octreemesh3d FaceNeighbor_OctreeMesh3D proc~faceneighbor_octreemesh3d->proc~oc_subpos proc~faceneighbor_octreemesh3d->proc~faceneighbor_octreemesh3d

Contents

Source Code

oc_subpos

Source Code

  pure function oc_subpos(c,s) result(t)
    !! Face quadrant (1..4, in face s's trace coordinates) of child c on face s;
    !! 0 if c does not touch face s.
    implicit none
    integer,intent(in) :: c,s
    integer :: t
    integer :: q
    t = 0
    do q = 1,4
      if(childOfFace(q,s) == c) then
        t = q
        return
      endif
    enddo
  endfunction oc_subpos