Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(xml_writer_abstract), | intent(inout) | :: | self | |||
integer(kind=I4P), | intent(in) | :: | np | |||
integer(kind=I4P), | intent(in) | :: | nc | |||
real(kind=R8P), | intent(in) | :: | x(1:) | |||
real(kind=R8P), | intent(in) | :: | y(1:) | |||
real(kind=R8P), | intent(in) | :: | z(1:) |
function write_geo_unst_data3_rank1_R8P(self, np, nc, x, y, z) result(error) !< Write mesh with **UnstructuredGrid** topology (data 3, rank 1, R8P). class(xml_writer_abstract), intent(inout) :: self !< Writer. integer(I4P), intent(in) :: np !< Number of points. integer(I4P), intent(in) :: nc !< Number of cells. real(R8P), intent(in) :: x(1:) !< X coordinates. real(R8P), intent(in) :: y(1:) !< Y coordinates. real(R8P), intent(in) :: z(1:) !< Z coordinates. integer(I4P) :: error !< Error status. if ((np/=size(x, dim=1)).or.(np/=size(y, dim=1)).or.(np/=size(z, dim=1))) then self%error = 1 return endif call self%write_start_tag(name='Points') error = self%write_dataarray(data_name='Points', x=x, y=y, z=z) call self%write_end_tag(name='Points') error = self%error endfunction write_geo_unst_data3_rank1_R8P