amap Module

Derived Types

type, public :: amap_t

Type-Bound Procedures

procedure , public :: clear => clear_amap_t Subroutine
generic, public :: contains => is_key_kt, is_key_kvt
procedure , public :: find => find_amap_t Function
procedure , public :: get => get_amap_t Function
procedure , public :: get_value => get_value_amap_t Function
procedure , public :: print => print_amap_t Subroutine
procedure , public :: set => set_amap_t Subroutine

type, public :: key_t

Type-Bound Procedures

generic, public :: assignment(=) => set_to_key_t
generic, public :: operator(==) => equals_key_t
generic, public :: write(formatted) => write_key_t

type, public :: pair_t

Components

Type	Visibility	Attributes		Name		Initial
type(key_t),	public		::	k	=	key_t()
type(value_t),	public		::	v	=	value_t()

type, public :: value_t

Type-Bound Procedures

generic, public :: assignment(=) => set_to_value_t
generic, public :: write(formatted) => write_value_t

Functions

public function equals_key_t(this, k) result(r)

Arguments

Type	Intent	Optional	Attributes		Name
class(key_t),	intent(in)			::	this
type(key_t),	intent(in)			::	k

Return Value logical

public function find_amap_t(this, k) result(r)

Arguments

Type	Intent	Optional	Attributes		Name
class(amap_t),	intent(in)			::	this
type(key_t),	intent(in)			::	k

Return Value integer

public function get_amap_t(this, kv) result(r)

Arguments

Type	Intent	Optional	Attributes		Name
class(amap_t),	intent(in)			::	this
character(len=*),	intent(in)			::	kv

Return Value type(value_t)

public function get_value_amap_t(this, kv) result(r)

Arguments

Type	Intent	Optional	Attributes		Name
class(amap_t),	intent(in)			::	this
character(len=*),	intent(in)			::	kv

Return Value real(kind=8)

public function is_key_kt(this, k) result(r)

Arguments

Type	Intent	Optional	Attributes		Name
class(amap_t),	intent(in)			::	this
type(key_t),	intent(in)			::	k

Return Value logical

public function is_key_kvt(this, kv) result(r)

Arguments

Type	Intent	Optional	Attributes		Name
class(amap_t),	intent(in)			::	this
character(len=*),	intent(in)			::	kv

Return Value logical

Subroutines

public subroutine clear_amap_t(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(amap_t),	intent(inout)			::	this

public subroutine print_amap_t(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(amap_t),	intent(in)			::	this

public subroutine set_amap_t(this, kv, vv)

Arguments

Type	Intent	Optional	Attributes		Name
class(amap_t),	intent(inout)			::	this
character(len=*),	intent(in)			::	kv
real(kind=8),	intent(in)			::	vv

public subroutine set_to_key_t(this, k)

Arguments

Type	Intent	Optional	Attributes		Name
class(key_t),	intent(inout)			::	this
character(len=*),	intent(in)			::	k

public subroutine set_to_value_t(this, v)

Arguments

Type	Intent	Optional	Attributes		Name
class(value_t),	intent(inout)			::	this
real(kind=8),	intent(in)			::	v

public subroutine write_key_t(key, unit, iotype, v_list, iostat, iomsg)

Arguments

Type	Intent	Optional	Attributes		Name
class(key_t),	intent(in)			::	key
integer,	intent(in)			::	unit
character,	intent(in)			::	iotype
integer,	intent(in)			::	v_list(:)
integer,	intent(out)			::	iostat
character,	intent(inout)			::	iomsg

public subroutine write_value_t(value, unit, iotype, v_list, iostat, iomsg)

Arguments

Type	Intent	Optional	Attributes		Name
class(value_t),	intent(in)			::	value
integer,	intent(in)			::	unit
character,	intent(in)			::	iotype
integer,	intent(in)			::	v_list(:)
integer,	intent(out)			::	iostat
character,	intent(inout)			::	iomsg