vtk_fortran_vtk_file_xml_writer_abstract Module

  1. vtk_fortran_vtk_file_xml_writer_abstract.f90
  2. vtk_fortran_vtk_file_xml_writer_abstract

Uses

  • module~~vtk_fortran_vtk_file_xml_writer_abstract~~UsesGraph module~vtk_fortran_vtk_file_xml_writer_abstract vtk_fortran_vtk_file_xml_writer_abstract module~vtk_fortran_parameters vtk_fortran_parameters module~vtk_fortran_vtk_file_xml_writer_abstract->module~vtk_fortran_parameters module~stringifor~2 stringifor module~vtk_fortran_vtk_file_xml_writer_abstract->module~stringifor~2 module~penf~2 penf module~vtk_fortran_vtk_file_xml_writer_abstract->module~penf~2 module~foxy foxy module~vtk_fortran_vtk_file_xml_writer_abstract->module~foxy module~vtk_fortran_parameters->module~penf~2 iso_fortran_env iso_fortran_env module~vtk_fortran_parameters->iso_fortran_env module~stringifor~2->module~penf~2 module~stringifor_string_t stringifor_string_t module~stringifor~2->module~stringifor_string_t module~penf_stringify~3 penf_stringify module~penf~2->module~penf_stringify~3 module~penf_b_size penf_b_size module~penf~2->module~penf_b_size module~penf_global_parameters_variables~2 penf_global_parameters_variables module~penf~2->module~penf_global_parameters_variables~2 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~penf_stringify~3->iso_fortran_env module~penf_stringify~3->module~penf_b_size module~penf_stringify~3->module~penf_global_parameters_variables~2 module~stringifor_string_t->module~penf~2 module~stringifor_string_t->iso_fortran_env module~face face module~stringifor_string_t->module~face module~befor64~4 befor64 module~stringifor_string_t->module~befor64~4 module~penf_b_size->module~penf_global_parameters_variables~2 module~foxy_xml_tag->module~stringifor~2 module~foxy_xml_tag->module~penf~2 module~foxy_xml_file->module~penf~2 module~foxy_xml_file->module~foxy_xml_tag module~face->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~befor64_pack_data_m~4->module~penf~2

Used by

  • module~~vtk_fortran_vtk_file_xml_writer_abstract~~UsedByGraph module~vtk_fortran_vtk_file_xml_writer_abstract vtk_fortran_vtk_file_xml_writer_abstract module~vtk_fortran_vtk_file vtk_fortran_vtk_file module~vtk_fortran_vtk_file->module~vtk_fortran_vtk_file_xml_writer_abstract module~vtk_fortran_vtk_file_xml_writer_ascii_local vtk_fortran_vtk_file_xml_writer_ascii_local module~vtk_fortran_vtk_file->module~vtk_fortran_vtk_file_xml_writer_ascii_local module~vtk_fortran_vtk_file_xml_writer_appended vtk_fortran_vtk_file_xml_writer_appended module~vtk_fortran_vtk_file->module~vtk_fortran_vtk_file_xml_writer_appended module~vtk_fortran_vtk_file_xml_writer_binary_local vtk_fortran_vtk_file_xml_writer_binary_local module~vtk_fortran_vtk_file->module~vtk_fortran_vtk_file_xml_writer_binary_local module~vtk_fortran_vtk_file_xml_writer_ascii_local->module~vtk_fortran_vtk_file_xml_writer_abstract module~vtk_fortran_vtm_file vtk_fortran_vtm_file module~vtk_fortran_vtm_file->module~vtk_fortran_vtk_file_xml_writer_abstract module~vtk_fortran_vtm_file->module~vtk_fortran_vtk_file_xml_writer_ascii_local module~vtk_fortran_vtk_file_xml_writer_appended->module~vtk_fortran_vtk_file_xml_writer_abstract module~vtk_fortran_vtk_file_xml_writer_binary_local->module~vtk_fortran_vtk_file_xml_writer_abstract module~vtk_fortran_pvtk_file vtk_fortran_pvtk_file module~vtk_fortran_pvtk_file->module~vtk_fortran_vtk_file_xml_writer_abstract module~vtk_fortran_pvtk_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_vtm_file module~vtk_fortran->module~vtk_fortran_pvtk_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

Abstract Interfaces

