system_abstract Derived Type

  1. fury_system_abstract128.F90
  2. fury_system_abstract128
  3. system_abstract

type, public, abstract :: system_abstract

type~~system_abstract~~InheritsGraph type~system_abstract system_abstract type~uom_reference uom_reference type~uom_reference->type~system_abstract prefixes type~uom uom type~uom_reference->type~uom alias, references type~qreal qreal type~qreal->type~system_abstract constants type~uom->type~system_abstract units type~uom->type~qreal unit type~uom_symbol uom_symbol type~uom_symbol->type~uom_reference aliases, dimensions type~uom_converter uom_converter type~uom_converter->type~uom_symbol convert_ type~string string type~string->type~uom_symbol symbol_
Help


Abstract units system class.

Inherited By

type~~system_abstract~~InheritedByGraph type~system_abstract system_abstract type~system_si system_si type~system_abstract->type~system_si
Help

Variables

Type-Bound Procedures


Components

TypeVisibility AttributesNameInitial
character(len=:), public, allocatable:: acronym

Units system acronym, e.g. "SI" for the International System.
type(qreal), public, allocatable:: constants(:)

Defined constants.
integer(kind=I_P), public :: constants_number =0_I_P

Number of constants.
type(uom), public, allocatable:: units(:)

Defined units.
integer(kind=I_P), public :: units_number =0_I_P

Number of units.
type(uom_reference), public, allocatable:: prefixes(:)

Prefixes.
integer(kind=I_P), public :: prefixes_number =0_I_P

Number of prefixes.

Type-Bound Procedures

procedure(initialize_interface), public, deferred, pass(self) :: initialize

Initialize the units system.

  • subroutine initialize_interface(self, acronym) Prototype

    Initialize the units system.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(inout) :: self

    The units system.
    character(len=*), intent(in), optional :: acronym

    Units system acronym, e.g. "SI" for the International System.

generic, public :: add_constant => add_constant_qreal

Add a new constant.

  • private subroutine add_constant_qreal(self, source)

    Add a new constant from qreal input.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(inout) :: self

    The system.
    type(qreal), intent(in) :: source

    Constant source.

generic, public :: add_prefix => add_prefix_string, add_prefix_uom_reference

Add a new prefix.

  • private subroutine add_prefix_string(self, source)

    Add a new prefix from string input.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(inout) :: self

    The system.
    character(len=*), intent(in) :: source

    Prefix source.

  • private subroutine add_prefix_uom_reference(self, source)

    Add a new prefix from uom_reference input.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(inout) :: self

    The system.
    type(uom_reference), intent(in) :: source

    Prefix source.

generic, public :: add_unit => add_unit_string, add_unit_uom

Add a new unit.

  • private subroutine add_unit_string(self, source)

    Add a new unit from string input.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(inout) :: self

    The system.
    character(len=*), intent(in) :: source

    Unit source.

  • private subroutine add_unit_uom(self, source)

    Add a new unit from uom input.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(inout) :: self

    The system.
    type(uom), intent(in) :: source

    Unit source.

procedure, public, pass(self) :: const

Return an instance of the queried constant (if defined).

  • private function const(self, c) result(const_)

    Return an instance of the queried constant (if defined).

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(in) :: self

    The system.
    character(len=*), intent(in) :: c

    Constant name.

    Return Value type(qreal)

    The queried constant.

procedure, public, pass(self) :: free

Free the units system.

  • private elemental subroutine free(self)

    Free the units system.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(inout) :: self

    The system.

procedure, public, pass(self) :: list_constants

Return the list of defined constants.

  • private function list_constants(self, with_dimensions, with_aliases, with_name, compact_reals, prefix_string) result(raw)

    Return the list defined constants.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(in) :: self

    The system.
    logical, intent(in), optional :: with_dimensions

    Flag to activate dimensions printing.
    logical, intent(in), optional :: with_aliases

    Flag to activate aliases printing.
    logical, intent(in), optional :: with_name

    Flag to activate name printing.
    logical, intent(in), optional :: compact_reals

    Flag to activate real numbers compacting.
    character(len=*), intent(in), optional :: prefix_string

    Prefix string.

    Return Value character(len=:), allocatable

    Raw characters data.

procedure, public, pass(self) :: list_prefixes

