vtk_fortran_vtk_file_xml_writer_ascii_local Module

  1. vtk_fortran_vtk_file_xml_writer_ascii_local.f90
  2. vtk_fortran_vtk_file_xml_writer_ascii_local

Uses

  • module~~vtk_fortran_vtk_file_xml_writer_ascii_local~~UsesGraph module~vtk_fortran_vtk_file_xml_writer_ascii_local vtk_fortran_vtk_file_xml_writer_ascii_local module~penf~2 penf module~vtk_fortran_vtk_file_xml_writer_ascii_local->module~penf~2 module~vtk_fortran_dataarray_encoder vtk_fortran_dataarray_encoder module~vtk_fortran_vtk_file_xml_writer_ascii_local->module~vtk_fortran_dataarray_encoder module~vtk_fortran_vtk_file_xml_writer_abstract vtk_fortran_vtk_file_xml_writer_abstract module~vtk_fortran_vtk_file_xml_writer_ascii_local->module~vtk_fortran_vtk_file_xml_writer_abstract module~stringifor~2 stringifor module~vtk_fortran_vtk_file_xml_writer_ascii_local->module~stringifor~2 module~penf_b_size penf_b_size module~penf~2->module~penf_b_size module~penf_stringify~3 penf_stringify module~penf~2->module~penf_stringify~3 module~penf_global_parameters_variables~2 penf_global_parameters_variables module~penf~2->module~penf_global_parameters_variables~2 module~vtk_fortran_dataarray_encoder->module~penf~2 module~befor64~4 befor64 module~vtk_fortran_dataarray_encoder->module~befor64~4 module~vtk_fortran_vtk_file_xml_writer_abstract->module~penf~2 module~vtk_fortran_vtk_file_xml_writer_abstract->module~stringifor~2 module~foxy foxy module~vtk_fortran_vtk_file_xml_writer_abstract->module~foxy module~vtk_fortran_parameters vtk_fortran_parameters module~vtk_fortran_vtk_file_xml_writer_abstract->module~vtk_fortran_parameters module~stringifor~2->module~penf~2 module~stringifor_string_t stringifor_string_t module~stringifor~2->module~stringifor_string_t module~penf_b_size->module~penf_global_parameters_variables~2 module~penf_stringify~3->module~penf_b_size module~penf_stringify~3->module~penf_global_parameters_variables~2 iso_fortran_env iso_fortran_env module~penf_stringify~3->iso_fortran_env module~befor64~4->module~penf~2 module~befor64_pack_data_m~4 befor64_pack_data_m module~befor64~4->module~befor64_pack_data_m~4 module~foxy->module~penf~2 module~foxy_xml_tag foxy_xml_tag module~foxy->module~foxy_xml_tag module~foxy_xml_file foxy_xml_file module~foxy->module~foxy_xml_file module~stringifor_string_t->module~penf~2 module~stringifor_string_t->module~befor64~4 module~stringifor_string_t->iso_fortran_env module~face face module~stringifor_string_t->module~face module~vtk_fortran_parameters->module~penf~2 module~vtk_fortran_parameters->iso_fortran_env module~foxy_xml_tag->module~penf~2 module~foxy_xml_tag->module~stringifor~2 module~face->iso_fortran_env module~befor64_pack_data_m~4->module~penf~2 module~foxy_xml_file->module~penf~2 module~foxy_xml_file->module~foxy_xml_tag

