pvtk_file Derived Type

type, public :: pvtk_file


Inherits

type~~pvtk_file~~InheritsGraph type~pvtk_file pvtk_file type~xml_writer_abstract xml_writer_abstract type~pvtk_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

Source Code


Components

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

Type-Bound Procedures

procedure, public, pass(self) :: initialize

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

    Arguments

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

    Return Value integer(kind=I4P)

Source Code

type :: pvtk_file
  !< VTK parallel (partioned) file class.
  private
  class(xml_writer_abstract), allocatable, public :: xml_writer !< XML writer.
  contains
    procedure, pass(self) :: initialize !< Initialize file.
    procedure, pass(self) :: finalize   !< Finalize file.
endtype pvtk_file