type_attributes Derived Type

type, public :: type_attributes

Inherits

Contents

Variables

first

Type-Bound Procedures

set_object delete set_real set_integer set_string set update

Components

Type	Visibility	Attributes		Name		Initial
class(type_attribute),	public,	pointer	::	first	=>	null()

Type-Bound Procedures

procedure, public :: set_object => attributes_set_object

private subroutine attributes_set_object(self, name, attribute)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_attributes),	intent(inout)			::	self
character(len=*),	intent(in)			::	name
class(type_attribute),	intent(inout),		target	::	attribute

procedure, public :: delete => attributes_delete

private subroutine attributes_delete(self, name)

Arguments

Type Intent Optional Attributes Name

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

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

procedure, public :: set_real => attributes_set_real

private subroutine attributes_set_real(self, name, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_attributes),	intent(inout)			::	self
character(len=*),	intent(in)			::	name
real(kind=rk),	intent(in)			::	value

procedure, public :: set_integer => attributes_set_integer

private subroutine attributes_set_integer(self, name, value)

Arguments

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

procedure, public :: set_string => attributes_set_string

private subroutine attributes_set_string(self, name, value)

Arguments

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

generic, public :: set => set_real, set_integer, set_string, set_object

private subroutine attributes_set_real(self, name, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_attributes),	intent(inout)			::	self
character(len=*),	intent(in)			::	name
real(kind=rk),	intent(in)			::	value

private subroutine attributes_set_integer(self, name, value)

Arguments

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

private subroutine attributes_set_string(self, name, value)

Arguments

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

private subroutine attributes_set_object(self, name, attribute)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_attributes),	intent(inout)			::	self
character(len=*),	intent(in)			::	name
class(type_attribute),	intent(inout),		target	::	attribute

procedure, public :: update => attributes_update

private subroutine attributes_update(self, other)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_attributes),	intent(inout)			::	self
class(type_attributes),	intent(in)			::	other