Destroy AABB.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(aabb_node_object), | intent(inout) | :: | self | AABB. |
elemental subroutine destroy(self)
!< Destroy AABB.
class(aabb_node_object), intent(inout) :: self !< AABB.
type(aabb_node_object) :: fresh !< Fresh instance of AABB.
if (allocated(self%aabb)) then
call self%aabb%destroy
deallocate(self%aabb)
endif
endsubroutine destroy