dict – Forpy

type, public, extends(Mapping) :: dict

Type-Bound Procedures

destroy getattribute setattr delattr get_c_ptr getitem setitem delitem getitem setitem delitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem delitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem delitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem getitem setitem len len mapping_contains clear copy keys items values get get get get get get get get get get get get get get get get get get get get get get get get get get get get get get get setdefault

Type-Bound Procedures

procedure, public :: destroy => object_destroy

Call to allow for freeing of resources of this object.

private subroutine object_destroy(self)

Arguments

Type Intent Optional Attributes Name

class(object), intent(inout) :: self

procedure, public :: getattribute => object_getattribute

Get value of an attribute of this object

private function object_getattribute(self, attr, attr_name) result(ierror)

Arguments

Type	Intent		Name
class(object),	intent(in)	::	self
type(object),	intent(out)	::	attr
character(kind=C_CHAR,len=*),	intent(in)	::	attr_name

Return Value integer(kind=C_INT)

procedure, public :: setattr => object_setattr

Set value of an attribute of this object

private function object_setattr(self, attr_name, attr_value) result(ierror)

Arguments

Type	Intent		Name
class(object),	intent(inout)	::	self
character(kind=C_CHAR,len=*),	intent(in)	::	attr_name
class(object),	intent(in)	::	attr_value

Return Value integer(kind=C_INT)

procedure, public :: delattr => object_delattr

Delete an attribute of this object

private function object_delattr(self, attr_name) result(ierror)

Arguments

Type	Intent	Optional	Attributes		Name
class(object),	intent(inout)			::	self
character(kind=C_CHAR,len=*),	intent(in)			::	attr_name

Return Value integer(kind=C_INT)

procedure, public :: get_c_ptr => object_get_c_ptr

Get c_ptr representation of this object. For development of Python extension modules

private function object_get_c_ptr(self) result(r)

Get C pointer to an object, needed for developing Python extensions.

Arguments

Type Intent Optional Attributes Name

class(object), intent(in) :: self

Return Value type(c_ptr)

