vtk_fortran_vtk_file_xml_writer_appended

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Derived Types

Functions

Subroutines

ioffset_update open_scratch_file close_scratch_file write_dataarray_appended

Derived Types

type, public, extends(xml_writer_abstract) :: xml_writer_appended

Components

Type	Visibility		Name		Initial
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(string),	public	::	encoding
integer(kind=I4P),	public	::	scratch	=	0_I4P

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
procedure, private, pass(self) :: ioffset_update
procedure, private, pass(self) :: open_scratch_file
procedure, private, pass(self) :: close_scratch_file
generic, private :: write_on_scratch_dataarray => write_on_scratch_dataarray1_rank1, write_on_scratch_dataarray1_rank2, write_on_scratch_dataarray1_rank3, write_on_scratch_dataarray1_rank4, write_on_scratch_dataarray3_rank1_R8P, write_on_scratch_dataarray3_rank1_R4P, write_on_scratch_dataarray3_rank1_I8P, write_on_scratch_dataarray3_rank1_I4P, write_on_scratch_dataarray3_rank1_I2P, write_on_scratch_dataarray3_rank1_I1P, write_on_scratch_dataarray3_rank2_R8P, write_on_scratch_dataarray3_rank2_R4P, write_on_scratch_dataarray3_rank2_I8P, write_on_scratch_dataarray3_rank2_I4P, write_on_scratch_dataarray3_rank2_I2P, write_on_scratch_dataarray3_rank2_I1P, write_on_scratch_dataarray3_rank3_R8P, write_on_scratch_dataarray3_rank3_R4P, write_on_scratch_dataarray3_rank3_I8P, write_on_scratch_dataarray3_rank3_I4P, write_on_scratch_dataarray3_rank3_I2P, write_on_scratch_dataarray3_rank3_I1P, write_on_scratch_dataarray6_rank1_R8P, write_on_scratch_dataarray6_rank1_R4P, write_on_scratch_dataarray6_rank1_I8P, write_on_scratch_dataarray6_rank1_I4P, write_on_scratch_dataarray6_rank1_I2P, write_on_scratch_dataarray6_rank1_I1P, write_on_scratch_dataarray6_rank2_R8P, write_on_scratch_dataarray6_rank2_R4P, write_on_scratch_dataarray6_rank2_I8P, write_on_scratch_dataarray6_rank2_I4P, write_on_scratch_dataarray6_rank2_I2P, write_on_scratch_dataarray6_rank2_I1P, write_on_scratch_dataarray6_rank3_R8P, write_on_scratch_dataarray6_rank3_R4P, write_on_scratch_dataarray6_rank3_I8P, write_on_scratch_dataarray6_rank3_I4P, write_on_scratch_dataarray6_rank3_I2P, write_on_scratch_dataarray6_rank3_I1P
procedure, private, pass(self) :: write_on_scratch_dataarray1_rank1
procedure, private, pass(self) :: write_on_scratch_dataarray1_rank2
procedure, private, pass(self) :: write_on_scratch_dataarray1_rank3
procedure, private, pass(self) :: write_on_scratch_dataarray1_rank4
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank1_R8P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank1_R4P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank1_I8P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank1_I4P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank1_I2P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank1_I1P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank2_R8P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank2_R4P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank2_I8P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank2_I4P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank2_I2P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank2_I1P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank3_R8P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank3_R4P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank3_I8P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank3_I4P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank3_I2P
procedure, private, pass(self) :: write_on_scratch_dataarray3_rank3_I1P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank1_R8P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank1_R4P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank1_I8P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank1_I4P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank1_I2P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank1_I1P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank2_R8P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank2_R4P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank2_I8P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank2_I4P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank2_I2P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank2_I1P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank3_R8P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank3_R4P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank3_I8P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank3_I4P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank3_I2P
procedure, private, pass(self) :: write_on_scratch_dataarray6_rank3_I1P

Functions

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

Arguments

Type	Intent	Optional		Name
class(xml_writer_appended),	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

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

Return Value integer(kind=I4P)

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

Arguments

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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

Type	Intent	Optional		Name
class(xml_writer_appended),	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)

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

Arguments

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

Return Value integer(kind=I4P)

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

Arguments

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

Return Value integer(kind=I4P)

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

Arguments

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

Return Value integer(kind=I4P)

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

Arguments

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

Return Value integer(kind=I4P)

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

