write_on_scratch_dataarray3_rank2_R8P Function

private function write_on_scratch_dataarray3_rank2_R8P(self, x, y, z) result(n_byte)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_appended), intent(inout) :: self
real(kind=R8P), intent(in) :: x(1:,1:)
real(kind=R8P), intent(in) :: y(1:,1:)
real(kind=R8P), intent(in) :: z(1:,1:)

Return Value integer(kind=I4P)


Contents


Source Code

  function write_on_scratch_dataarray3_rank2_R8P(self, x, y, z) result(n_byte)
  !< Write a dataarray with 3 components of rank 2 (R8P).
  class(xml_writer_appended), intent(inout) :: self     !< Writer.
  real(R8P),                  intent(in)    :: x(1:,1:) !< X component.
  real(R8P),                  intent(in)    :: y(1:,1:) !< Y component.
  real(R8P),                  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=[((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_dataarray3_rank2_R8P