invFlip3D Function

  1. SELF_AdaptiveMesh_3D.f90
  2. SELF_AdaptiveMesh_3D
  3. invFlip3D

public pure function invFlip3D(f) result(fi)

Inverse of a SELF face flip: the flip that maps donor-face indices back to receiver-face indices. Flips 0..4 and 6 are involutions; 5 and 7 invert each other.

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: f

Return Value integer


Called by

proc~~invflip3d~~CalledByGraph proc~invflip3d invFlip3D proc~emitmesh~2 EmitMesh proc~emitmesh~2->proc~invflip3d proc~adapt_amrcontroller3d Adapt_AMRController3D proc~adapt_amrcontroller3d->proc~emitmesh~2

Contents

Source Code

invFlip3D

Source Code

  pure function invFlip3D(f) result(fi)
    !! Inverse of a SELF face flip: the flip that maps donor-face indices back to
    !! receiver-face indices. Flips 0..4 and 6 are involutions; 5 and 7 invert each other.
    implicit none
    integer,intent(in) :: f
    integer :: fi
    integer,parameter :: inv(0:7) = [0,1,2,3,4,7,6,5]
    fi = inv(f)
  endfunction invFlip3D