write_on_scratch_dataarray1_rank1 Function

private function write_on_scratch_dataarray1_rank1(self, x) result(n_byte)

Type Bound

xml_writer_appended

Arguments

Type IntentOptional Attributes Name
class(xml_writer_appended), intent(inout) :: self
class(*), intent(in) :: x(1:)

Return Value integer(kind=I4P)


Called by

proc~~write_on_scratch_dataarray1_rank1~~CalledByGraph proc~write_on_scratch_dataarray1_rank1 xml_writer_appended%write_on_scratch_dataarray1_rank1 none~write_on_scratch_dataarray xml_writer_appended%write_on_scratch_dataarray none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray1_rank1 proc~write_on_scratch_dataarray3_rank1_i1p xml_writer_appended%write_on_scratch_dataarray3_rank1_I1P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank1_i1p proc~write_on_scratch_dataarray3_rank1_i2p xml_writer_appended%write_on_scratch_dataarray3_rank1_I2P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank1_i2p proc~write_on_scratch_dataarray3_rank1_i4p xml_writer_appended%write_on_scratch_dataarray3_rank1_I4P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank1_i4p proc~write_on_scratch_dataarray3_rank1_i8p xml_writer_appended%write_on_scratch_dataarray3_rank1_I8P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank1_i8p proc~write_on_scratch_dataarray3_rank1_r4p xml_writer_appended%write_on_scratch_dataarray3_rank1_R4P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank1_r4p proc~write_on_scratch_dataarray3_rank1_r8p xml_writer_appended%write_on_scratch_dataarray3_rank1_R8P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank1_r8p proc~write_on_scratch_dataarray3_rank2_i1p xml_writer_appended%write_on_scratch_dataarray3_rank2_I1P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank2_i1p proc~write_on_scratch_dataarray3_rank2_i2p xml_writer_appended%write_on_scratch_dataarray3_rank2_I2P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank2_i2p proc~write_on_scratch_dataarray3_rank2_i4p xml_writer_appended%write_on_scratch_dataarray3_rank2_I4P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank2_i4p proc~write_on_scratch_dataarray3_rank2_i8p xml_writer_appended%write_on_scratch_dataarray3_rank2_I8P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank2_i8p proc~write_on_scratch_dataarray3_rank2_r4p xml_writer_appended%write_on_scratch_dataarray3_rank2_R4P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank2_r4p proc~write_on_scratch_dataarray3_rank2_r8p xml_writer_appended%write_on_scratch_dataarray3_rank2_R8P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank2_r8p proc~write_on_scratch_dataarray3_rank3_i1p xml_writer_appended%write_on_scratch_dataarray3_rank3_I1P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank3_i1p proc~write_on_scratch_dataarray3_rank3_i2p xml_writer_appended%write_on_scratch_dataarray3_rank3_I2P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank3_i2p proc~write_on_scratch_dataarray3_rank3_i4p xml_writer_appended%write_on_scratch_dataarray3_rank3_I4P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank3_i4p proc~write_on_scratch_dataarray3_rank3_i8p xml_writer_appended%write_on_scratch_dataarray3_rank3_I8P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank3_i8p proc~write_on_scratch_dataarray3_rank3_r4p xml_writer_appended%write_on_scratch_dataarray3_rank3_R4P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank3_r4p proc~write_on_scratch_dataarray3_rank3_r8p xml_writer_appended%write_on_scratch_dataarray3_rank3_R8P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray3_rank3_r8p proc~write_on_scratch_dataarray6_rank1_i1p xml_writer_appended%write_on_scratch_dataarray6_rank1_I1P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank1_i1p proc~write_on_scratch_dataarray6_rank1_i2p xml_writer_appended%write_on_scratch_dataarray6_rank1_I2P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank1_i2p proc~write_on_scratch_dataarray6_rank1_i4p xml_writer_appended%write_on_scratch_dataarray6_rank1_I4P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank1_i4p proc~write_on_scratch_dataarray6_rank1_i8p xml_writer_appended%write_on_scratch_dataarray6_rank1_I8P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank1_i8p proc~write_on_scratch_dataarray6_rank1_r4p xml_writer_appended%write_on_scratch_dataarray6_rank1_R4P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank1_r4p proc~write_on_scratch_dataarray6_rank1_r8p xml_writer_appended%write_on_scratch_dataarray6_rank1_R8P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank1_r8p proc~write_on_scratch_dataarray6_rank2_i1p xml_writer_appended%write_on_scratch_dataarray6_rank2_I1P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank2_i1p proc~write_on_scratch_dataarray6_rank2_i2p xml_writer_appended%write_on_scratch_dataarray6_rank2_I2P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank2_i2p proc~write_on_scratch_dataarray6_rank2_i4p xml_writer_appended%write_on_scratch_dataarray6_rank2_I4P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank2_i4p proc~write_on_scratch_dataarray6_rank2_i8p xml_writer_appended%write_on_scratch_dataarray6_rank2_I8P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank2_i8p proc~write_on_scratch_dataarray6_rank2_r4p xml_writer_appended%write_on_scratch_dataarray6_rank2_R4P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank2_r4p proc~write_on_scratch_dataarray6_rank2_r8p xml_writer_appended%write_on_scratch_dataarray6_rank2_R8P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank2_r8p proc~write_on_scratch_dataarray6_rank3_i1p xml_writer_appended%write_on_scratch_dataarray6_rank3_I1P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank3_i1p proc~write_on_scratch_dataarray6_rank3_i2p xml_writer_appended%write_on_scratch_dataarray6_rank3_I2P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank3_i2p proc~write_on_scratch_dataarray6_rank3_i4p xml_writer_appended%write_on_scratch_dataarray6_rank3_I4P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank3_i4p proc~write_on_scratch_dataarray6_rank3_i8p xml_writer_appended%write_on_scratch_dataarray6_rank3_I8P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank3_i8p proc~write_on_scratch_dataarray6_rank3_r4p xml_writer_appended%write_on_scratch_dataarray6_rank3_R4P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank3_r4p proc~write_on_scratch_dataarray6_rank3_r8p xml_writer_appended%write_on_scratch_dataarray6_rank3_R8P none~write_on_scratch_dataarray->proc~write_on_scratch_dataarray6_rank3_r8p proc~write_dataarray1_rank1_i1p xml_writer_appended%write_dataarray1_rank1_I1P proc~write_dataarray1_rank1_i1p->none~write_on_scratch_dataarray proc~write_dataarray1_rank1_i2p xml_writer_appended%write_dataarray1_rank1_I2P proc~write_dataarray1_rank1_i2p->none~write_on_scratch_dataarray proc~write_dataarray1_rank1_i4p xml_writer_appended%write_dataarray1_rank1_I4P proc~write_dataarray1_rank1_i4p->none~write_on_scratch_dataarray proc~write_dataarray1_rank1_i8p xml_writer_appended%write_dataarray1_rank1_I8P proc~write_dataarray1_rank1_i8p->none~write_on_scratch_dataarray proc~write_dataarray1_rank1_r4p xml_writer_appended%write_dataarray1_rank1_R4P proc~write_dataarray1_rank1_r4p->none~write_on_scratch_dataarray proc~write_dataarray1_rank1_r8p xml_writer_appended%write_dataarray1_rank1_R8P proc~write_dataarray1_rank1_r8p->none~write_on_scratch_dataarray proc~write_dataarray1_rank2_i1p xml_writer_appended%write_dataarray1_rank2_I1P proc~write_dataarray1_rank2_i1p->none~write_on_scratch_dataarray proc~write_dataarray1_rank2_i2p xml_writer_appended%write_dataarray1_rank2_I2P proc~write_dataarray1_rank2_i2p->none~write_on_scratch_dataarray proc~write_dataarray1_rank2_i4p xml_writer_appended%write_dataarray1_rank2_I4P proc~write_dataarray1_rank2_i4p->none~write_on_scratch_dataarray proc~write_dataarray1_rank2_i8p xml_writer_appended%write_dataarray1_rank2_I8P proc~write_dataarray1_rank2_i8p->none~write_on_scratch_dataarray proc~write_dataarray1_rank2_r4p xml_writer_appended%write_dataarray1_rank2_R4P proc~write_dataarray1_rank2_r4p->none~write_on_scratch_dataarray proc~write_dataarray1_rank2_r8p xml_writer_appended%write_dataarray1_rank2_R8P proc~write_dataarray1_rank2_r8p->none~write_on_scratch_dataarray proc~write_dataarray1_rank3_i1p xml_writer_appended%write_dataarray1_rank3_I1P proc~write_dataarray1_rank3_i1p->none~write_on_scratch_dataarray proc~write_dataarray1_rank3_i2p xml_writer_appended%write_dataarray1_rank3_I2P proc~write_dataarray1_rank3_i2p->none~write_on_scratch_dataarray proc~write_dataarray1_rank3_i4p xml_writer_appended%write_dataarray1_rank3_I4P proc~write_dataarray1_rank3_i4p->none~write_on_scratch_dataarray proc~write_dataarray1_rank3_i8p xml_writer_appended%write_dataarray1_rank3_I8P proc~write_dataarray1_rank3_i8p->none~write_on_scratch_dataarray proc~write_dataarray1_rank3_r4p xml_writer_appended%write_dataarray1_rank3_R4P proc~write_dataarray1_rank3_r4p->none~write_on_scratch_dataarray proc~write_dataarray1_rank3_r8p xml_writer_appended%write_dataarray1_rank3_R8P proc~write_dataarray1_rank3_r8p->none~write_on_scratch_dataarray proc~write_dataarray1_rank4_i1p xml_writer_appended%write_dataarray1_rank4_I1P proc~write_dataarray1_rank4_i1p->none~write_on_scratch_dataarray proc~write_dataarray1_rank4_i2p xml_writer_appended%write_dataarray1_rank4_I2P proc~write_dataarray1_rank4_i2p->none~write_on_scratch_dataarray proc~write_dataarray1_rank4_i4p xml_writer_appended%write_dataarray1_rank4_I4P proc~write_dataarray1_rank4_i4p->none~write_on_scratch_dataarray proc~write_dataarray1_rank4_i8p xml_writer_appended%write_dataarray1_rank4_I8P proc~write_dataarray1_rank4_i8p->none~write_on_scratch_dataarray proc~write_dataarray1_rank4_r4p xml_writer_appended%write_dataarray1_rank4_R4P proc~write_dataarray1_rank4_r4p->none~write_on_scratch_dataarray proc~write_dataarray1_rank4_r8p xml_writer_appended%write_dataarray1_rank4_R8P proc~write_dataarray1_rank4_r8p->none~write_on_scratch_dataarray proc~write_dataarray3_rank1_i1p xml_writer_appended%write_dataarray3_rank1_I1P proc~write_dataarray3_rank1_i1p->none~write_on_scratch_dataarray proc~write_dataarray3_rank1_i2p xml_writer_appended%write_dataarray3_rank1_I2P proc~write_dataarray3_rank1_i2p->none~write_on_scratch_dataarray proc~write_dataarray3_rank1_i4p xml_writer_appended%write_dataarray3_rank1_I4P proc~write_dataarray3_rank1_i4p->none~write_on_scratch_dataarray proc~write_dataarray3_rank1_i8p xml_writer_appended%write_dataarray3_rank1_I8P proc~write_dataarray3_rank1_i8p->none~write_on_scratch_dataarray proc~write_dataarray3_rank1_r4p xml_writer_appended%write_dataarray3_rank1_R4P proc~write_dataarray3_rank1_r4p->none~write_on_scratch_dataarray proc~write_dataarray3_rank1_r8p xml_writer_appended%write_dataarray3_rank1_R8P proc~write_dataarray3_rank1_r8p->none~write_on_scratch_dataarray proc~write_dataarray3_rank3_i1p xml_writer_appended%write_dataarray3_rank3_I1P proc~write_dataarray3_rank3_i1p->none~write_on_scratch_dataarray proc~write_dataarray3_rank3_i2p xml_writer_appended%write_dataarray3_rank3_I2P proc~write_dataarray3_rank3_i2p->none~write_on_scratch_dataarray proc~write_dataarray3_rank3_i4p xml_writer_appended%write_dataarray3_rank3_I4P proc~write_dataarray3_rank3_i4p->none~write_on_scratch_dataarray proc~write_dataarray3_rank3_i8p xml_writer_appended%write_dataarray3_rank3_I8P proc~write_dataarray3_rank3_i8p->none~write_on_scratch_dataarray proc~write_dataarray3_rank3_r4p xml_writer_appended%write_dataarray3_rank3_R4P proc~write_dataarray3_rank3_r4p->none~write_on_scratch_dataarray proc~write_dataarray3_rank3_r8p xml_writer_appended%write_dataarray3_rank3_R8P proc~write_dataarray3_rank3_r8p->none~write_on_scratch_dataarray proc~write_dataarray6_rank1_i1p xml_writer_appended%write_dataarray6_rank1_I1P proc~write_dataarray6_rank1_i1p->none~write_on_scratch_dataarray proc~write_dataarray6_rank1_i2p xml_writer_appended%write_dataarray6_rank1_I2P proc~write_dataarray6_rank1_i2p->none~write_on_scratch_dataarray proc~write_dataarray6_rank1_i4p xml_writer_appended%write_dataarray6_rank1_I4P proc~write_dataarray6_rank1_i4p->none~write_on_scratch_dataarray proc~write_dataarray6_rank1_i8p xml_writer_appended%write_dataarray6_rank1_I8P proc~write_dataarray6_rank1_i8p->none~write_on_scratch_dataarray proc~write_dataarray6_rank1_r4p xml_writer_appended%write_dataarray6_rank1_R4P proc~write_dataarray6_rank1_r4p->none~write_on_scratch_dataarray proc~write_dataarray6_rank1_r8p xml_writer_appended%write_dataarray6_rank1_R8P proc~write_dataarray6_rank1_r8p->none~write_on_scratch_dataarray proc~write_dataarray6_rank3_i1p xml_writer_appended%write_dataarray6_rank3_I1P proc~write_dataarray6_rank3_i1p->none~write_on_scratch_dataarray proc~write_dataarray6_rank3_i2p xml_writer_appended%write_dataarray6_rank3_I2P proc~write_dataarray6_rank3_i2p->none~write_on_scratch_dataarray proc~write_dataarray6_rank3_i4p xml_writer_appended%write_dataarray6_rank3_I4P proc~write_dataarray6_rank3_i4p->none~write_on_scratch_dataarray proc~write_dataarray6_rank3_i8p xml_writer_appended%write_dataarray6_rank3_I8P proc~write_dataarray6_rank3_i8p->none~write_on_scratch_dataarray proc~write_dataarray6_rank3_r4p xml_writer_appended%write_dataarray6_rank3_R4P proc~write_dataarray6_rank3_r4p->none~write_on_scratch_dataarray proc~write_dataarray6_rank3_r8p xml_writer_appended%write_dataarray6_rank3_R8P proc~write_dataarray6_rank3_r8p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank1_i1p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank1_i2p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank1_i4p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank1_i8p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank1_r4p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank1_r8p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank2_i1p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank2_i2p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank2_i4p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank2_i8p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank2_r4p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank2_r8p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank3_i1p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank3_i2p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank3_i4p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank3_i8p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank3_r4p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray3_rank3_r8p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank1_i1p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank1_i2p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank1_i4p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank1_i8p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank1_r4p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank1_r8p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank2_i1p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank2_i2p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank2_i4p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank2_i8p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank2_r4p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank2_r8p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank3_i1p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank3_i2p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank3_i4p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank3_i8p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank3_r4p->none~write_on_scratch_dataarray proc~write_on_scratch_dataarray6_rank3_r8p->none~write_on_scratch_dataarray

