write_on_scratch_dataarray6_rank1_R4P Function

  function write_on_scratch_dataarray6_rank1_R4P(self, u, v, w, x, y, z) result(n_byte)
  !< Write a dataarray with 6 components of rank 1 (R4P).
  class(xml_writer_appended), intent(inout) :: self   !< Writer.
  real(R4P),                  intent(in)    :: u(1:)  !< U component.
  real(R4P),                  intent(in)    :: v(1:)  !< V component.
  real(R4P),                  intent(in)    :: w(1:)  !< W component.
  real(R4P),                  intent(in)    :: x(1:)  !< X component.
  real(R4P),                  intent(in)    :: y(1:)  !< Y component.
  real(R4P),                  intent(in)    :: z(1:)  !< Z component.
  integer(I4P)                              :: n_byte !< Number of bytes
  integer(I4P)                              :: n      !< Counter.

  n_byte = self%write_on_scratch_dataarray(x=[(u(n), v(n), w(n), x(n), y(n), z(n), n=1,size(x, dim=1))])
  endfunction write_on_scratch_dataarray6_rank1_R4P