Used by

  • module~~vtk_fortran_vtk_file_xml_writer_ascii_local~~UsedByGraph module~vtk_fortran_vtk_file_xml_writer_ascii_local vtk_fortran_vtk_file_xml_writer_ascii_local module~vtk_fortran_vtk_file vtk_fortran_vtk_file module~vtk_fortran_vtk_file->module~vtk_fortran_vtk_file_xml_writer_ascii_local module~vtk_fortran_pvtk_file vtk_fortran_pvtk_file module~vtk_fortran_pvtk_file->module~vtk_fortran_vtk_file_xml_writer_ascii_local module~vtk_fortran_vtm_file vtk_fortran_vtm_file module~vtk_fortran_vtm_file->module~vtk_fortran_vtk_file_xml_writer_ascii_local module~vtk_fortran vtk_fortran module~vtk_fortran->module~vtk_fortran_vtk_file module~vtk_fortran->module~vtk_fortran_pvtk_file module~vtk_fortran->module~vtk_fortran_vtm_file program~vtk_fortran_use_module_basic vtk_fortran_use_module_basic program~vtk_fortran_use_module_basic->module~vtk_fortran program~vtk_fortran_write_pvts vtk_fortran_write_pvts program~vtk_fortran_write_pvts->module~vtk_fortran program~vtk_fortran_write_vtu~2 vtk_fortran_write_vtu program~vtk_fortran_write_vtu~2->module~vtk_fortran program~vtk_fortran_write_vtu vtk_fortran_write_vtu program~vtk_fortran_write_vtu->module~vtk_fortran program~vtk_fortran_write_volatile vtk_fortran_write_volatile program~vtk_fortran_write_volatile->module~vtk_fortran program~vtk_fortran_write_vtr vtk_fortran_write_vtr program~vtk_fortran_write_vtr->module~vtk_fortran program~vtk_fortran_write_vtm vtk_fortran_write_vtm program~vtk_fortran_write_vtm->module~vtk_fortran program~vtk_fortran_write_vts vtk_fortran_write_vts program~vtk_fortran_write_vts->module~vtk_fortran

Contents

Derived Types

Functions

Subroutines


Derived Types

type, public, extends(xml_writer_abstract) :: xml_writer_ascii_local

Components

TypeVisibilityAttributesNameInitial
type(string), public :: format_ch
type(string), public :: topology
integer(kind=I4P), public :: indent =0_I4P
integer(kind=I8P), public :: ioffset =0_I8P
integer(kind=I4P), public :: xml =0_I4P
integer(kind=I4P), public :: vtm_block(1:2) =[-1_I4P, -1_I4P]
integer(kind=I4P), public :: error =0_I4P
type(xml_tag), public :: tag
logical, public :: is_volatile =.false.
type(string), public :: xml_volatile

Type-Bound Procedures

