Reverse facet normal.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(facet_object), | intent(inout) | :: | self | Facet. |
elemental subroutine reverse_normal(self)
!< Reverse facet normal.
class(facet_object), intent(inout) :: self !< Facet.
type(vector_R8P) :: vertex !< Temporary vertex variable.
call self%flip_edge(edge_dir='edge_23')
endsubroutine reverse_normal