Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(xml_writer_abstract), | intent(inout) | :: | self | |||
integer(kind=I4P), | intent(in) | :: | file_index | |||
character, | intent(in) | :: | filename | |||
character, | intent(in), | optional | :: | name |
function write_parallel_block_file(self, file_index, filename, name) result(error)
!< Write single file that belong to the current block.
class(xml_writer_abstract), intent(inout) :: self !< Writer.
integer(I4P), intent(in) :: file_index !< Index of file in the list.
character(*), intent(in) :: filename !< Wrapped file names.
character(*), intent(in), optional :: name !< Names attributed to wrapped file.
integer(I4P) :: error !< Error status.
if (present(name)) then
call self%write_self_closing_tag(name='DataSet', &
attributes='index="'//trim(str(file_index, .true.))//&
'" file="'//trim(adjustl(filename))// &
'" name="'//trim(adjustl(name))//'"')
else
call self%write_self_closing_tag(name='DataSet', &
attributes='index="'//trim(str(file_index, .true.))// &
'" file="'//trim(adjustl(filename))//'"')
endif
error = self%error
endfunction write_parallel_block_file