oc_opposite Function

  1. SELF_OctreeMesh_3D.f90
  2. SELF_OctreeMesh_3D
  3. oc_opposite

public pure function oc_opposite(s) result(o)

The local face directly across an element from face s.

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: s

Return Value integer


Called by

proc~~oc_opposite~~CalledByGraph proc~oc_opposite oc_opposite proc~faceneighbor_octreemesh3d FaceNeighbor_OctreeMesh3D proc~faceneighbor_octreemesh3d->proc~oc_opposite proc~faceneighbor_octreemesh3d->proc~faceneighbor_octreemesh3d

Contents

Source Code

oc_opposite

Source Code

  pure function oc_opposite(s) result(o)
    !! The local face directly across an element from face s.
    implicit none
    integer,intent(in) :: s
    integer :: o
    integer,parameter :: opp(1:6) = [6,4,5,2,3,1]
    o = opp(s)
  endfunction oc_opposite