write_dataarray_appended Subroutine

private subroutine write_dataarray_appended(self)

Type Bound

xml_writer_appended

Arguments

Type IntentOptional Attributes Name
class(xml_writer_appended), intent(inout) :: self

Calls

proc~~write_dataarray_appended~~CallsGraph proc~write_dataarray_appended xml_writer_appended%write_dataarray_appended interface~encode_binary_dataarray encode_binary_dataarray proc~write_dataarray_appended->interface~encode_binary_dataarray interface~str str proc~write_dataarray_appended->interface~str proc~chars string%chars proc~write_dataarray_appended->proc~chars proc~write_end_tag xml_writer_abstract%write_end_tag proc~write_dataarray_appended->proc~write_end_tag proc~write_start_tag xml_writer_abstract%write_start_tag proc~write_dataarray_appended->proc~write_start_tag proc~encode_binary_dataarray1_rank1_i1p encode_binary_dataarray1_rank1_I1P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank1_i1p proc~encode_binary_dataarray1_rank1_i2p encode_binary_dataarray1_rank1_I2P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank1_i2p proc~encode_binary_dataarray1_rank1_i4p encode_binary_dataarray1_rank1_I4P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank1_i4p proc~encode_binary_dataarray1_rank1_i8p encode_binary_dataarray1_rank1_I8P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank1_i8p proc~encode_binary_dataarray1_rank1_r4p encode_binary_dataarray1_rank1_R4P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank1_r4p proc~encode_binary_dataarray1_rank1_r8p encode_binary_dataarray1_rank1_R8P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank1_r8p proc~encode_binary_dataarray1_rank2_i1p encode_binary_dataarray1_rank2_I1P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank2_i1p proc~encode_binary_dataarray1_rank2_i2p encode_binary_dataarray1_rank2_I2P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank2_i2p proc~encode_binary_dataarray1_rank2_i4p encode_binary_dataarray1_rank2_I4P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank2_i4p proc~encode_binary_dataarray1_rank2_i8p encode_binary_dataarray1_rank2_I8P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank2_i8p proc~encode_binary_dataarray1_rank2_r4p encode_binary_dataarray1_rank2_R4P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank2_r4p proc~encode_binary_dataarray1_rank2_r8p encode_binary_dataarray1_rank2_R8P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank2_r8p proc~encode_binary_dataarray1_rank3_i1p encode_binary_dataarray1_rank3_I1P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank3_i1p proc~encode_binary_dataarray1_rank3_i2p encode_binary_dataarray1_rank3_I2P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank3_i2p proc~encode_binary_dataarray1_rank3_i4p encode_binary_dataarray1_rank3_I4P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank3_i4p proc~encode_binary_dataarray1_rank3_i8p encode_binary_dataarray1_rank3_I8P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank3_i8p proc~encode_binary_dataarray1_rank3_r4p encode_binary_dataarray1_rank3_R4P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank3_r4p proc~encode_binary_dataarray1_rank3_r8p encode_binary_dataarray1_rank3_R8P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank3_r8p proc~encode_binary_dataarray1_rank4_i1p encode_binary_dataarray1_rank4_I1P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank4_i1p proc~encode_binary_dataarray1_rank4_i2p encode_binary_dataarray1_rank4_I2P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank4_i2p proc~encode_binary_dataarray1_rank4_i4p encode_binary_dataarray1_rank4_I4P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank4_i4p proc~encode_binary_dataarray1_rank4_i8p encode_binary_dataarray1_rank4_I8P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank4_i8p proc~encode_binary_dataarray1_rank4_r4p encode_binary_dataarray1_rank4_R4P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank4_r4p proc~encode_binary_dataarray1_rank4_r8p encode_binary_dataarray1_rank4_R8P interface~encode_binary_dataarray->proc~encode_binary_dataarray1_rank4_r8p proc~encode_binary_dataarray3_rank1_i1p encode_binary_dataarray3_rank1_I1P interface~encode_binary_dataarray->proc~encode_binary_dataarray3_rank1_i1p proc~encode_binary_dataarray3_rank1_i2p encode_binary_dataarray3_rank1_I2P interface~encode_binary_dataarray->proc~encode_binary_dataarray3_rank1_i2p proc~encode_binary_dataarray3_rank1_i4p encode_binary_dataarray3_rank1_I4P interface~encode_binary_dataarray->proc~encode_binary_dataarray3_rank1_i4p proc~encode_binary_dataarray3_rank1_i8p encode_binary_dataarray3_rank1_I8P interface~encode_binary_dataarray->proc~encode_binary_dataarray3_rank1_i8p proc~encode_binary_dataarray3_rank1_r4p encode_binary_dataarray3_rank1_R4P interface~encode_binary_dataarray->proc~encode_binary_dataarray3_rank1_r4p proc~encode_binary_dataarray3_rank1_r8p encode_binary_dataarray3_rank1_R8P interface~encode_binary_dataarray->proc~encode_binary_dataarray3_rank1_r8p proc~encode_binary_dataarray3_rank3_i1p encode_binary_dataarray3_rank3_I1P interface~encode_binary_dataarray->proc~encode_binary_dataarray3_rank3_i1p proc~encode_binary_dataarray3_rank3_i2p encode_binary_dataarray3_rank3_I2P interface~encode_binary_dataarray->proc~encode_binary_dataarray3_rank3_i2p proc~encode_binary_dataarray3_rank3_i4p encode_binary_dataarray3_rank3_I4P interface~encode_binary_dataarray->proc~encode_binary_dataarray3_rank3_i4p proc~encode_binary_dataarray3_rank3_i8p encode_binary_dataarray3_rank3_I8P interface~encode_binary_dataarray->proc~encode_binary_dataarray3_rank3_i8p proc~encode_binary_dataarray3_rank3_r4p encode_binary_dataarray3_rank3_R4P interface~encode_binary_dataarray->proc~encode_binary_dataarray3_rank3_r4p proc~encode_binary_dataarray3_rank3_r8p encode_binary_dataarray3_rank3_R8P interface~encode_binary_dataarray->proc~encode_binary_dataarray3_rank3_r8p proc~encode_binary_dataarray6_rank1_i1p encode_binary_dataarray6_rank1_I1P interface~encode_binary_dataarray->proc~encode_binary_dataarray6_rank1_i1p proc~encode_binary_dataarray6_rank1_i2p encode_binary_dataarray6_rank1_I2P interface~encode_binary_dataarray->proc~encode_binary_dataarray6_rank1_i2p proc~encode_binary_dataarray6_rank1_i4p encode_binary_dataarray6_rank1_I4P interface~encode_binary_dataarray->proc~encode_binary_dataarray6_rank1_i4p proc~encode_binary_dataarray6_rank1_i8p encode_binary_dataarray6_rank1_I8P interface~encode_binary_dataarray->proc~encode_binary_dataarray6_rank1_i8p proc~encode_binary_dataarray6_rank1_r4p encode_binary_dataarray6_rank1_R4P interface~encode_binary_dataarray->proc~encode_binary_dataarray6_rank1_r4p proc~encode_binary_dataarray6_rank1_r8p encode_binary_dataarray6_rank1_R8P interface~encode_binary_dataarray->proc~encode_binary_dataarray6_rank1_r8p proc~encode_binary_dataarray6_rank3_i1p encode_binary_dataarray6_rank3_I1P interface~encode_binary_dataarray->proc~encode_binary_dataarray6_rank3_i1p proc~encode_binary_dataarray6_rank3_i2p encode_binary_dataarray6_rank3_I2P interface~encode_binary_dataarray->proc~encode_binary_dataarray6_rank3_i2p proc~encode_binary_dataarray6_rank3_i4p encode_binary_dataarray6_rank3_I4P interface~encode_binary_dataarray->proc~encode_binary_dataarray6_rank3_i4p proc~encode_binary_dataarray6_rank3_i8p encode_binary_dataarray6_rank3_I8P interface~encode_binary_dataarray->proc~encode_binary_dataarray6_rank3_i8p proc~encode_binary_dataarray6_rank3_r4p encode_binary_dataarray6_rank3_R4P interface~encode_binary_dataarray->proc~encode_binary_dataarray6_rank3_r4p proc~encode_binary_dataarray6_rank3_r8p encode_binary_dataarray6_rank3_R8P interface~encode_binary_dataarray->proc~encode_binary_dataarray6_rank3_r8p proc~str_a_i1p str_a_I1P interface~str->proc~str_a_i1p proc~str_a_i2p str_a_I2P interface~str->proc~str_a_i2p proc~str_a_i4p str_a_I4P interface~str->proc~str_a_i4p proc~str_a_i8p str_a_I8P interface~str->proc~str_a_i8p proc~str_a_r4p str_a_R4P interface~str->proc~str_a_r4p proc~str_a_r8p str_a_R8P interface~str->proc~str_a_r8p proc~str_bol str_bol interface~str->proc~str_bol proc~str_i1p str_I1P interface~str->proc~str_i1p proc~str_i2p str_I2P interface~str->proc~str_i2p proc~str_i4p str_I4P interface~str->proc~str_i4p proc~str_i8p str_I8P interface~str->proc~str_i8p proc~str_r4p str_R4P interface~str->proc~str_r4p proc~str_r8p str_R8P interface~str->proc~str_r8p proc~strf_i1p strf_I1P interface~str->proc~strf_i1p proc~strf_i2p strf_I2P interface~str->proc~strf_i2p proc~strf_i4p strf_I4P interface~str->proc~strf_i4p proc~strf_i8p strf_I8P interface~str->proc~strf_i8p proc~strf_r4p strf_R4P interface~str->proc~strf_r4p proc~strf_r8p strf_R8P interface~str->proc~strf_r8p proc~stringify xml_tag%stringify proc~write_end_tag->proc~stringify proc~write_start_tag->proc~stringify interface~b64_encode b64_encode proc~encode_binary_dataarray1_rank1_i1p->interface~b64_encode interface~pack_data pack_data proc~encode_binary_dataarray1_rank1_i1p->interface~pack_data proc~encode_binary_dataarray1_rank1_i2p->interface~b64_encode proc~encode_binary_dataarray1_rank1_i2p->interface~pack_data proc~encode_binary_dataarray1_rank1_i4p->interface~b64_encode proc~encode_binary_dataarray1_rank1_i8p->interface~b64_encode proc~encode_binary_dataarray1_rank1_i8p->interface~pack_data proc~encode_binary_dataarray1_rank1_r4p->interface~b64_encode proc~encode_binary_dataarray1_rank1_r4p->interface~pack_data proc~encode_binary_dataarray1_rank1_r8p->interface~b64_encode proc~encode_binary_dataarray1_rank1_r8p->interface~pack_data proc~encode_binary_dataarray1_rank2_i1p->interface~b64_encode proc~encode_binary_dataarray1_rank2_i1p->interface~pack_data proc~encode_binary_dataarray1_rank2_i2p->interface~b64_encode proc~encode_binary_dataarray1_rank2_i2p->interface~pack_data proc~encode_binary_dataarray1_rank2_i4p->interface~b64_encode proc~encode_binary_dataarray1_rank2_i8p->interface~b64_encode proc~encode_binary_dataarray1_rank2_i8p->interface~pack_data proc~encode_binary_dataarray1_rank2_r4p->interface~b64_encode proc~encode_binary_dataarray1_rank2_r4p->interface~pack_data proc~encode_binary_dataarray1_rank2_r8p->interface~b64_encode proc~encode_binary_dataarray1_rank2_r8p->interface~pack_data proc~encode_binary_dataarray1_rank3_i1p->interface~b64_encode proc~encode_binary_dataarray1_rank3_i1p->interface~pack_data proc~encode_binary_dataarray1_rank3_i2p->interface~b64_encode proc~encode_binary_dataarray1_rank3_i2p->interface~pack_data proc~encode_binary_dataarray1_rank3_i4p->interface~b64_encode proc~encode_binary_dataarray1_rank3_i8p->interface~b64_encode proc~encode_binary_dataarray1_rank3_i8p->interface~pack_data proc~encode_binary_dataarray1_rank3_r4p->interface~b64_encode proc~encode_binary_dataarray1_rank3_r4p->interface~pack_data proc~encode_binary_dataarray1_rank3_r8p->interface~b64_encode proc~encode_binary_dataarray1_rank3_r8p->interface~pack_data proc~encode_binary_dataarray1_rank4_i1p->interface~b64_encode proc~encode_binary_dataarray1_rank4_i1p->interface~pack_data proc~encode_binary_dataarray1_rank4_i2p->interface~b64_encode proc~encode_binary_dataarray1_rank4_i2p->interface~pack_data proc~encode_binary_dataarray1_rank4_i4p->interface~b64_encode proc~encode_binary_dataarray1_rank4_i8p->interface~b64_encode proc~encode_binary_dataarray1_rank4_i8p->interface~pack_data proc~encode_binary_dataarray1_rank4_r4p->interface~b64_encode proc~encode_binary_dataarray1_rank4_r4p->interface~pack_data proc~encode_binary_dataarray1_rank4_r8p->interface~b64_encode proc~encode_binary_dataarray1_rank4_r8p->interface~pack_data proc~encode_binary_dataarray3_rank1_i1p->interface~b64_encode proc~encode_binary_dataarray3_rank1_i1p->interface~pack_data proc~encode_binary_dataarray3_rank1_i2p->interface~b64_encode proc~encode_binary_dataarray3_rank1_i2p->interface~pack_data proc~encode_binary_dataarray3_rank1_i4p->interface~b64_encode proc~encode_binary_dataarray3_rank1_i8p->interface~b64_encode proc~encode_binary_dataarray3_rank1_i8p->interface~pack_data proc~encode_binary_dataarray3_rank1_r4p->interface~b64_encode proc~encode_binary_dataarray3_rank1_r4p->interface~pack_data proc~encode_binary_dataarray3_rank1_r8p->interface~b64_encode proc~encode_binary_dataarray3_rank1_r8p->interface~pack_data proc~encode_binary_dataarray3_rank3_i1p->interface~b64_encode proc~encode_binary_dataarray3_rank3_i1p->interface~pack_data proc~encode_binary_dataarray3_rank3_i2p->interface~b64_encode proc~encode_binary_dataarray3_rank3_i2p->interface~pack_data proc~encode_binary_dataarray3_rank3_i4p->interface~b64_encode proc~encode_binary_dataarray3_rank3_i8p->interface~b64_encode proc~encode_binary_dataarray3_rank3_i8p->interface~pack_data proc~encode_binary_dataarray3_rank3_r4p->interface~b64_encode proc~encode_binary_dataarray3_rank3_r4p->interface~pack_data proc~encode_binary_dataarray3_rank3_r8p->interface~b64_encode proc~encode_binary_dataarray3_rank3_r8p->interface~pack_data proc~encode_binary_dataarray6_rank1_i1p->interface~b64_encode proc~encode_binary_dataarray6_rank1_i1p->interface~pack_data proc~encode_binary_dataarray6_rank1_i2p->interface~b64_encode proc~encode_binary_dataarray6_rank1_i2p->interface~pack_data proc~encode_binary_dataarray6_rank1_i4p->interface~b64_encode proc~encode_binary_dataarray6_rank1_i8p->interface~b64_encode proc~encode_binary_dataarray6_rank1_i8p->interface~pack_data proc~encode_binary_dataarray6_rank1_r4p->interface~b64_encode proc~encode_binary_dataarray6_rank1_r4p->interface~pack_data proc~encode_binary_dataarray6_rank1_r8p->interface~b64_encode proc~encode_binary_dataarray6_rank1_r8p->interface~pack_data proc~encode_binary_dataarray6_rank3_i1p->interface~b64_encode proc~encode_binary_dataarray6_rank3_i1p->interface~pack_data proc~encode_binary_dataarray6_rank3_i2p->interface~b64_encode proc~encode_binary_dataarray6_rank3_i2p->interface~pack_data proc~encode_binary_dataarray6_rank3_i4p->interface~b64_encode proc~encode_binary_dataarray6_rank3_i8p->interface~b64_encode proc~encode_binary_dataarray6_rank3_i8p->interface~pack_data proc~encode_binary_dataarray6_rank3_r4p->interface~b64_encode proc~encode_binary_dataarray6_rank3_r4p->interface~pack_data proc~encode_binary_dataarray6_rank3_r8p->interface~b64_encode proc~encode_binary_dataarray6_rank3_r8p->interface~pack_data proc~str_a_i1p->proc~str_i1p proc~str_a_i2p->proc~str_i2p proc~str_a_i4p->proc~str_i4p proc~str_a_i8p->proc~str_i8p proc~str_a_r4p->proc~str_r4p proc~str_a_r8p->proc~str_r8p proc~compact_real_string compact_real_string proc~str_r4p->proc~compact_real_string proc~str_r8p->proc~compact_real_string proc~stringify->proc~chars proc~end_tag xml_tag%end_tag proc~stringify->proc~end_tag proc~is_allocated string%is_allocated proc~stringify->proc~is_allocated proc~self_closing_tag xml_tag%self_closing_tag proc~stringify->proc~self_closing_tag proc~start_tag xml_tag%start_tag proc~stringify->proc~start_tag proc~b64_encode_i1 b64_encode_I1 interface~b64_encode->proc~b64_encode_i1 proc~b64_encode_i1_a b64_encode_I1_a interface~b64_encode->proc~b64_encode_i1_a proc~b64_encode_i2 b64_encode_I2 interface~b64_encode->proc~b64_encode_i2 proc~b64_encode_i2_a b64_encode_I2_a interface~b64_encode->proc~b64_encode_i2_a proc~b64_encode_i4 b64_encode_I4 interface~b64_encode->proc~b64_encode_i4 proc~b64_encode_i4_a b64_encode_I4_a interface~b64_encode->proc~b64_encode_i4_a proc~b64_encode_i8 b64_encode_I8 interface~b64_encode->proc~b64_encode_i8 proc~b64_encode_i8_a b64_encode_I8_a interface~b64_encode->proc~b64_encode_i8_a proc~b64_encode_r4 b64_encode_R4 interface~b64_encode->proc~b64_encode_r4 proc~b64_encode_r4_a b64_encode_R4_a interface~b64_encode->proc~b64_encode_r4_a proc~b64_encode_r8 b64_encode_R8 interface~b64_encode->proc~b64_encode_r8 proc~b64_encode_r8_a b64_encode_R8_a interface~b64_encode->proc~b64_encode_r8_a proc~b64_encode_string b64_encode_string interface~b64_encode->proc~b64_encode_string proc~b64_encode_string_a b64_encode_string_a interface~b64_encode->proc~b64_encode_string_a proc~pack_data_i1_i2 pack_data_I1_I2 interface~pack_data->proc~pack_data_i1_i2 proc~pack_data_i1_i4 pack_data_I1_I4 interface~pack_data->proc~pack_data_i1_i4 proc~pack_data_i1_i8 pack_data_I1_I8 interface~pack_data->proc~pack_data_i1_i8 proc~pack_data_i1_r4 pack_data_I1_R4 interface~pack_data->proc~pack_data_i1_r4 proc~pack_data_i1_r8 pack_data_I1_R8 interface~pack_data->proc~pack_data_i1_r8 proc~pack_data_i2_i1 pack_data_I2_I1 interface~pack_data->proc~pack_data_i2_i1 proc~pack_data_i2_i4 pack_data_I2_I4 interface~pack_data->proc~pack_data_i2_i4 proc~pack_data_i2_i8 pack_data_I2_I8 interface~pack_data->proc~pack_data_i2_i8 proc~pack_data_i2_r4 pack_data_I2_R4 interface~pack_data->proc~pack_data_i2_r4 proc~pack_data_i2_r8 pack_data_I2_R8 interface~pack_data->proc~pack_data_i2_r8 proc~pack_data_i4_i1 pack_data_I4_I1 interface~pack_data->proc~pack_data_i4_i1 proc~pack_data_i4_i2 pack_data_I4_I2 interface~pack_data->proc~pack_data_i4_i2 proc~pack_data_i4_i8 pack_data_I4_I8 interface~pack_data->proc~pack_data_i4_i8 proc~pack_data_i4_r4 pack_data_I4_R4 interface~pack_data->proc~pack_data_i4_r4 proc~pack_data_i4_r8 pack_data_I4_R8 interface~pack_data->proc~pack_data_i4_r8 proc~pack_data_i8_i1 pack_data_I8_I1 interface~pack_data->proc~pack_data_i8_i1 proc~pack_data_i8_i2 pack_data_I8_I2 interface~pack_data->proc~pack_data_i8_i2 proc~pack_data_i8_i4 pack_data_I8_I4 interface~pack_data->proc~pack_data_i8_i4 proc~pack_data_i8_r4 pack_data_I8_R4 interface~pack_data->proc~pack_data_i8_r4 proc~pack_data_i8_r8 pack_data_I8_R8 interface~pack_data->proc~pack_data_i8_r8 proc~pack_data_r4_i1 pack_data_R4_I1 interface~pack_data->proc~pack_data_r4_i1 proc~pack_data_r4_i2 pack_data_R4_I2 interface~pack_data->proc~pack_data_r4_i2 proc~pack_data_r4_i4 pack_data_R4_I4 interface~pack_data->proc~pack_data_r4_i4 proc~pack_data_r4_i8 pack_data_R4_I8 interface~pack_data->proc~pack_data_r4_i8 proc~pack_data_r4_r8 pack_data_R4_R8 interface~pack_data->proc~pack_data_r4_r8 proc~pack_data_r8_i1 pack_data_R8_I1 interface~pack_data->proc~pack_data_r8_i1 proc~pack_data_r8_i2 pack_data_R8_I2 interface~pack_data->proc~pack_data_r8_i2 proc~pack_data_r8_i4 pack_data_R8_I4 interface~pack_data->proc~pack_data_r8_i4 proc~pack_data_r8_i8 pack_data_R8_I8 interface~pack_data->proc~pack_data_r8_i8 proc~pack_data_r8_r4 pack_data_R8_R4 interface~pack_data->proc~pack_data_r8_r4 proc~attributes xml_tag%attributes proc~self_closing_tag->proc~attributes proc~start_tag->proc~attributes proc~encode_bits encode_bits proc~b64_encode_i1->proc~encode_bits proc~b64_encode_i1_a->proc~encode_bits proc~b64_encode_i2->proc~encode_bits proc~b64_encode_i2_a->proc~encode_bits proc~b64_encode_i4->proc~encode_bits proc~b64_encode_i4_a->proc~encode_bits proc~b64_encode_i8->proc~encode_bits proc~b64_encode_i8_a->proc~encode_bits proc~b64_encode_r4->proc~encode_bits proc~b64_encode_r4_a->proc~encode_bits proc~b64_encode_r8->proc~encode_bits proc~b64_encode_r8_a->proc~encode_bits interface~byte_size byte_size proc~b64_encode_string->interface~byte_size proc~b64_encode_string->proc~encode_bits proc~b64_encode_string_a->interface~byte_size proc~b64_encode_string_a->proc~encode_bits proc~byte_size_chr byte_size_chr interface~byte_size->proc~byte_size_chr proc~byte_size_i1p byte_size_I1P interface~byte_size->proc~byte_size_i1p proc~byte_size_i2p byte_size_I2P interface~byte_size->proc~byte_size_i2p proc~byte_size_i4p byte_size_I4P interface~byte_size->proc~byte_size_i4p proc~byte_size_i8p byte_size_I8P interface~byte_size->proc~byte_size_i8p proc~byte_size_r4p byte_size_R4P interface~byte_size->proc~byte_size_r4p proc~byte_size_r8p byte_size_R8P interface~byte_size->proc~byte_size_r8p

