Dictionary_ Derived Type

type, public :: Dictionary_

Components

Type	Visibility	Attributes		Name		Initial
character(len=36),	public		::	uuid	=	""
type(Page_),	public,	allocatable	::	pages(:)
logical,	public		::	initialized	=	.false.
integer(kind=int32),	public		::	num_entity	=	0

Type-Bound Procedures

procedure, public :: Init => InitializeDictionary

public subroutine InitializeDictionary(obj, NumOfPage)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(inout)			::	obj
integer(kind=int32),	intent(in)			::	NumOfPage

procedure, public :: Input => InputDictionary

public subroutine InputDictionary(obj, page, Content, RealValue, IntValue, Realist, Intlist, DictValue)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(inout)			::	obj
integer(kind=int32),	intent(in)			::	page
character(len=*),	intent(in),	optional		::	Content
real(kind=real64),	intent(in),	optional		::	RealValue
integer(kind=int32),	intent(in),	optional		::	IntValue
real(kind=real64),	intent(in),	optional		::	Realist(:)
integer(kind=int32),	intent(in),	optional		::	Intlist(:)
type(Dictionary_),	intent(in),	optional		::	DictValue

procedure, public :: Get => GetDictionaryValue

public function GetDictionaryValue(obj, page) result(content)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(in)			::	obj
integer(kind=int32),	intent(in)			::	page

Return Value character(len=:), allocatable

procedure, public :: GetPageNum => GetPageNumDictionary

public function GetPageNumDictionary(obj, Content) result(page)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(in)			::	obj
character(len=*),	intent(in)			::	Content

Return Value integer(kind=int32)

procedure, public :: sizeof => sizeofDictionary

public function sizeofDictionary(obj) result(n)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(in)			::	obj

Return Value integer(kind=int32)

procedure, public :: content => contentofDictionary

public function contentofDictionary(obj, id) result(content)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(in)			::	obj
integer(kind=int32),	intent(in)			::	id

Return Value character(len=200)

procedure, public :: intlist => intlistofDictionary

public function intlistofDictionary(obj, page, ind) result(n)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(in)			::	obj
integer(kind=int32),	intent(in)			::	page
integer(kind=int32),	intent(in)			::	ind

Return Value integer(kind=int32)

procedure, public :: intvalue => intvalueofDictionary

public function intvalueofDictionary(obj, page) result(n)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(in)			::	obj
integer(kind=int32),	intent(in)			::	page

Return Value integer(kind=int32)

procedure, public :: realvalue => realvalueofDictionary

public function realvalueofDictionary(obj, page) result(n)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(in)			::	obj
integer(kind=int32),	intent(in)			::	page

Return Value real(kind=real64)

procedure, public :: show => showDictionary

public subroutine showDictionary(obj, From, to, Name)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_)				::	obj
integer(kind=int32),	intent(in),	optional		::	From
integer(kind=int32),	intent(in),	optional		::	to
character(len=*),	intent(in),	optional		::	Name

procedure, public :: export => exportDictionary

public subroutine exportDictionary(obj, FileName, fh, From, to)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_)				::	obj
character(len=*),	intent(in)			::	FileName
integer(kind=int32),	intent(in),	optional		::	fh
integer(kind=int32),	intent(in),	optional		::	From
integer(kind=int32),	intent(in),	optional		::	to

procedure, public :: destroy => destroyDictionary

public subroutine destroyDictionary(obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(inout)			::	obj

procedure, public :: remove => destroyDictionary

public subroutine destroyDictionary(obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(inout)			::	obj

procedure, public, pass :: updateDictionaryInt

public subroutine updateDictionaryInt(this, key, intvalue)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(inout)			::	this
character(len=*),	intent(in)			::	key
integer(kind=int32),	intent(in)			::	intvalue

procedure, public, pass :: updateDictionaryReal64

public subroutine updateDictionaryReal64(this, key, realValue)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(inout)			::	this
character(len=*),	intent(in)			::	key
real(kind=real64),	intent(in)			::	realValue

procedure, public, pass :: updateDictionaryChar

public subroutine updateDictionaryChar(this, key, charValue)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(inout)			::	this
character(len=*),	intent(in)			::	key
character(len=*),	intent(in)			::	charValue

procedure, public, pass :: updateDictionaryDictionary

public subroutine updateDictionaryDictionary(this, key, dictValue)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(inout)			::	this
character(len=*),	intent(in)			::	key
type(Dictionary_),	intent(in)			::	dictValue

generic, public :: update => updateDictionaryInt, updateDictionaryReal64, updateDictionaryChar, updateDictionaryDictionary

public subroutine updateDictionaryInt(this, key, intvalue)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(inout)			::	this
character(len=*),	intent(in)			::	key
integer(kind=int32),	intent(in)			::	intvalue

public subroutine updateDictionaryReal64(this, key, realValue)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(inout)			::	this
character(len=*),	intent(in)			::	key
real(kind=real64),	intent(in)			::	realValue

public subroutine updateDictionaryChar(this, key, charValue)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(inout)			::	this
character(len=*),	intent(in)			::	key
character(len=*),	intent(in)			::	charValue

public subroutine updateDictionaryDictionary(this, key, dictValue)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(inout)			::	this
character(len=*),	intent(in)			::	key
type(Dictionary_),	intent(in)			::	dictValue

procedure, public :: find => findDictionary

public recursive function findDictionary(this, key) result(val)

Arguments

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

Return Value character(len=:), allocatable

procedure, public :: findID => findIDDictionary

public recursive function findIDDictionary(this, key) result(val)

Arguments

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

Return Value integer(kind=int32), (2)

procedure, public :: to_csv => to_csvDictionary

public subroutine to_csvDictionary(obj, Name, From, to)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_)				::	obj
character(len=*),	intent(in)			::	Name
integer(kind=int32),	intent(in),	optional		::	From
integer(kind=int32),	intent(in),	optional		::	to

procedure, public :: to_json => to_jsonDictionary

public subroutine to_jsonDictionary(obj, Name, From, to)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_)				::	obj
character(len=*),	intent(in)			::	Name
integer(kind=int32),	intent(in),	optional		::	From
integer(kind=int32),	intent(in),	optional		::	to