initialize_interface finalize_interface write_dataarray1_rank1_R8P_interface write_dataarray1_rank1_R4P_interface write_dataarray1_rank1_I8P_interface write_dataarray1_rank1_I4P_interface write_dataarray1_rank1_I2P_interface write_dataarray1_rank1_I1P_interface write_dataarray1_rank2_R8P_interface write_dataarray1_rank2_R4P_interface write_dataarray1_rank2_I8P_interface write_dataarray1_rank2_I4P_interface write_dataarray1_rank2_I2P_interface write_dataarray1_rank2_I1P_interface write_dataarray1_rank3_R8P_interface write_dataarray1_rank3_R4P_interface write_dataarray1_rank3_I8P_interface write_dataarray1_rank3_I4P_interface write_dataarray1_rank3_I2P_interface write_dataarray1_rank3_I1P_interface write_dataarray1_rank4_R8P_interface write_dataarray1_rank4_R4P_interface write_dataarray1_rank4_I8P_interface write_dataarray1_rank4_I4P_interface write_dataarray1_rank4_I2P_interface write_dataarray1_rank4_I1P_interface write_dataarray3_rank1_R8P_interface write_dataarray3_rank1_R4P_interface write_dataarray3_rank1_I8P_interface write_dataarray3_rank1_I4P_interface write_dataarray3_rank1_I2P_interface write_dataarray3_rank1_I1P_interface write_dataarray3_rank3_R8P_interface write_dataarray3_rank3_R4P_interface write_dataarray3_rank3_I8P_interface write_dataarray3_rank3_I4P_interface write_dataarray3_rank3_I2P_interface write_dataarray3_rank3_I1P_interface write_dataarray6_rank1_R8P_interface write_dataarray6_rank1_R4P_interface write_dataarray6_rank1_I8P_interface write_dataarray6_rank1_I4P_interface write_dataarray6_rank1_I2P_interface write_dataarray6_rank1_I1P_interface write_dataarray6_rank3_R8P_interface write_dataarray6_rank3_R4P_interface write_dataarray6_rank3_I8P_interface write_dataarray6_rank3_I4P_interface write_dataarray6_rank3_I2P_interface write_dataarray6_rank3_I1P_interface write_dataarray_appended_interface

Derived Types

Functions

Subroutines


Abstract Interfaces

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

  • private function finalize_interface(self) result(error)

    Arguments

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

    Return Value integer(kind=I4P)

abstract interface

  • private function write_dataarray1_rank1_R8P_interface(self, data_name, x, is_tuples) result(error)

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

  • private function write_dataarray1_rank1_R4P_interface(self, data_name, x, is_tuples) result(error)

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

  • private function write_dataarray1_rank1_I8P_interface(self, data_name, x, is_tuples) result(error)

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

  • private function write_dataarray1_rank1_I4P_interface(self, data_name, x, is_tuples) result(error)

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

  • private function write_dataarray1_rank1_I2P_interface(self, data_name, x, is_tuples) result(error)

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

  • private function write_dataarray1_rank1_I1P_interface(self, data_name, x, is_tuples) result(error)

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

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

    Arguments

    TypeIntentOptionalAttributesName
    class(xml_writer_abstract), 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)

abstract interface

  • private subroutine write_dataarray_appended_interface(self)

    Arguments

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

Derived Types