procedure, public, pass(self) :: close_xml_file
procedure, public, pass(self) :: open_xml_file
procedure, public, pass(self) :: free
procedure, public, pass(self) :: get_xml_volatile
procedure, public, pass(self) :: write_connectivity
procedure, public, pass(self) :: write_dataarray_location_tag
procedure, public, pass(self) :: write_dataarray_tag
procedure, public, pass(self) :: write_dataarray_tag_appended
procedure, public, pass(self) :: write_end_tag
procedure, public, pass(self) :: write_header_tag
procedure, public, pass(self) :: write_parallel_open_block
procedure, public, pass(self) :: write_parallel_close_block
procedure, public, pass(self) :: write_parallel_dataarray
procedure, public, pass(self) :: write_parallel_geo
procedure, public, pass(self) :: write_self_closing_tag
procedure, public, pass(self) :: write_start_tag
procedure, public, pass(self) :: write_tag
procedure, public, pass(self) :: write_topology_tag
generic, public :: write_dataarray => write_dataarray1_rank1_R8P, write_dataarray1_rank1_R4P, write_dataarray1_rank1_I8P, write_dataarray1_rank1_I4P, write_dataarray1_rank1_I2P, write_dataarray1_rank1_I1P, write_dataarray1_rank2_R8P, write_dataarray1_rank2_R4P, write_dataarray1_rank2_I8P, write_dataarray1_rank2_I4P, write_dataarray1_rank2_I2P, write_dataarray1_rank2_I1P, write_dataarray1_rank3_R8P, write_dataarray1_rank3_R4P, write_dataarray1_rank3_I8P, write_dataarray1_rank3_I4P, write_dataarray1_rank3_I2P, write_dataarray1_rank3_I1P, write_dataarray1_rank4_R8P, write_dataarray1_rank4_R4P, write_dataarray1_rank4_I8P, write_dataarray1_rank4_I4P, write_dataarray1_rank4_I2P, write_dataarray1_rank4_I1P, write_dataarray3_rank1_R8P, write_dataarray3_rank1_R4P, write_dataarray3_rank1_I8P, write_dataarray3_rank1_I4P, write_dataarray3_rank1_I2P, write_dataarray3_rank1_I1P, write_dataarray3_rank3_R8P, write_dataarray3_rank3_R4P, write_dataarray3_rank3_I8P, write_dataarray3_rank3_I4P, write_dataarray3_rank3_I2P, write_dataarray3_rank3_I1P, write_dataarray6_rank1_R8P, write_dataarray6_rank1_R4P, write_dataarray6_rank1_I8P, write_dataarray6_rank1_I4P, write_dataarray6_rank1_I2P, write_dataarray6_rank1_I1P, write_dataarray6_rank3_R8P, write_dataarray6_rank3_R4P, write_dataarray6_rank3_I8P, write_dataarray6_rank3_I4P, write_dataarray6_rank3_I2P, write_dataarray6_rank3_I1P, write_dataarray_location_tag
generic, public :: write_fielddata => write_fielddata1_rank0, write_fielddata_tag
generic, public :: write_geo => write_geo_strg_data1_rank2_R8P, write_geo_strg_data1_rank2_R4P, write_geo_strg_data1_rank4_R8P, write_geo_strg_data1_rank4_R4P, write_geo_strg_data3_rank1_R8P, write_geo_strg_data3_rank1_R4P, write_geo_strg_data3_rank3_R8P, write_geo_strg_data3_rank3_R4P, write_geo_rect_data3_rank1_R8P, write_geo_rect_data3_rank1_R4P, write_geo_unst_data1_rank2_R8P, write_geo_unst_data1_rank2_R4P, write_geo_unst_data3_rank1_R8P, write_geo_unst_data3_rank1_R4P
generic, public :: write_parallel_block_files => write_parallel_block_file, write_parallel_block_files_array, write_parallel_block_files_string
generic, public :: write_piece => write_piece_start_tag, write_piece_start_tag_unst, write_piece_end_tag
procedure, public, pass(self) :: initialize
procedure, public, pass(self) :: finalize
procedure, public, pass(self) :: write_dataarray1_rank1_R8P
procedure, public, pass(self) :: write_dataarray1_rank1_R4P
procedure, public, pass(self) :: write_dataarray1_rank1_I8P
procedure, public, pass(self) :: write_dataarray1_rank1_I4P
procedure, public, pass(self) :: write_dataarray1_rank1_I2P
procedure, public, pass(self) :: write_dataarray1_rank1_I1P
procedure, public, pass(self) :: write_dataarray1_rank2_R8P
procedure, public, pass(self) :: write_dataarray1_rank2_R4P
procedure, public, pass(self) :: write_dataarray1_rank2_I8P
procedure, public, pass(self) :: write_dataarray1_rank2_I4P
procedure, public, pass(self) :: write_dataarray1_rank2_I2P
procedure, public, pass(self) :: write_dataarray1_rank2_I1P
procedure, public, pass(self) :: write_dataarray1_rank3_R8P
procedure, public, pass(self) :: write_dataarray1_rank3_R4P
procedure, public, pass(self) :: write_dataarray1_rank3_I8P
procedure, public, pass(self) :: write_dataarray1_rank3_I4P
procedure, public, pass(self) :: write_dataarray1_rank3_I2P
procedure, public, pass(self) :: write_dataarray1_rank3_I1P
procedure, public, pass(self) :: write_dataarray1_rank4_R8P
procedure, public, pass(self) :: write_dataarray1_rank4_R4P
procedure, public, pass(self) :: write_dataarray1_rank4_I8P
procedure, public, pass(self) :: write_dataarray1_rank4_I4P
procedure, public, pass(self) :: write_dataarray1_rank4_I2P
procedure, public, pass(self) :: write_dataarray1_rank4_I1P
procedure, public, pass(self) :: write_dataarray3_rank1_R8P
procedure, public, pass(self) :: write_dataarray3_rank1_R4P
procedure, public, pass(self) :: write_dataarray3_rank1_I8P
procedure, public, pass(self) :: write_dataarray3_rank1_I4P
procedure, public, pass(self) :: write_dataarray3_rank1_I2P
procedure, public, pass(self) :: write_dataarray3_rank1_I1P
procedure, public, pass(self) :: write_dataarray3_rank3_R8P
procedure, public, pass(self) :: write_dataarray3_rank3_R4P
procedure, public, pass(self) :: write_dataarray3_rank3_I8P
procedure, public, pass(self) :: write_dataarray3_rank3_I4P
procedure, public, pass(self) :: write_dataarray3_rank3_I2P
procedure, public, pass(self) :: write_dataarray3_rank3_I1P
procedure, public, pass(self) :: write_dataarray6_rank1_R8P
procedure, public, pass(self) :: write_dataarray6_rank1_R4P
procedure, public, pass(self) :: write_dataarray6_rank1_I8P
procedure, public, pass(self) :: write_dataarray6_rank1_I4P
procedure, public, pass(self) :: write_dataarray6_rank1_I2P
procedure, public, pass(self) :: write_dataarray6_rank1_I1P
procedure, public, pass(self) :: write_dataarray6_rank3_R8P
procedure, public, pass(self) :: write_dataarray6_rank3_R4P
procedure, public, pass(self) :: write_dataarray6_rank3_I8P
procedure, public, pass(self) :: write_dataarray6_rank3_I4P
procedure, public, pass(self) :: write_dataarray6_rank3_I2P
procedure, public, pass(self) :: write_dataarray6_rank3_I1P
procedure, public, pass(self) :: write_dataarray_appended

