dictionary Derived Type

type, public :: dictionary

Type-Bound Procedures

procedure, public :: read

private subroutine read(G, unit)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(inout) :: G

integer, intent(in) :: unit

procedure, public :: print

private subroutine print(D, unit, end_tag_)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(in)			::	D
integer,	intent(in),	optional		::	unit
logical,	intent(in),	optional		::	end_tag_

procedure, public :: get_names

private function get_names(D) result(res)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(in) :: D

Return Value character(len=max_char_length), allocatable, (:)

procedure, public :: sub_name

private function sub_name(D, names) result(out_list)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(in) :: D

character(len=*), intent(in) :: names(:)

Return Value type(dictionary)

procedure, public :: sub_val

private function sub_val(D, value) result(res)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(in) :: D

character(len=*), intent(in) :: value

Return Value type(dictionary)

procedure, public :: clean

private subroutine clean(D)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(inout) :: D

procedure, public :: rename

private subroutine rename(D, name, new_name)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
character(len=*),	intent(inout)			::	new_name

generic, public :: setvalue => isetvalue, dsetvalue, zsetvalue, asetvalue, lsetvalue, tsetvalue, misetvalue, mdsetvalue, masetvalue, mlsetvalue

private subroutine isetvalue(D, name, val, add_tag)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
integer,	intent(in)			::	val
logical,	intent(in),	optional		::	add_tag

private subroutine dsetvalue(D, name, val, add_tag)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
real(kind=8),	intent(in)			::	val
logical,	intent(in),	optional		::	add_tag

private subroutine zsetvalue(D, name, val, add_tag)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
complex(kind=8),	intent(in)			::	val
logical,	intent(in),	optional		::	add_tag

private subroutine asetvalue(D, name, val, add_tag)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
character(len=*),	intent(in)			::	val
logical,	intent(in),	optional		::	add_tag

private subroutine lsetvalue(D, name, val, add_tag)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
logical,	intent(in)			::	val
logical,	intent(in),	optional		::	add_tag

private subroutine tsetvalue(D, name, val, add_tag)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
type(tensor),	intent(in)			::	val
logical,	intent(in),	optional		::	add_tag

private subroutine misetvalue(D, name, val, add_tag)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
integer,	intent(in)			::	val(:)
logical,	intent(in),	optional		::	add_tag

private subroutine mdsetvalue(D, name, val, add_tag)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
real(kind=8),	intent(in)			::	val(:)
logical,	intent(in),	optional		::	add_tag

private subroutine masetvalue(D, name, val, add_tag)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
character(len=*),	intent(in)			::	val(:)
logical,	intent(in),	optional		::	add_tag

private subroutine mlsetvalue(D, name, val, add_tag)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
logical,	intent(in)			::	val(:)
logical,	intent(in),	optional		::	add_tag

generic, public :: getvalue => igetvalue, dgetvalue, zgetvalue, agetvalue, lgetvalue, tgetvalue, migetvalue, mdgetvalue, magetvalue, mlgetvalue

