Return AABB octants.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(aabb_node_object), | intent(in) | :: | self | AABB. |
||
| type(aabb_object), | intent(out) | :: | octant(8) | AABB octants. |
pure subroutine compute_octants(self, octant)
!< Return AABB octants.
class(aabb_node_object), intent(in) :: self !< AABB.
type(aabb_object), intent(out) :: octant(8) !< AABB octants.
type(vector_R8P) :: vertex(8) !< AABB vertices.
integer(I4P) :: o !< Counter.
call self%aabb%compute_octants(octant=octant)
endsubroutine compute_octants