type_scalar Derived Type

type, public, extends(type_node) :: type_scalar

Inherits

Contents

Variables

path string

Type-Bound Procedures

set_path finalize dump to_logical to_integer to_real

Components

Type	Visibility	Attributes		Name		Initial
character(len=string_length),	public		::	path	=	''
character(len=string_length),	public		::	string	=	''

Type-Bound Procedures

procedure, public :: set_path => node_set_path

private recursive subroutine node_set_path(self, path)

Arguments

Type Intent Optional Attributes Name

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

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

procedure, public :: finalize => node_finalize

private subroutine node_finalize(self)

Arguments

Type Intent Optional Attributes Name

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

procedure, public :: dump => value_dump

private subroutine value_dump(self, unit, indent)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_scalar),	intent(in)			::	self
integer,	intent(in)			::	unit
integer,	intent(in)			::	indent

procedure, public :: to_logical => scalar_to_logical

private function scalar_to_logical(self, default, success) result(value)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_scalar),	intent(in)			::	self
logical,	intent(in)			::	default
logical,	intent(out),	optional		::	success

Return Value logical

procedure, public :: to_integer => scalar_to_integer

private function scalar_to_integer(self, default, success) result(value)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_scalar),	intent(in)			::	self
integer,	intent(in)			::	default
logical,	intent(out),	optional		::	success

Return Value integer

procedure, public :: to_real => scalar_to_real

private function scalar_to_real(self, default, success) result(value)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_scalar),	intent(in)			::	self
real(kind=real_kind),	intent(in)			::	default
logical,	intent(out),	optional		::	success

Return Value real(kind=real_kind)