Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(xml_writer_abstract), | intent(inout) | :: | self |
function write_piece_end_tag(self) result(error)
!< Write `</Piece>` end tag.
class(xml_writer_abstract), intent(inout) :: self !< Writer.
integer(I4P) :: error !< Error status.
call self%write_end_tag(name='Piece')
error = self%error
endfunction write_piece_end_tag