write_geo_strg_data1_rank4_R4P Function

   function write_geo_strg_data1_rank4_R4P(self, xyz) result(error)
   !< Write mesh with **StructuredGrid** topology (data 1, rank 4, R4P).
   class(xml_writer_abstract), intent(inout) :: self             !< Writer.
   real(R4P),                  intent(in)    :: xyz(1:,1:,1:,1:) !< X, y, z coordinates [1:3,:,:,:].
   integer(I4P)                              :: error            !< Error status.

   call self%write_start_tag(name='Points')
   error = self%write_dataarray(data_name='Points', x=xyz)
   call self%write_end_tag(name='Points')
   error = self%error
   endfunction write_geo_strg_data1_rank4_R4P