tem_assign_rotatedNeighbors Function

public function tem_assign_rotatedNeighbors(iCase) result(rotCoord)

Sets the source coordinate for the rotated unit cube

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iCase

Return Value integer, (3,8)

rotated coordinates


Source Code

  function tem_assign_rotatedNeighbors( iCase ) result( rotCoord )
    ! ---------------------------------------------------------------------------
    !>
    integer, intent(in)    :: iCase
    !> rotated coordinates
    integer   :: rotCoord(3,8)
    ! ---------------------------------------------------------------------------
    integer   :: curCoord(3)
    integer   :: iNeigh
    ! ---------------------------------------------------------------------------
    do iNeigh = 1,8
      curCoord = childPosition( iNeigh, : )
      rotCoord( :, iNeigh ) = matmul(transpose(tem_rotationMatrix(:,:,iCase)), &
        &                            curCoord )
      rotCoord = (rotCoord+1)/2
    enddo
   end function tem_assign_rotatedNeighbors