Arguments

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

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
real(kind=R4P),	intent(in)	::	x(1:)
real(kind=R4P),	intent(in)	::	y(1:)
real(kind=R4P),	intent(in)	::	z(1:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
integer(kind=I8P),	intent(in)	::	x(1:)
integer(kind=I8P),	intent(in)	::	y(1:)
integer(kind=I8P),	intent(in)	::	z(1:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
integer(kind=I4P),	intent(in)	::	x(1:)
integer(kind=I4P),	intent(in)	::	y(1:)
integer(kind=I4P),	intent(in)	::	z(1:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
integer(kind=I2P),	intent(in)	::	x(1:)
integer(kind=I2P),	intent(in)	::	y(1:)
integer(kind=I2P),	intent(in)	::	z(1:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
integer(kind=I1P),	intent(in)	::	x(1:)
integer(kind=I1P),	intent(in)	::	y(1:)
integer(kind=I1P),	intent(in)	::	z(1:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
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)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
real(kind=R4P),	intent(in)	::	x(1:,1:)
real(kind=R4P),	intent(in)	::	y(1:,1:)
real(kind=R4P),	intent(in)	::	z(1:,1:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
integer(kind=I8P),	intent(in)	::	x(1:,1:)
integer(kind=I8P),	intent(in)	::	y(1:,1:)
integer(kind=I8P),	intent(in)	::	z(1:,1:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
integer(kind=I4P),	intent(in)	::	x(1:,1:)
integer(kind=I4P),	intent(in)	::	y(1:,1:)
integer(kind=I4P),	intent(in)	::	z(1:,1:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
integer(kind=I2P),	intent(in)	::	x(1:,1:)
integer(kind=I2P),	intent(in)	::	y(1:,1:)
integer(kind=I2P),	intent(in)	::	z(1:,1:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
real(kind=R8P),	intent(in)	::	u(1:,1:)
real(kind=R8P),	intent(in)	::	v(1:,1:)
real(kind=R8P),	intent(in)	::	w(1:,1:)
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)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
real(kind=R4P),	intent(in)	::	u(1:,1:)
real(kind=R4P),	intent(in)	::	v(1:,1:)
real(kind=R4P),	intent(in)	::	w(1:,1:)
real(kind=R4P),	intent(in)	::	x(1:,1:)
real(kind=R4P),	intent(in)	::	y(1:,1:)
real(kind=R4P),	intent(in)	::	z(1:,1:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
integer(kind=I8P),	intent(in)	::	u(1:,1:)
integer(kind=I8P),	intent(in)	::	v(1:,1:)
integer(kind=I8P),	intent(in)	::	w(1:,1:)
integer(kind=I8P),	intent(in)	::	x(1:,1:)
integer(kind=I8P),	intent(in)	::	y(1:,1:)
integer(kind=I8P),	intent(in)	::	z(1:,1:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
integer(kind=I4P),	intent(in)	::	u(1:,1:)
integer(kind=I4P),	intent(in)	::	v(1:,1:)
integer(kind=I4P),	intent(in)	::	w(1:,1:)
integer(kind=I4P),	intent(in)	::	x(1:,1:)
integer(kind=I4P),	intent(in)	::	y(1:,1:)
integer(kind=I4P),	intent(in)	::	z(1:,1:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
integer(kind=I2P),	intent(in)	::	u(1:,1:)
integer(kind=I2P),	intent(in)	::	v(1:,1:)
integer(kind=I2P),	intent(in)	::	w(1:,1:)
integer(kind=I2P),	intent(in)	::	x(1:,1:)
integer(kind=I2P),	intent(in)	::	y(1:,1:)
integer(kind=I2P),	intent(in)	::	z(1:,1:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
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)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

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

Arguments

Type	Intent		Name
class(xml_writer_appended),	intent(inout)	::	self
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:)

Return Value integer(kind=I4P)

Subroutines

private elemental subroutine ioffset_update(self, n_byte)

Arguments

Type	Intent	Optional	Attributes		Name
class(xml_writer_appended),	intent(inout)			::	self
integer(kind=I4P),	intent(in)			::	n_byte

private subroutine open_scratch_file(self)

Arguments

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

private subroutine close_scratch_file(self)

Arguments

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

private subroutine write_dataarray_appended(self)

Arguments

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

vtk_fortran_vtk_file_xml_writer_appended Module

Contents

Derived Types

Functions

Subroutines

Uses

Used by

Contents

Derived Types

Functions

Subroutines

Derived Types

type, public, extends(xml_writer_abstract) :: xml_writer_appended

Components

Type-Bound Procedures

Functions

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

Arguments

Return Value integer(kind=I4P)

private function finalize(self) result(error)

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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

Arguments

Return Value integer(kind=I4P)

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