write_on_scratch_dataarray6_rank2_I1P Function

private function write_on_scratch_dataarray6_rank2_I1P(self, u, v, w, x, y, z) result(n_byte)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_appended), intent(inout) :: self
integer(kind=I1P), intent(in) :: u(1:,1:)
integer(kind=I1P), intent(in) :: v(1:,1:)
integer(kind=I1P), intent(in) :: w(1:,1:)
integer(kind=I1P), intent(in) :: x(1:,1:)
integer(kind=I1P), intent(in) :: y(1:,1:)
integer(kind=I1P), intent(in) :: z(1:,1:)

Return Value integer(kind=I4P)


Contents


Source Code

  function write_on_scratch_dataarray6_rank2_I1P(self, u, v, w, x, y, z) result(n_byte)
  !< Write a dataarray with 6 components of rank 2 (I1P).
  class(xml_writer_appended), intent(inout) :: self     !< Writer.
  integer(I1P),               intent(in)    :: u(1:,1:) !< U component.
  integer(I1P),               intent(in)    :: v(1:,1:) !< V component.
  integer(I1P),               intent(in)    :: w(1:,1:) !< W component.
  integer(I1P),               intent(in)    :: x(1:,1:) !< X component.
  integer(I1P),               intent(in)    :: y(1:,1:) !< Y component.
  integer(I1P),               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_I1P