vtk_file Derived Type

  1. vtk_fortran_vtk_file.f90
  2. vtk_fortran_vtk_file
  3. vtk_file

type, public :: vtk_file


Inherits

type~~vtk_file~~InheritsGraph type~vtk_file vtk_file type~xml_writer_abstract xml_writer_abstract type~vtk_file->type~xml_writer_abstract xml_writer type~string string type~xml_writer_abstract->type~string format_ch, topology, xml_volatile type~xml_tag xml_tag type~xml_writer_abstract->type~xml_tag tag type~xml_tag->type~string tag_name, tag_content, attribute

Contents

Variables

Type-Bound Procedures

Source Code

vtk_file

Components

TypeVisibilityAttributesNameInitial
class(xml_writer_abstract), public, allocatable:: xml_writer

Type-Bound Procedures

procedure, public, pass(self) :: get_xml_volatile

  • private pure subroutine get_xml_volatile(self, xml_volatile, error)

    Arguments

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

procedure, public, pass(self) :: initialize

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

    Arguments

    TypeIntentOptionalAttributesName
    class(vtk_file), intent(inout) :: self
    character, intent(in) :: format
    character, intent(in) :: filename
    character, intent(in) :: mesh_topology
    logical, intent(in), optional :: is_volatile
    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)

procedure, public, pass(self) :: finalize

  • private function finalize(self) result(error)

    Arguments

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

    Return Value integer(kind=I4P)

procedure, public, pass(self) :: free

  • private elemental subroutine free(self, error)

    Arguments

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

Source Code

type :: vtk_file
  !< VTK file class.
  private
  class(xml_writer_abstract), allocatable, public :: xml_writer !< XML writer.
  contains
    procedure, pass(self) :: get_xml_volatile !< Return the eventual XML volatile string file.
    procedure, pass(self) :: initialize       !< Initialize file.
    procedure, pass(self) :: finalize         !< Finalize file.
    procedure, pass(self) :: free             !< Free allocated memory.
endtype vtk_file