write_on_scratch_dataarray3_rank1_R4P Function

  function write_on_scratch_dataarray3_rank1_R4P(self, x, y, z) result(n_byte)
  !< Write a dataarray with 3 components of rank 1 (R4P).
  class(xml_writer_appended), intent(inout) :: self   !< Writer.
  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=[(x(n), y(n), z(n), n=1,size(x, dim=1))])
  endfunction write_on_scratch_dataarray3_rank1_R4P