generic, public :: getitem => mapping_getitem_object_object

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_object_object(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
type(object),	intent(out)	::	item
class(object),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_object_object

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_object_object(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
class(object),	intent(in)	::	key
class(object),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: delitem => mapping_delitem_object

Delete key-value pair with given key.

private function mapping_delitem_object(self, key) result(ierror)

Arguments

Type Intent Optional Attributes Name

class(Mapping), intent(inout) :: self

class(object), intent(in) :: key

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_object

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int32_object(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
type(object),	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_object

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int32_object(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int32),	intent(in)	::	key
class(object),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: delitem => mapping_delitem_int32

private function mapping_delitem_int32(self, key) result(ierror)

Arguments

Type Intent Optional Attributes Name

class(Mapping), intent(inout) :: self

integer(kind=int32), intent(in) :: key

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_int32

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int32_int32(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int32),	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_int32

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int32_int32(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int32),	intent(in)	::	key
integer(kind=int32),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_int64

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int32_int64(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int64),	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_int64

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int32_int64(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int32),	intent(in)	::	key
integer(kind=int64),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_real32

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int32_real32(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
real(kind=real32),	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_real32

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int32_real32(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int32),	intent(in)	::	key
real(kind=real32),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_real64

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int32_real64(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
real(kind=real64),	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_real64

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int32_real64(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int32),	intent(in)	::	key
real(kind=real64),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_complex_real32

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int32_complex_real32(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
complex(kind=real32),	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_complex_real32

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int32_complex_real32(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int32),	intent(in)	::	key
complex(kind=real32),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_complex_real64

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int32_complex_real64(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
complex(kind=real64),	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_complex_real64

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int32_complex_real64(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int32),	intent(in)	::	key
complex(kind=real64),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_logical

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int32_logical(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
logical,	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_logical

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int32_logical(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int32),	intent(in)	::	key
logical,	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_char_1d

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int32_char_1d(self, item, key) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(Mapping),	intent(inout)		::	self
character(kind=C_CHAR),	intent(out),	dimension(:), pointer	::	item
integer(kind=int32),	intent(in)		::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_char_1d

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int32_char_1d(self, key, item) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(Mapping),	intent(inout)		::	self
integer(kind=int32),	intent(in)		::	key
character(kind=C_CHAR),	intent(in),	dimension(:)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_chars

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int32_chars(self, item, key) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(Mapping),	intent(inout)		::	self
character(kind=C_CHAR,len=:),	intent(out),	allocatable	::	item
integer(kind=int32),	intent(in)		::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_chars

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int32_chars(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int32),	intent(in)	::	key
character(kind=C_CHAR,len=*),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int64_object

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int64_object(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
type(object),	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int64_object

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int64_object(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int64),	intent(in)	::	key
class(object),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: delitem => mapping_delitem_int64

private function mapping_delitem_int64(self, key) result(ierror)

Arguments

Type Intent Optional Attributes Name

class(Mapping), intent(inout) :: self

integer(kind=int64), intent(in) :: key

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int64_int32

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int64_int32(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int32),	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int64_int32

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int64_int32(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int64),	intent(in)	::	key
integer(kind=int32),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int64_int64

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int64_int64(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int64),	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int64_int64

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int64_int64(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int64),	intent(in)	::	key
integer(kind=int64),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int64_real32

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int64_real32(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
real(kind=real32),	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int64_real32

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int64_real32(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int64),	intent(in)	::	key
real(kind=real32),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int64_real64

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int64_real64(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
real(kind=real64),	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int64_real64

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int64_real64(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int64),	intent(in)	::	key
real(kind=real64),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int64_complex_real32

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int64_complex_real32(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
complex(kind=real32),	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int64_complex_real32

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int64_complex_real32(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int64),	intent(in)	::	key
complex(kind=real32),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int64_complex_real64

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int64_complex_real64(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
complex(kind=real64),	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int64_complex_real64

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int64_complex_real64(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int64),	intent(in)	::	key
complex(kind=real64),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int64_logical

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int64_logical(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
logical,	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int64_logical

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int64_logical(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int64),	intent(in)	::	key
logical,	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int64_char_1d

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int64_char_1d(self, item, key) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(Mapping),	intent(inout)		::	self
character(kind=C_CHAR),	intent(out),	dimension(:), pointer	::	item
integer(kind=int64),	intent(in)		::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int64_char_1d

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int64_char_1d(self, key, item) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(Mapping),	intent(inout)		::	self
integer(kind=int64),	intent(in)		::	key
character(kind=C_CHAR),	intent(in),	dimension(:)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int64_chars

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_int64_chars(self, item, key) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(Mapping),	intent(inout)		::	self
character(kind=C_CHAR,len=:),	intent(out),	allocatable	::	item
integer(kind=int64),	intent(in)		::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int64_chars

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_int64_chars(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int64),	intent(in)	::	key
character(kind=C_CHAR,len=*),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_chars_object

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_chars_object(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
type(object),	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_chars_object

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_chars_object(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
character(kind=C_CHAR,len=*),	intent(in)	::	key
class(object),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: delitem => mapping_delitem_chars

private function mapping_delitem_chars(self, key) result(ierror)

Arguments

Type Intent Optional Attributes Name

class(Mapping), intent(inout) :: self

character(kind=C_CHAR,len=*), intent(in) :: key

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_chars_int32

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_chars_int32(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int32),	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_chars_int32

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_chars_int32(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
character(kind=C_CHAR,len=*),	intent(in)	::	key
integer(kind=int32),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_chars_int64

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_chars_int64(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
integer(kind=int64),	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_chars_int64

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_chars_int64(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
character(kind=C_CHAR,len=*),	intent(in)	::	key
integer(kind=int64),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_chars_real32

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_chars_real32(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
real(kind=real32),	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_chars_real32

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_chars_real32(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
character(kind=C_CHAR,len=*),	intent(in)	::	key
real(kind=real32),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_chars_real64

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_chars_real64(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
real(kind=real64),	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_chars_real64

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_chars_real64(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
character(kind=C_CHAR,len=*),	intent(in)	::	key
real(kind=real64),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_chars_complex_real32

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_chars_complex_real32(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
complex(kind=real32),	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_chars_complex_real32

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_chars_complex_real32(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
character(kind=C_CHAR,len=*),	intent(in)	::	key
complex(kind=real32),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_chars_complex_real64

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_chars_complex_real64(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
complex(kind=real64),	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_chars_complex_real64

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_chars_complex_real64(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
character(kind=C_CHAR,len=*),	intent(in)	::	key
complex(kind=real64),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_chars_logical

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_chars_logical(self, item, key) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
logical,	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_chars_logical

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_chars_logical(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
character(kind=C_CHAR,len=*),	intent(in)	::	key
logical,	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_chars_char_1d

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_chars_char_1d(self, item, key) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(Mapping),	intent(inout)		::	self
character(kind=C_CHAR),	intent(out),	dimension(:), pointer	::	item
character(kind=C_CHAR,len=*),	intent(in)		::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_chars_char_1d

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_chars_char_1d(self, key, item) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(Mapping),	intent(inout)		::	self
character(kind=C_CHAR,len=*),	intent(in)		::	key
character(kind=C_CHAR),	intent(in),	dimension(:)	::	item

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_chars_chars

Get value at a given key. KeyError if key does not exist

private function mapping_getitem_chars_chars(self, item, key) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(Mapping),	intent(inout)		::	self
character(kind=C_CHAR,len=:),	intent(out),	allocatable	::	item
character(kind=C_CHAR,len=*),	intent(in)		::	key

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_chars_chars

Inserts value at given key. Sets value if key already exists.

private function mapping_setitem_chars_chars(self, key, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(inout)	::	self
character(kind=C_CHAR,len=*),	intent(in)	::	key
character(kind=C_CHAR,len=*),	intent(in)	::	item

Return Value integer(kind=C_INT)

generic, public :: len => mapping_len_int32

Get number of key-value pairs.

private function Mapping_len_int32(self, length) result(ierror)

Arguments

Type Intent Optional Attributes Name

class(Mapping), intent(in) :: self

integer(kind=int32), intent(out) :: length

Return Value integer(kind=C_INT)

generic, public :: len => mapping_len_int64

Get number of key-value pairs.

private function Mapping_len_int64(self, length) result(ierror)

Arguments

Type Intent Optional Attributes Name

class(Mapping), intent(in) :: self

integer(kind=int64), intent(out) :: length

Return Value integer(kind=C_INT)

procedure, public :: mapping_contains

Checks if key is contained in datastructure.

private function mapping_contains(self, contain_flag, item) result(ierror)

Arguments

Type	Intent		Name
class(Mapping),	intent(in)	::	self
logical,	intent(out)	::	contain_flag
class(object),	intent(in)	::	item

Return Value integer(kind=C_INT)

procedure, public :: clear => dict_clear

Removes all key-value pairs from dictionary.

private subroutine dict_clear(self)

Arguments

Type Intent Optional Attributes Name

class(dict), intent(inout) :: self

procedure, public :: copy => dict_copy

Creates a copy of dict

private function dict_copy(self, dest) result(ierror)

Arguments

Type Intent Optional Attributes Name

class(dict), intent(in) :: self

type(dict), intent(out) :: dest

Return Value integer(kind=C_INT)

procedure, public :: keys => dict_keys

Creates a list of a dict's keys

private function dict_keys(self, keys) result(ierror)

Arguments

Type Intent Optional Attributes Name

class(dict), intent(in) :: self

type(list), intent(out) :: keys

Return Value integer(kind=C_INT)

procedure, public :: items => dict_items

Creates a list of a dict's key-value pairs.

private function dict_items(self, items) result(ierror)

Arguments

Type Intent Optional Attributes Name

class(dict), intent(in) :: self

type(list), intent(out) :: items

Return Value integer(kind=C_INT)

procedure, public :: values => dict_values

Creates a list of a dict's values

private function dict_values(self, values) result(ierror)

Arguments

Type Intent Optional Attributes Name

class(dict), intent(in) :: self

type(list), intent(out) :: values

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_object_object

Get value at a given key. If key does not exist, return a default value.

private function dict_get_object_object(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
type(object),	intent(out)	::	item
class(object),	intent(in)	::	key
class(object),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int32_object

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int32_object(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
type(object),	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key
class(object),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int32_int32

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int32_int32(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
integer(kind=int32),	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key
integer(kind=int32),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int32_int64

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int32_int64(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
integer(kind=int64),	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key
integer(kind=int64),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int32_real32

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int32_real32(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
real(kind=real32),	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key
real(kind=real32),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int32_real64

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int32_real64(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
real(kind=real64),	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key
real(kind=real64),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int32_complex_real32

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int32_complex_real32(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
complex(kind=real32),	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key
complex(kind=real32),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int32_complex_real64

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int32_complex_real64(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
complex(kind=real64),	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key
complex(kind=real64),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int32_logical

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int32_logical(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
logical,	intent(out)	::	item
integer(kind=int32),	intent(in)	::	key
logical,	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int32_char_1d

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int32_char_1d(self, item, key, default_value) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(dict),	intent(inout)		::	self
character(kind=C_CHAR),	intent(out),	dimension(:), pointer	::	item
integer(kind=int32),	intent(in)		::	key
character(kind=C_CHAR),	intent(in),	dimension(:), pointer	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int32_chars

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int32_chars(self, item, key, default_value) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(dict),	intent(inout)		::	self
character(kind=C_CHAR,len=:),	intent(out),	allocatable	::	item
integer(kind=int32),	intent(in)		::	key
character(kind=C_CHAR,len=:),	intent(in),	allocatable	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int64_object

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int64_object(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
type(object),	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key
class(object),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int64_int32

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int64_int32(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
integer(kind=int32),	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key
integer(kind=int32),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int64_int64

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int64_int64(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
integer(kind=int64),	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key
integer(kind=int64),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int64_real32

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int64_real32(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
real(kind=real32),	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key
real(kind=real32),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int64_real64

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int64_real64(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
real(kind=real64),	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key
real(kind=real64),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int64_complex_real32

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int64_complex_real32(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
complex(kind=real32),	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key
complex(kind=real32),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int64_complex_real64

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int64_complex_real64(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
complex(kind=real64),	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key
complex(kind=real64),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int64_logical

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int64_logical(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
logical,	intent(out)	::	item
integer(kind=int64),	intent(in)	::	key
logical,	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int64_char_1d

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int64_char_1d(self, item, key, default_value) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(dict),	intent(inout)		::	self
character(kind=C_CHAR),	intent(out),	dimension(:), pointer	::	item
integer(kind=int64),	intent(in)		::	key
character(kind=C_CHAR),	intent(in),	dimension(:), pointer	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_int64_chars

Get value at a given key. If key does not exist, return a default value.

private function dict_get_int64_chars(self, item, key, default_value) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(dict),	intent(inout)		::	self
character(kind=C_CHAR,len=:),	intent(out),	allocatable	::	item
integer(kind=int64),	intent(in)		::	key
character(kind=C_CHAR,len=:),	intent(in),	allocatable	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_chars_object

Get value at a given key. If key does not exist, return a default value.

private function dict_get_chars_object(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
type(object),	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key
class(object),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_chars_int32

Get value at a given key. If key does not exist, return a default value.

private function dict_get_chars_int32(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
integer(kind=int32),	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key
integer(kind=int32),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_chars_int64

Get value at a given key. If key does not exist, return a default value.

private function dict_get_chars_int64(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
integer(kind=int64),	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key
integer(kind=int64),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_chars_real32

Get value at a given key. If key does not exist, return a default value.

private function dict_get_chars_real32(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
real(kind=real32),	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key
real(kind=real32),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_chars_real64

Get value at a given key. If key does not exist, return a default value.

private function dict_get_chars_real64(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
real(kind=real64),	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key
real(kind=real64),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_chars_complex_real32

Get value at a given key. If key does not exist, return a default value.

private function dict_get_chars_complex_real32(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
complex(kind=real32),	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key
complex(kind=real32),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_chars_complex_real64

Get value at a given key. If key does not exist, return a default value.

private function dict_get_chars_complex_real64(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
complex(kind=real64),	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key
complex(kind=real64),	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_chars_logical

Get value at a given key. If key does not exist, return a default value.

private function dict_get_chars_logical(self, item, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
logical,	intent(out)	::	item
character(kind=C_CHAR,len=*),	intent(in)	::	key
logical,	intent(in)	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_chars_char_1d

Get value at a given key. If key does not exist, return a default value.

private function dict_get_chars_char_1d(self, item, key, default_value) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(dict),	intent(inout)		::	self
character(kind=C_CHAR),	intent(out),	dimension(:), pointer	::	item
character(kind=C_CHAR,len=*),	intent(in)		::	key
character(kind=C_CHAR),	intent(in),	dimension(:), pointer	::	default_value

Return Value integer(kind=C_INT)

generic, public :: get => dict_get_chars_chars

Get value at a given key. If key does not exist, return a default value.

private function dict_get_chars_chars(self, item, key, default_value) result(ierror)

Arguments

Type	Intent	Attributes		Name
class(dict),	intent(inout)		::	self
character(kind=C_CHAR,len=:),	intent(out),	allocatable	::	item
character(kind=C_CHAR,len=*),	intent(in)		::	key
character(kind=C_CHAR,len=:),	intent(in),	allocatable	::	default_value

Return Value integer(kind=C_INT)

procedure, public :: setdefault => dict_setdefault_object_object

Get value at a given key. If key does not exist, set value at key to default value and return default.

private function dict_setdefault_object_object(self, the_value, key, default_value) result(ierror)

Arguments

Type	Intent		Name
class(dict),	intent(inout)	::	self
type(object),	intent(out)	::	the_value	The value retrieved from the dict.
class(object),	intent(in)	::	key	Key to retrieve value from.
class(object),	intent(in)	::	default_value	Default value that is inserted into dict and returned., if key is not present.

Return Value integer(kind=C_INT)

Error code, 0 on success

dict Derived Type

Type-Bound Procedures

All Derived Types

type, public, extends(Mapping) :: dict

Type-Bound Procedures

Type-Bound Procedures

procedure, public :: destroy => object_destroy

private subroutine object_destroy(self)

Arguments

procedure, public :: getattribute => object_getattribute

private function object_getattribute(self, attr, attr_name) result(ierror)

Arguments

Return Value integer(kind=C_INT)

procedure, public :: setattr => object_setattr

private function object_setattr(self, attr_name, attr_value) result(ierror)

Arguments

Return Value integer(kind=C_INT)

procedure, public :: delattr => object_delattr

private function object_delattr(self, attr_name) result(ierror)

Arguments

Return Value integer(kind=C_INT)

procedure, public :: get_c_ptr => object_get_c_ptr

private function object_get_c_ptr(self) result(r)

Arguments

Return Value type(c_ptr)

generic, public :: getitem => mapping_getitem_object_object

private function mapping_getitem_object_object(self, item, key) result(ierror)

Arguments

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_object_object

private function mapping_setitem_object_object(self, key, item) result(ierror)

Arguments

Return Value integer(kind=C_INT)

generic, public :: delitem => mapping_delitem_object

private function mapping_delitem_object(self, key) result(ierror)

Arguments

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_object

private function mapping_getitem_int32_object(self, item, key) result(ierror)

Arguments

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_object

private function mapping_setitem_int32_object(self, key, item) result(ierror)

Arguments

Return Value integer(kind=C_INT)

generic, public :: delitem => mapping_delitem_int32

private function mapping_delitem_int32(self, key) result(ierror)

Arguments

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_int32

private function mapping_getitem_int32_int32(self, item, key) result(ierror)

Arguments

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_int32

private function mapping_setitem_int32_int32(self, key, item) result(ierror)

Arguments

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_int64

private function mapping_getitem_int32_int64(self, item, key) result(ierror)

Arguments

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_int64

private function mapping_setitem_int32_int64(self, key, item) result(ierror)

Arguments

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_real32

private function mapping_getitem_int32_real32(self, item, key) result(ierror)

Arguments

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_real32

private function mapping_setitem_int32_real32(self, key, item) result(ierror)

Arguments

Return Value integer(kind=C_INT)

generic, public :: getitem => mapping_getitem_int32_real64

private function mapping_getitem_int32_real64(self, item, key) result(ierror)

Arguments

Return Value integer(kind=C_INT)

generic, public :: setitem => mapping_setitem_int32_real64

private function mapping_setitem_int32_real64(self, key, item) result(ierror)

Arguments