type, public, abstract :: xml_writer_abstract

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
procedure(initialize_interface), public, pass(self) :: initialize
procedure(finalize_interface), public, pass(self) :: finalize
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(write_dataarray1_rank1_R8P_interface), public, pass(self) :: write_dataarray1_rank1_R8P
procedure(write_dataarray1_rank1_R4P_interface), public, pass(self) :: write_dataarray1_rank1_R4P
procedure(write_dataarray1_rank1_I8P_interface), public, pass(self) :: write_dataarray1_rank1_I8P
procedure(write_dataarray1_rank1_I4P_interface), public, pass(self) :: write_dataarray1_rank1_I4P
procedure(write_dataarray1_rank1_I2P_interface), public, pass(self) :: write_dataarray1_rank1_I2P
procedure(write_dataarray1_rank1_I1P_interface), public, pass(self) :: write_dataarray1_rank1_I1P
procedure(write_dataarray1_rank2_R8P_interface), public, pass(self) :: write_dataarray1_rank2_R8P
procedure(write_dataarray1_rank2_R4P_interface), public, pass(self) :: write_dataarray1_rank2_R4P
procedure(write_dataarray1_rank2_I8P_interface), public, pass(self) :: write_dataarray1_rank2_I8P
procedure(write_dataarray1_rank2_I4P_interface), public, pass(self) :: write_dataarray1_rank2_I4P
procedure(write_dataarray1_rank2_I2P_interface), public, pass(self) :: write_dataarray1_rank2_I2P
procedure(write_dataarray1_rank2_I1P_interface), public, pass(self) :: write_dataarray1_rank2_I1P
procedure(write_dataarray1_rank3_R8P_interface), public, pass(self) :: write_dataarray1_rank3_R8P
procedure(write_dataarray1_rank3_R4P_interface), public, pass(self) :: write_dataarray1_rank3_R4P
procedure(write_dataarray1_rank3_I8P_interface), public, pass(self) :: write_dataarray1_rank3_I8P
procedure(write_dataarray1_rank3_I4P_interface), public, pass(self) :: write_dataarray1_rank3_I4P
procedure(write_dataarray1_rank3_I2P_interface), public, pass(self) :: write_dataarray1_rank3_I2P
procedure(write_dataarray1_rank3_I1P_interface), public, pass(self) :: write_dataarray1_rank3_I1P
procedure(write_dataarray1_rank4_R8P_interface), public, pass(self) :: write_dataarray1_rank4_R8P
procedure(write_dataarray1_rank4_R4P_interface), public, pass(self) :: write_dataarray1_rank4_R4P
procedure(write_dataarray1_rank4_I8P_interface), public, pass(self) :: write_dataarray1_rank4_I8P
procedure(write_dataarray1_rank4_I4P_interface), public, pass(self) :: write_dataarray1_rank4_I4P
procedure(write_dataarray1_rank4_I2P_interface), public, pass(self) :: write_dataarray1_rank4_I2P
procedure(write_dataarray1_rank4_I1P_interface), public, pass(self) :: write_dataarray1_rank4_I1P
procedure(write_dataarray3_rank1_R8P_interface), public, pass(self) :: write_dataarray3_rank1_R8P
procedure(write_dataarray3_rank1_R4P_interface), public, pass(self) :: write_dataarray3_rank1_R4P
procedure(write_dataarray3_rank1_I8P_interface), public, pass(self) :: write_dataarray3_rank1_I8P
procedure(write_dataarray3_rank1_I4P_interface), public, pass(self) :: write_dataarray3_rank1_I4P
procedure(write_dataarray3_rank1_I2P_interface), public, pass(self) :: write_dataarray3_rank1_I2P
procedure(write_dataarray3_rank1_I1P_interface), public, pass(self) :: write_dataarray3_rank1_I1P
procedure(write_dataarray3_rank3_R8P_interface), public, pass(self) :: write_dataarray3_rank3_R8P
procedure(write_dataarray3_rank3_R4P_interface), public, pass(self) :: write_dataarray3_rank3_R4P
procedure(write_dataarray3_rank3_I8P_interface), public, pass(self) :: write_dataarray3_rank3_I8P
procedure(write_dataarray3_rank3_I4P_interface), public, pass(self) :: write_dataarray3_rank3_I4P
procedure(write_dataarray3_rank3_I2P_interface), public, pass(self) :: write_dataarray3_rank3_I2P
procedure(write_dataarray3_rank3_I1P_interface), public, pass(self) :: write_dataarray3_rank3_I1P
procedure(write_dataarray6_rank1_R8P_interface), public, pass(self) :: write_dataarray6_rank1_R8P
procedure(write_dataarray6_rank1_R4P_interface), public, pass(self) :: write_dataarray6_rank1_R4P
procedure(write_dataarray6_rank1_I8P_interface), public, pass(self) :: write_dataarray6_rank1_I8P
procedure(write_dataarray6_rank1_I4P_interface), public, pass(self) :: write_dataarray6_rank1_I4P
procedure(write_dataarray6_rank1_I2P_interface), public, pass(self) :: write_dataarray6_rank1_I2P
procedure(write_dataarray6_rank1_I1P_interface), public, pass(self) :: write_dataarray6_rank1_I1P
procedure(write_dataarray6_rank3_R8P_interface), public, pass(self) :: write_dataarray6_rank3_R8P
procedure(write_dataarray6_rank3_R4P_interface), public, pass(self) :: write_dataarray6_rank3_R4P
procedure(write_dataarray6_rank3_I8P_interface), public, pass(self) :: write_dataarray6_rank3_I8P
procedure(write_dataarray6_rank3_I4P_interface), public, pass(self) :: write_dataarray6_rank3_I4P
procedure(write_dataarray6_rank3_I2P_interface), public, pass(self) :: write_dataarray6_rank3_I2P
procedure(write_dataarray6_rank3_I1P_interface), public, pass(self) :: write_dataarray6_rank3_I1P
procedure(write_dataarray_appended_interface), public, pass(self) :: write_dataarray_appended
procedure, private, pass(self) :: write_fielddata1_rank0
procedure, private, pass(self) :: write_fielddata_tag
procedure, private, pass(self) :: write_geo_strg_data1_rank2_R8P
procedure, private, pass(self) :: write_geo_strg_data1_rank2_R4P
procedure, private, pass(self) :: write_geo_strg_data1_rank4_R8P
procedure, private, pass(self) :: write_geo_strg_data1_rank4_R4P
procedure, private, pass(self) :: write_geo_strg_data3_rank1_R8P
procedure, private, pass(self) :: write_geo_strg_data3_rank1_R4P
procedure, private, pass(self) :: write_geo_strg_data3_rank3_R8P
procedure, private, pass(self) :: write_geo_strg_data3_rank3_R4P
procedure, private, pass(self) :: write_geo_rect_data3_rank1_R8P
procedure, private, pass(self) :: write_geo_rect_data3_rank1_R4P
procedure, private, pass(self) :: write_geo_unst_data1_rank2_R8P
procedure, private, pass(self) :: write_geo_unst_data1_rank2_R4P
procedure, private, pass(self) :: write_geo_unst_data3_rank1_R8P
procedure, private, pass(self) :: write_geo_unst_data3_rank1_R4P
procedure, private, pass(self) :: write_piece_start_tag
procedure, private, pass(self) :: write_piece_start_tag_unst
procedure, private, pass(self) :: write_piece_end_tag
procedure, private, pass(self) :: write_parallel_block_file
procedure, private, pass(self) :: write_parallel_block_files_array
procedure, private, pass(self) :: write_parallel_block_files_string