Called by

proc~~write_dataarray_appended~~CalledByGraph proc~write_dataarray_appended xml_writer_appended%write_dataarray_appended proc~finalize~2 xml_writer_appended%finalize proc~finalize~2->proc~write_dataarray_appended

Source Code

  subroutine write_dataarray_appended(self)
  !< Do nothing, ascii data cannot be appended.
  class(xml_writer_appended), intent(inout) :: self              !< Writer.
  type(string)                              :: tag_attributes    !< Tag attributes.
  integer(I4P)                              :: n_byte            !< Bytes count.
  character(len=2)                          :: dataarray_type    !< Dataarray type = R8,R4,I8,I4,I2,I1.
  integer(I4P)                              :: dataarray_dim     !< Dataarray dimension.
  real(R8P),    allocatable                 :: dataarray_R8P(:)  !< Dataarray buffer of R8P.
  real(R4P),    allocatable                 :: dataarray_R4P(:)  !< Dataarray buffer of R4P.
  integer(I8P), allocatable                 :: dataarray_I8P(:)  !< Dataarray buffer of I8P.
  integer(I4P), allocatable                 :: dataarray_I4P(:)  !< Dataarray buffer of I4P.
  integer(I2P), allocatable                 :: dataarray_I2P(:)  !< Dataarray buffer of I2P.
  integer(I1P), allocatable                 :: dataarray_I1P(:)  !< Dataarray buffer of I1P.

  call self%write_start_tag(name='AppendedData', attributes='encoding="'//self%encoding%chars()//'"')
  write(unit=self%xml, iostat=self%error)'_'
  endfile(unit=self%scratch, iostat=self%error)
  rewind(unit=self%scratch, iostat=self%error)
  do
    call read_dataarray_from_scratch
    if (self%error==0) call write_dataarray_on_xml
    if (is_iostat_end(self%error)) exit
  enddo
  close(unit=self%scratch, iostat=self%error)
  write(unit=self%xml, iostat=self%error)end_rec
  call self%write_end_tag(name='AppendedData')
  contains
    subroutine read_dataarray_from_scratch
    !< Read the current dataaray from scratch file.

    read(unit=self%scratch, iostat=self%error, end=10)n_byte, dataarray_type, dataarray_dim
    select case(dataarray_type)
    case('R8')
      if (allocated(dataarray_R8P)) deallocate(dataarray_R8P) ; allocate(dataarray_R8P(1:dataarray_dim))
      read(unit=self%scratch, iostat=self%error)dataarray_R8P
    case('R4')
      if (allocated(dataarray_R4P)) deallocate(dataarray_R4P) ; allocate(dataarray_R4P(1:dataarray_dim))
      read(unit=self%scratch, iostat=self%error)dataarray_R4P
    case('I8')
      if (allocated(dataarray_I8P)) deallocate(dataarray_I8P) ; allocate(dataarray_I8P(1:dataarray_dim))
      read(unit=self%scratch, iostat=self%error)dataarray_I8P
    case('I4')
      if (allocated(dataarray_I4P)) deallocate(dataarray_I4P) ; allocate(dataarray_I4P(1:dataarray_dim))
      read(unit=self%scratch, iostat=self%error)dataarray_I4P
    case('I2')
      if (allocated(dataarray_I2P)) deallocate(dataarray_I2P) ; allocate(dataarray_I2P(1:dataarray_dim))
      read(unit=self%scratch, iostat=self%error)dataarray_I2P
    case('I1')
      if (allocated(dataarray_I1P)) deallocate(dataarray_I1P) ; allocate(dataarray_I1P(1:dataarray_dim))
      read(unit=self%scratch, iostat=self%error)dataarray_I1P
    case default
      self%error = 1
      write (stderr,'(A)')' error: bad dataarray_type = '//dataarray_type
      write (stderr,'(A)')' bytes = '//trim(str(n=n_byte))
      write (stderr,'(A)')' dataarray dimension = '//trim(str(n=dataarray_dim))
    endselect
    10 return
    endsubroutine read_dataarray_from_scratch

    subroutine write_dataarray_on_xml
    !< Write the current dataaray on xml file.
    character(len=:), allocatable  :: code !< Dataarray encoded with Base64 codec.

    if (self%encoding=='raw') then
      select case(dataarray_type)
      case('R8')
        write(unit=self%xml, iostat=self%error)n_byte, dataarray_R8P
        deallocate(dataarray_R8P)
      case('R4')
        write(unit=self%xml, iostat=self%error)n_byte, dataarray_R4P
        deallocate(dataarray_R4P)
      case('I8')
        write(unit=self%xml, iostat=self%error)n_byte, dataarray_I8P
        deallocate(dataarray_I8P)
      case('I4')
        write(unit=self%xml, iostat=self%error)n_byte, dataarray_I4P
        deallocate(dataarray_I4P)
      case('I2')
        write(unit=self%xml, iostat=self%error)n_byte, dataarray_I2P
        deallocate(dataarray_I2P)
      case('I1')
        write(unit=self%xml, iostat=self%error)n_byte, dataarray_I1P
        deallocate(dataarray_I1P)
      endselect
    else
      select case(dataarray_type)
      case('R8')
        code = encode_binary_dataarray(x=dataarray_R8P)
        write(unit=self%xml, iostat=self%error)code
      case('R4')
        code = encode_binary_dataarray(x=dataarray_R4P)
        write(unit=self%xml, iostat=self%error)code
      case('I8')
        code = encode_binary_dataarray(x=dataarray_I8P)
        write(unit=self%xml, iostat=self%error)code
      case('I4')
        code = encode_binary_dataarray(x=dataarray_I4P)
        write(unit=self%xml, iostat=self%error)code
      case('I2')
        code = encode_binary_dataarray(x=dataarray_I2P)
        write(unit=self%xml, iostat=self%error)code
      case('I1')
        code = encode_binary_dataarray(x=dataarray_I1P)
        write(unit=self%xml, iostat=self%error)code
      endselect
    endif
    endsubroutine write_dataarray_on_xml
  endsubroutine write_dataarray_appended