ud2f_UDSystem Module

Uses

- ud2f_CptrWrapper
- ud2f_encoding
- ud2f_status_codes
- iso_c_binding
- ud2f_interfaces
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.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Interfaces

public interface Converter

private function construct_converter(from_unit, to_unit) result(conv)

Arguments

Type	Intent	Optional	Attributes		Name
type(UDUnit),	intent(in)			::	from_unit
type(UDUnit),	intent(in)			::	to_unit

Return Value type(Converter)

public interface UDSystem

private function construct_system(path, encoding) result(instance)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in),	optional		::	path
integer(kind=ut_encoding),	intent(in),	optional		::	encoding

Return Value type(UDSystem)

public interface UDUnit

private function construct_unit(identifier) result(instance)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	identifier

Return Value type(UDUnit)

public interface are_convertible

private function are_convertible_udunit(unit1, unit2, rc) result(convertible)

Arguments

Type	Intent	Optional	Attributes		Name
type(UDUnit),	intent(in)			::	unit1
type(UDUnit),	intent(in)			::	unit2
integer,	intent(out),	optional		::	rc

Return Value logical

private function are_convertible_str(from, to, rc) result(convertible)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	from
character(len=*),	intent(in)			::	to
integer,	intent(out),	optional		::	rc

Return Value logical

Derived Types

type, public, extends(CptrWrapper) :: Converter

Constructor

private function construct_converter (from_unit, to_unit)

Type-Bound Procedures

generic, public :: convert => convert_float_0d
generic, public :: convert => convert_float_1d
generic, public :: convert => convert_float_2d
generic, public :: convert => convert_float_3d
generic, public :: convert => convert_float_4d
generic, public :: convert => convert_float_5d
generic, public :: convert => convert_double_0d
generic, public :: convert => convert_double_1d
generic, public :: convert => convert_double_2d
generic, public :: convert => convert_double_3d
generic, public :: convert => convert_double_4d
generic, public :: convert => convert_double_5d
procedure, public :: free
procedure, public :: free_memory => free_cv_converter
procedure, public :: get_cptr
procedure, public :: is_free
procedure, public :: set_cptr

type, public, extends(CptrWrapper) :: UDSystem

Constructor

private function construct_system (path, encoding)

Type-Bound Procedures

procedure, public :: free
procedure, public, pass(this) :: free_memory => free_ut_system
procedure, public :: get_cptr
procedure, public :: is_free
procedure, public :: set_cptr

type, public, extends(CptrWrapper) :: UDUnit

Constructor

private function construct_unit (identifier)

Type-Bound Procedures

procedure, public :: free
procedure, public, pass(this) :: free_memory => free_ut_unit
procedure, public :: get_cptr
procedure, public :: is_free
procedure, public :: set_cptr

Functions

public function cstring(s) result(cs)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	s

Return Value character(kind=c_char, len=:), allocatable

Subroutines

public subroutine finalize()

Arguments

None

public subroutine get_converter(conv, from, to, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(Converter),	intent(inout)			::	conv
character(len=*),	intent(in)			::	from
character(len=*),	intent(in)			::	to
integer(kind=ut_status),	intent(out),	optional		::	rc

public subroutine initialize(path, encoding, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in),	optional		::	path
integer(kind=ut_encoding),	intent(in),	optional		::	encoding
integer,	intent(out),	optional		::	rc

public subroutine read_xml(path, utsystem, status)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in),	optional		::	path
type(c_ptr),	intent(out)			::	utsystem
integer(kind=ut_status),	intent(out)			::	status