Functions

private function initialize(self, format, filename, mesh_topology, nx1, nx2, ny1, ny2, nz1, nz2, is_volatile, mesh_kind) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: format
character, intent(in) :: filename
character, intent(in) :: mesh_topology
integer(kind=I4P), intent(in), optional :: nx1
integer(kind=I4P), intent(in), optional :: nx2
integer(kind=I4P), intent(in), optional :: ny1
integer(kind=I4P), intent(in), optional :: ny2
integer(kind=I4P), intent(in), optional :: nz1
integer(kind=I4P), intent(in), optional :: nz2
logical, intent(in), optional :: is_volatile
character, intent(in), optional :: mesh_kind

Return Value integer(kind=I4P)

private function finalize(self) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self

Return Value integer(kind=I4P)

private function write_dataarray1_rank1_R8P(self, data_name, x, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R8P), intent(in) :: x(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank1_R4P(self, data_name, x, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R4P), intent(in) :: x(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank1_I8P(self, data_name, x, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I8P), intent(in) :: x(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank1_I4P(self, data_name, x, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I4P), intent(in) :: x(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank1_I2P(self, data_name, x, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I2P), intent(in) :: x(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank1_I1P(self, data_name, x, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I1P), intent(in) :: x(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank2_R8P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R8P), intent(in) :: x(1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank2_R4P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R4P), intent(in) :: x(1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank2_I8P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I8P), intent(in) :: x(1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank2_I4P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I4P), intent(in) :: x(1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank2_I2P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I2P), intent(in) :: x(1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank2_I1P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I1P), intent(in) :: x(1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank3_R8P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R8P), intent(in) :: x(1:,1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank3_R4P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R4P), intent(in) :: x(1:,1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank3_I8P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I8P), intent(in) :: x(1:,1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank3_I4P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I4P), intent(in) :: x(1:,1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank3_I2P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I2P), intent(in) :: x(1:,1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank3_I1P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I1P), intent(in) :: x(1:,1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank4_R8P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R8P), intent(in) :: x(1:,1:,1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank4_R4P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R4P), intent(in) :: x(1:,1:,1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank4_I8P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I8P), intent(in) :: x(1:,1:,1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank4_I4P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I4P), intent(in) :: x(1:,1:,1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank4_I2P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I2P), intent(in) :: x(1:,1:,1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray1_rank4_I1P(self, data_name, x, one_component, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I1P), intent(in) :: x(1:,1:,1:,1:)
logical, intent(in), optional :: one_component
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray3_rank1_R8P(self, data_name, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R8P), intent(in) :: x(1:)
real(kind=R8P), intent(in) :: y(1:)
real(kind=R8P), intent(in) :: z(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray3_rank1_R4P(self, data_name, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R4P), intent(in) :: x(1:)
real(kind=R4P), intent(in) :: y(1:)
real(kind=R4P), intent(in) :: z(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray3_rank1_I8P(self, data_name, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I8P), intent(in) :: x(1:)
integer(kind=I8P), intent(in) :: y(1:)
integer(kind=I8P), intent(in) :: z(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray3_rank1_I4P(self, data_name, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I4P), intent(in) :: x(1:)
integer(kind=I4P), intent(in) :: y(1:)
integer(kind=I4P), intent(in) :: z(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray3_rank1_I2P(self, data_name, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I2P), intent(in) :: x(1:)
integer(kind=I2P), intent(in) :: y(1:)
integer(kind=I2P), intent(in) :: z(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray3_rank1_I1P(self, data_name, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I1P), intent(in) :: x(1:)
integer(kind=I1P), intent(in) :: y(1:)
integer(kind=I1P), intent(in) :: z(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray3_rank3_R8P(self, data_name, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R8P), intent(in) :: x(1:,1:,1:)
real(kind=R8P), intent(in) :: y(1:,1:,1:)
real(kind=R8P), intent(in) :: z(1:,1:,1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray3_rank3_R4P(self, data_name, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R4P), intent(in) :: x(1:,1:,1:)
real(kind=R4P), intent(in) :: y(1:,1:,1:)
real(kind=R4P), intent(in) :: z(1:,1:,1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray3_rank3_I8P(self, data_name, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I8P), intent(in) :: x(1:,1:,1:)
integer(kind=I8P), intent(in) :: y(1:,1:,1:)
integer(kind=I8P), intent(in) :: z(1:,1:,1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray3_rank3_I4P(self, data_name, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I4P), intent(in) :: x(1:,1:,1:)
integer(kind=I4P), intent(in) :: y(1:,1:,1:)
integer(kind=I4P), intent(in) :: z(1:,1:,1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray3_rank3_I2P(self, data_name, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I2P), intent(in) :: x(1:,1:,1:)
integer(kind=I2P), intent(in) :: y(1:,1:,1:)
integer(kind=I2P), intent(in) :: z(1:,1:,1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray3_rank3_I1P(self, data_name, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I1P), intent(in) :: x(1:,1:,1:)
integer(kind=I1P), intent(in) :: y(1:,1:,1:)
integer(kind=I1P), intent(in) :: z(1:,1:,1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray6_rank1_R8P(self, data_name, u, v, w, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R8P), intent(in) :: u(1:)
real(kind=R8P), intent(in) :: v(1:)
real(kind=R8P), intent(in) :: w(1:)
real(kind=R8P), intent(in) :: x(1:)
real(kind=R8P), intent(in) :: y(1:)
real(kind=R8P), intent(in) :: z(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray6_rank1_R4P(self, data_name, u, v, w, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R4P), intent(in) :: u(1:)
real(kind=R4P), intent(in) :: v(1:)
real(kind=R4P), intent(in) :: w(1:)
real(kind=R4P), intent(in) :: x(1:)
real(kind=R4P), intent(in) :: y(1:)
real(kind=R4P), intent(in) :: z(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray6_rank1_I8P(self, data_name, u, v, w, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I8P), intent(in) :: u(1:)
integer(kind=I8P), intent(in) :: v(1:)
integer(kind=I8P), intent(in) :: w(1:)
integer(kind=I8P), intent(in) :: x(1:)
integer(kind=I8P), intent(in) :: y(1:)
integer(kind=I8P), intent(in) :: z(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray6_rank1_I4P(self, data_name, u, v, w, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I4P), intent(in) :: u(1:)
integer(kind=I4P), intent(in) :: v(1:)
integer(kind=I4P), intent(in) :: w(1:)
integer(kind=I4P), intent(in) :: x(1:)
integer(kind=I4P), intent(in) :: y(1:)
integer(kind=I4P), intent(in) :: z(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray6_rank1_I2P(self, data_name, u, v, w, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I2P), intent(in) :: u(1:)
integer(kind=I2P), intent(in) :: v(1:)
integer(kind=I2P), intent(in) :: w(1:)
integer(kind=I2P), intent(in) :: x(1:)
integer(kind=I2P), intent(in) :: y(1:)
integer(kind=I2P), intent(in) :: z(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray6_rank1_I1P(self, data_name, u, v, w, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I1P), intent(in) :: u(1:)
integer(kind=I1P), intent(in) :: v(1:)
integer(kind=I1P), intent(in) :: w(1:)
integer(kind=I1P), intent(in) :: x(1:)
integer(kind=I1P), intent(in) :: y(1:)
integer(kind=I1P), intent(in) :: z(1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray6_rank3_R8P(self, data_name, u, v, w, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R8P), intent(in) :: u(1:,1:,1:)
real(kind=R8P), intent(in) :: v(1:,1:,1:)
real(kind=R8P), intent(in) :: w(1:,1:,1:)
real(kind=R8P), intent(in) :: x(1:,1:,1:)
real(kind=R8P), intent(in) :: y(1:,1:,1:)
real(kind=R8P), intent(in) :: z(1:,1:,1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray6_rank3_R4P(self, data_name, u, v, w, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
real(kind=R4P), intent(in) :: u(1:,1:,1:)
real(kind=R4P), intent(in) :: v(1:,1:,1:)
real(kind=R4P), intent(in) :: w(1:,1:,1:)
real(kind=R4P), intent(in) :: x(1:,1:,1:)
real(kind=R4P), intent(in) :: y(1:,1:,1:)
real(kind=R4P), intent(in) :: z(1:,1:,1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray6_rank3_I8P(self, data_name, u, v, w, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I8P), intent(in) :: u(1:,1:,1:)
integer(kind=I8P), intent(in) :: v(1:,1:,1:)
integer(kind=I8P), intent(in) :: w(1:,1:,1:)
integer(kind=I8P), intent(in) :: x(1:,1:,1:)
integer(kind=I8P), intent(in) :: y(1:,1:,1:)
integer(kind=I8P), intent(in) :: z(1:,1:,1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray6_rank3_I4P(self, data_name, u, v, w, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I4P), intent(in) :: u(1:,1:,1:)
integer(kind=I4P), intent(in) :: v(1:,1:,1:)
integer(kind=I4P), intent(in) :: w(1:,1:,1:)
integer(kind=I4P), intent(in) :: x(1:,1:,1:)
integer(kind=I4P), intent(in) :: y(1:,1:,1:)
integer(kind=I4P), intent(in) :: z(1:,1:,1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray6_rank3_I2P(self, data_name, u, v, w, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I2P), intent(in) :: u(1:,1:,1:)
integer(kind=I2P), intent(in) :: v(1:,1:,1:)
integer(kind=I2P), intent(in) :: w(1:,1:,1:)
integer(kind=I2P), intent(in) :: x(1:,1:,1:)
integer(kind=I2P), intent(in) :: y(1:,1:,1:)
integer(kind=I2P), intent(in) :: z(1:,1:,1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)

private function write_dataarray6_rank3_I1P(self, data_name, u, v, w, x, y, z, is_tuples) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self
character, intent(in) :: data_name
integer(kind=I1P), intent(in) :: u(1:,1:,1:)
integer(kind=I1P), intent(in) :: v(1:,1:,1:)
integer(kind=I1P), intent(in) :: w(1:,1:,1:)
integer(kind=I1P), intent(in) :: x(1:,1:,1:)
integer(kind=I1P), intent(in) :: y(1:,1:,1:)
integer(kind=I1P), intent(in) :: z(1:,1:,1:)
logical, intent(in), optional :: is_tuples

Return Value integer(kind=I4P)


Subroutines

private subroutine write_dataarray_appended(self)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_ascii_local), intent(inout) :: self