Allocate facets.
Facets previously allocated are lost.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(file_stl_object), | intent(inout) | :: | self | File STL. |
elemental subroutine allocate_facets(self)
!< Allocate facets.
!<
!< @note Facets previously allocated are lost.
class(file_stl_object), intent(inout) :: self !< File STL.
if (self%facets_number>0) then
if (allocated(self%facet)) deallocate(self%facet)
allocate(self%facet(1:self%facets_number))
endif
endsubroutine allocate_facets