Functions

private function write_dataarray_location_tag(self, location, action) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in) :: location
character, intent(in) :: action

Return Value integer(kind=I4P)

private function write_fielddata1_rank0(self, data_name, x) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in) :: data_name
class(*), intent(in) :: x

Return Value integer(kind=I4P)

private function write_fielddata_tag(self, action) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in) :: action

Return Value integer(kind=I4P)

private function write_piece_start_tag(self, nx1, nx2, ny1, ny2, nz1, nz2) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
integer(kind=I4P), intent(in) :: nx1
integer(kind=I4P), intent(in) :: nx2
integer(kind=I4P), intent(in) :: ny1
integer(kind=I4P), intent(in) :: ny2
integer(kind=I4P), intent(in) :: nz1
integer(kind=I4P), intent(in) :: nz2

Return Value integer(kind=I4P)

private function write_piece_start_tag_unst(self, np, nc) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
integer(kind=I4P), intent(in) :: np
integer(kind=I4P), intent(in) :: nc

Return Value integer(kind=I4P)

private function write_piece_end_tag(self) result(error)

Arguments

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

Return Value integer(kind=I4P)

private function write_geo_rect_data3_rank1_R8P(self, x, y, z) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), 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_geo_rect_data3_rank1_R4P(self, x, y, z) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), 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_geo_strg_data1_rank2_R8P(self, xyz) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
real(kind=R8P), intent(in) :: xyz(1:,1:)

Return Value integer(kind=I4P)

private function write_geo_strg_data1_rank2_R4P(self, xyz) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
real(kind=R4P), intent(in) :: xyz(1:,1:)

Return Value integer(kind=I4P)

private function write_geo_strg_data1_rank4_R8P(self, xyz) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
real(kind=R8P), intent(in) :: xyz(1:,1:,1:,1:)

Return Value integer(kind=I4P)

private function write_geo_strg_data1_rank4_R4P(self, xyz) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
real(kind=R4P), intent(in) :: xyz(1:,1:,1:,1:)

Return Value integer(kind=I4P)

