qt_opposite Function

  1. SELF_QuadTreeMesh_2D.f90
  2. SELF_QuadTreeMesh_2D
  3. qt_opposite

public pure function qt_opposite(s) result(o)

The local side directly across an element from side s.

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: s

Return Value integer


Called by

proc~~qt_opposite~~CalledByGraph proc~qt_opposite qt_opposite proc~faceneighbor_quadtreemesh2d FaceNeighbor_QuadTreeMesh2D proc~faceneighbor_quadtreemesh2d->proc~qt_opposite proc~faceneighbor_quadtreemesh2d->proc~faceneighbor_quadtreemesh2d

Contents

Source Code

qt_opposite

Source Code

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