Return the list of defined prefixes.

  • private function list_prefixes(self, with_aliases, compact_reals, prefix_string) result(raw)

    Return the list defined prefixes.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(in) :: self

    The system.
    logical, intent(in), optional :: with_aliases

    Flag to activate alias printing.
    logical, intent(in), optional :: compact_reals

    Flag to activate real numbers compacting.
    character(len=*), intent(in), optional :: prefix_string

    Prefix string.

    Return Value character(len=:), allocatable

    Raw characters data.

procedure, public, pass(self) :: list_units

Return the list of defined units.

  • private function list_units(self, with_dimensions, with_aliases, protect_aliases, with_name, compact_reals, prefix_string) result(raw)

    Return the list defined units.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(in) :: self

    The system.
    logical, intent(in), optional :: with_dimensions

    Flag to activate dimensions printing.
    logical, intent(in), optional :: with_aliases

    Flag to activate aliases printing.
    logical, intent(in), optional :: protect_aliases

    Flag to activate aliases printing in protected mode.
    logical, intent(in), optional :: with_name

    Flag to activate name printing.
    logical, intent(in), optional :: compact_reals

    Flag to activate real numbers compacting.
    character(len=*), intent(in), optional :: prefix_string

    Prefix string.

    Return Value character(len=:), allocatable

    Raw characters data.

procedure, public, pass(self) :: unit

Return an instance of the queried unit (if defined).

  • private function unit(self, u) result(unit_)

    Return an instance of the queried unit (if defined).

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(in) :: self

    The system.
    character(len=*), intent(in) :: u

    Unit name or main symbol alias.

    Return Value type(uom)

    The queried unit.

generic, public :: qunit => qunit_qreal

Return an instance of quantity with the queried unit.

  • private function qunit_qreal(self, u) result(qunit_)

    Return an instance of quantity (qreal) with the queried unit (if defined).

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(in) :: self

    The system.
    character(len=*), intent(in) :: u

    Unit name or main symbol alias.

    Return Value type(qreal)

    The queried quantity.

procedure, private, pass(self) :: add_constant_qreal

Add a new constant from qreal input.

  • private subroutine add_constant_qreal(self, source)

    Add a new constant from qreal input.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(inout) :: self

    The system.
    type(qreal), intent(in) :: source

    Constant source.

procedure, private, pass(self) :: add_prefix_string

Add a new prefix from string input.

  • private subroutine add_prefix_string(self, source)

    Add a new prefix from string input.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(inout) :: self

    The system.
    character(len=*), intent(in) :: source

    Prefix source.

procedure, private, pass(self) :: add_prefix_uom_reference

Add a new prefix from uom_reference input.

procedure, private, pass(self) :: add_unit_string

Add a new unit from string input.

  • private subroutine add_unit_string(self, source)

    Add a new unit from string input.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(inout) :: self

    The system.
    character(len=*), intent(in) :: source

    Unit source.

procedure, private, pass(self) :: add_unit_uom

Add a new unit from uom input.

  • private subroutine add_unit_uom(self, source)

    Add a new unit from uom input.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(inout) :: self

    The system.
    type(uom), intent(in) :: source

    Unit source.

procedure, private, pass(self) :: has_constant

Check if a constant is present into the system.

  • private function has_constant(self, const) result(is_found)

    Return an instance of the queried unit (if defined).

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(in) :: self

    The system.
    type(qreal), intent(in) :: const

    Constant queried.

    Return Value logical

    Flag to check if queried constant has been found.

procedure, private, pass(self) :: has_prefix

Check if a prefix is present into the system.

  • private function has_prefix(self, prefix) result(is_found)

    Check if a prefix is present into the system.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(in) :: self

    The system.
    type(uom_reference), intent(in) :: prefix

    prefix queried.

    Return Value logical

    Flag to check if queried prefix has been found.

procedure, private, pass(self) :: has_unit

Check if a unit is present into the system.

  • private function has_unit(self, unit) result(is_found)

    Check if a unit is present into the system.

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(in) :: self

    The system.
    type(uom), intent(in) :: unit

    Unit queried.

    Return Value logical

    Flag to check if queried unit has been found.

procedure, private, pass(self) :: qunit_qreal

Return an instance of quantity with the queried unit.

  • private function qunit_qreal(self, u) result(qunit_)

    Return an instance of quantity (qreal) with the queried unit (if defined).

    Arguments

    Type IntentOptional AttributesName
    class(system_abstract), intent(in) :: self

    The system.
    character(len=*), intent(in) :: u

    Unit name or main symbol alias.

    Return Value type(qreal)

    The queried quantity.

All Derived Types