private function write_geo_strg_data3_rank1_R8P(self, n, x, y, z) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
integer(kind=I4P), intent(in) :: n
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_geo_strg_data3_rank1_R4P(self, n, x, y, z) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
integer(kind=I4P), intent(in) :: n
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_geo_strg_data3_rank3_R8P(self, n, x, y, z) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
integer(kind=I4P), intent(in) :: n
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_geo_strg_data3_rank3_R4P(self, n, x, y, z) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
integer(kind=I4P), intent(in) :: n
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_geo_unst_data1_rank2_R8P(self, np, nc, xyz) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
integer(kind=I4P), intent(in) :: np
integer(kind=I4P), intent(in) :: nc
real(kind=R8P), intent(in) :: xyz(1:,1:)

Return Value integer(kind=I4P)

private function write_geo_unst_data1_rank2_R4P(self, np, nc, xyz) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
integer(kind=I4P), intent(in) :: np
integer(kind=I4P), intent(in) :: nc
real(kind=R4P), intent(in) :: xyz(1:,1:)

Return Value integer(kind=I4P)

private function write_geo_unst_data3_rank1_R8P(self, np, nc, x, y, z) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
integer(kind=I4P), intent(in) :: np
integer(kind=I4P), intent(in) :: nc
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_geo_unst_data3_rank1_R4P(self, np, nc, x, y, z) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
integer(kind=I4P), intent(in) :: np
integer(kind=I4P), intent(in) :: nc
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_connectivity(self, nc, connectivity, offset, cell_type, face, faceoffset) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
integer(kind=I4P), intent(in) :: nc
integer(kind=I4P), intent(in) :: connectivity(1:)
integer(kind=I4P), intent(in) :: offset(1:)
integer(kind=I1P), intent(in) :: cell_type(1:)
integer(kind=I4P), intent(in), optional :: face(1:)
integer(kind=I4P), intent(in), optional :: faceoffset(1:)

Return Value integer(kind=I4P)

private function write_parallel_open_block(self, name) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in), optional :: name

Return Value integer(kind=I4P)

private function write_parallel_close_block(self) result(error)

Arguments

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

Return Value integer(kind=I4P)

private function write_parallel_dataarray(self, data_name, data_type, number_of_components) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in) :: data_name
character, intent(in) :: data_type
integer(kind=I4P), intent(in), optional :: number_of_components

Return Value integer(kind=I4P)

private function write_parallel_geo(self, source, nx1, nx2, ny1, ny2, nz1, nz2) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in) :: source
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

Return Value integer(kind=I4P)

private function write_parallel_block_file(self, file_index, filename, name) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
integer(kind=I4P), intent(in) :: file_index
character, intent(in) :: filename
character, intent(in), optional :: name

Return Value integer(kind=I4P)

private function write_parallel_block_files_array(self, filenames, names) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in) :: filenames(:)
character, intent(in), optional :: names(:)

Return Value integer(kind=I4P)

private function write_parallel_block_files_string(self, filenames, names, delimiter) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in) :: filenames
character, intent(in), optional :: names
character, intent(in), optional :: delimiter

Return Value integer(kind=I4P)


Subroutines

private subroutine close_xml_file(self)

Arguments

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

private subroutine open_xml_file(self, filename)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in) :: filename

private elemental subroutine free(self, error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
integer(kind=I4P), intent(out), optional :: error

private pure subroutine get_xml_volatile(self, xml_volatile, error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(in) :: self
character(len=:), intent(out), allocatable:: xml_volatile
integer(kind=I4P), intent(out), optional :: error

private subroutine write_end_tag(self, name)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in) :: name

private subroutine write_header_tag(self)

Arguments

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

private subroutine write_self_closing_tag(self, name, attributes)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in) :: name
character, intent(in), optional :: attributes

private subroutine write_start_tag(self, name, attributes)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in) :: name
character, intent(in), optional :: attributes

private subroutine write_tag(self, name, attributes, content)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in) :: name
character, intent(in), optional :: attributes
character, intent(in), optional :: content

private subroutine write_topology_tag(self, nx1, nx2, ny1, ny2, nz1, nz2, mesh_kind)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
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
character, intent(in), optional :: mesh_kind

private subroutine write_dataarray_tag(self, data_type, number_of_components, data_name, data_content, is_tuples)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in) :: data_type
integer(kind=I4P), intent(in) :: number_of_components
character, intent(in) :: data_name
character, intent(in), optional :: data_content
logical, intent(in), optional :: is_tuples

private subroutine write_dataarray_tag_appended(self, data_type, number_of_components, data_name, is_tuples)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(inout) :: self
character, intent(in) :: data_type
integer(kind=I4P), intent(in) :: number_of_components
character, intent(in) :: data_name
logical, intent(in), optional :: is_tuples