write_piece_end_tag Function

private function write_piece_end_tag(self) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self

Return Value integer(kind=I4P)


Contents

Source Code


Source Code

   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