Save trailer into file.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(file_stl_object), | intent(inout) | :: | self | File STL. |
subroutine save_trailer_into_file(self)
!< Save trailer into file.
class(file_stl_object), intent(inout) :: self !< File STL.
if (self%is_open) then
if (self%is_ascii) write(self%file_unit, '(A)') 'endsolid '//trim(self%header)
else
write(stderr, '(A)') 'error: file is not open, impossible to write trailer into file!'
endif
endsubroutine save_trailer_into_file