Source Code

  function write_on_scratch_dataarray1_rank1(self, x) result(n_byte)
  !< Write a dataarray with 1 components of rank 1.
  class(xml_writer_appended), intent(inout) :: self   !< Writer.
  class(*),                   intent(in)    :: x(1:)  !< Data variable.
  integer(I4P)                              :: n_byte !< Number of bytes
  integer(I4P)                              :: nn     !< Number of elements.

  nn = size(x, dim=1)
  select type(x)
  type is(real(R8P))
    n_byte = nn*BYR8P
    write(unit=self%scratch, iostat=self%error)n_byte, 'R8', nn
    write(unit=self%scratch, iostat=self%error)x
  type is(real(R4P))
    n_byte = nn*BYR4P
    write(unit=self%scratch, iostat=self%error)n_byte, 'R4', nn
    write(unit=self%scratch, iostat=self%error)x
  type is(integer(I8P))
    n_byte = nn*BYI8P
    write(unit=self%scratch, iostat=self%error)n_byte, 'I8', nn
    write(unit=self%scratch, iostat=self%error)x
  type is(integer(I4P))
    n_byte = nn*BYI4P
    write(unit=self%scratch, iostat=self%error)n_byte, 'I4', nn
    write(unit=self%scratch, iostat=self%error)x
  type is(integer(I2P))
    n_byte = nn*BYI2P
    write(unit=self%scratch, iostat=self%error)n_byte, 'I2', nn
    write(unit=self%scratch, iostat=self%error)x
  type is(integer(I1P))
    n_byte = nn*BYI1P
    write(unit=self%scratch, iostat=self%error)n_byte, 'I1', nn
    write(unit=self%scratch, iostat=self%error)x
  endselect
  endfunction write_on_scratch_dataarray1_rank1