Mirror facet given matrix (of mirroring).
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(facet_object), | intent(inout) | :: | self | Facet. |
||
| real(kind=R8P), | intent(in) | :: | matrix(3,3) | Mirroring matrix. |
||
| logical, | intent(in), | optional | :: | recompute_metrix | Sentinel to activate metrix recomputation. |
pure subroutine mirror_by_matrix(self, matrix, recompute_metrix)
!< Mirror facet given matrix (of mirroring).
class(facet_object), intent(inout) :: self !< Facet.
real(R8P), intent(in) :: matrix(3,3) !< Mirroring matrix.
logical, intent(in), optional :: recompute_metrix !< Sentinel to activate metrix recomputation.
call self%vertex_1%mirror(matrix=matrix)
call self%vertex_2%mirror(matrix=matrix)
call self%vertex_3%mirror(matrix=matrix)
if (present(recompute_metrix)) then
if (recompute_metrix) call self%compute_metrix
endif
endsubroutine mirror_by_matrix