write_on_scratch_dataarray6_rank2_R4P Function

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

  n_byte = self%write_on_scratch_dataarray(x=[((u(n1,n2), v(n1,n2), w(n1,n2), &
                                                x(n1,n2), y(n1,n2), z(n1,n2), n1=1,size(x, dim=1)),n2=1,size(x, dim=2))])
  endfunction write_on_scratch_dataarray6_rank2_R4P