private subroutine igetvalue(D, name, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(in)			::	D
character(len=*),	intent(in)			::	name
integer,	intent(inout)			::	val

private subroutine dgetvalue(D, name, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(in)			::	D
character(len=*),	intent(in)			::	name
real(kind=8),	intent(inout)			::	val

private subroutine zgetvalue(D, name, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(in)			::	D
character(len=*),	intent(in)			::	name
complex(kind=8),	intent(inout)			::	val

private subroutine agetvalue(D, name, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(in)			::	D
character(len=*),	intent(in)			::	name
character(len=*),	intent(inout)			::	val

private subroutine lgetvalue(D, name, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(in)			::	D
character(len=*),	intent(in)			::	name
logical,	intent(inout)			::	val

private subroutine tgetvalue(D, name, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(in)			::	D
character(len=*),	intent(in)			::	name
type(tensor),	intent(inout)			::	val

private subroutine migetvalue(D, name, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(in)			::	D
character(len=*),	intent(in)			::	name
integer,	intent(inout),		allocatable	::	val(:)

private subroutine mdgetvalue(D, name, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(in)			::	D
character(len=*),	intent(in)			::	name
real(kind=8),	intent(inout),		allocatable	::	val(:)

private subroutine magetvalue(D, name, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(in)			::	D
character(len=*),	intent(in)			::	name
character(len=max_char_length),	intent(inout),		allocatable	::	val(:)

private subroutine mlgetvalue(D, name, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(in)			::	D
character(len=*),	intent(in)			::	name
logical,	intent(inout),		allocatable	::	val(:)

generic, public :: insert => insert_int, insert_dbl, insert_com, insert_char, insert_logi, insert_ten, insert_int_ary, insert_dbl_ary, insert_char_ary, insert_logi_ary

private subroutine insert_int(D, name, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
integer,	intent(in)			::	value

private subroutine insert_dbl(D, name, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
real(kind=8),	intent(in)			::	value

private subroutine insert_com(D, name, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
complex(kind=8),	intent(in)			::	value

private subroutine insert_char(D, name, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
character(len=*),	intent(in)			::	value

private subroutine insert_logi(D, name, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
logical,	intent(in)			::	value

private subroutine insert_ten(D, name, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
type(tensor),	intent(in)			::	value

private subroutine insert_int_ary(D, name, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
integer,	intent(in)			::	value(:)

private subroutine insert_dbl_ary(D, name, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
real(kind=8),	intent(in)			::	value(:)

private subroutine insert_char_ary(D, name, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
character(len=*),	intent(in)			::	value(:)

private subroutine insert_logi_ary(D, name, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(inout)			::	D
character(len=*),	intent(in)			::	name
logical,	intent(in)			::	value(:)

procedure, public :: delete

private subroutine delete(D, name)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(inout) :: D

character(len=*), intent(in) :: name

procedure, public :: mli

private function mli(D, name) result(res)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(in) :: D

character(len=*), intent(in) :: name

Return Value logical, allocatable, (:)

procedure, public :: mai

private function mai(D, name) result(res)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(in) :: D

character(len=*), intent(in) :: name

Return Value character(len=max_char_length), allocatable, (:)

procedure, public :: mdi

private function mdi(D, name) result(res)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(in) :: D

character(len=*), intent(in) :: name

Return Value real(kind=8), allocatable, (:)

procedure, public :: mii

private function mii(D, name) result(res)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(in) :: D

character(len=*), intent(in) :: name

Return Value integer, allocatable, (:)

procedure, public :: ti

private function ti(D, name) result(res)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(in) :: D

character(len=*), intent(in) :: name

Return Value type(tensor)

procedure, public :: li

private function li(D, name) result(res)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(in) :: D

character(len=*), intent(in) :: name

Return Value logical

procedure, public :: ai

private function ai(D, name) result(res)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(in) :: D

character(len=*), intent(in) :: name

Return Value character(len=max_char_length)

procedure, public :: zi

private function zi(D, name) result(res)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(in) :: D

character(len=*), intent(in) :: name

Return Value complex(kind=8)

procedure, public :: di

private function di(D, name) result(res)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(in) :: D

character(len=*), intent(in) :: name

Return Value real(kind=8)

procedure, public :: ii

private function ii(D, name) result(res)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(in) :: D

character(len=*), intent(in) :: name

Return Value integer

procedure, public :: append

private subroutine append(P1, P2)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(inout) :: P1

type(dictionary), intent(in) :: P2

procedure, public :: check_contain

private function check_contain(D, name) result(res)

Arguments

Type Intent Optional Attributes Name

class(dictionary), intent(inout) :: D

character(len=*), intent(in) :: name

Return Value logical

procedure, public :: search

private subroutine search(D, name, type, pos, existed)

Arguments

Type	Intent	Optional	Attributes		Name
class(dictionary),	intent(in)			::	D
character(len=*),	intent(in)			::	name
integer,	intent(out)			::	type
integer,	intent(out)			::	pos
logical,	intent(out)			::	existed