WrapperFactoryList_t Derived Type

type, public :: WrapperFactoryList_t

Components

Type	Visibility	Attributes		Name		Initial
class(WrapperFactoryList_t),	public,	pointer	::	Next	=>	null()

Finalization Procedures

final :: WrapperFactoryList_Finalize

private recursive subroutine WrapperFactoryList_Finalize(this)

Finalize procedure

Arguments

Type Intent Optional Attributes Name

type(WrapperFactoryList_t), intent(inout) :: this
Wrapper Factory List

Type-Bound Procedures

procedure, public, non_overridable :: HasNext => WrapperFactoryList_HasNext

private function WrapperFactoryList_HasNext(this) result(hasNext)

Check if Next is associated for the current Node

Arguments

Type Intent Optional Attributes Name

class(WrapperFactoryList_t), intent(in) :: this
Wrapper Factory List

Return Value logical

Check if Next is associated

procedure, public, non_overridable :: SetNext => WrapperFactoryList_SetNext

private subroutine WrapperFactoryList_SetNext(this, Next)

Set the pointer to the Next node

Arguments

Type	Intent	Optional	Attributes		Name
class(WrapperFactoryList_t),	intent(inout)			::	this	Wrapper Factory List
class(WrapperFactoryList_t),	intent(in),		target	::	Next	Pointer to Next

procedure, public, non_overridable :: GetNext => WrapperFactoryList_GetNext

private function WrapperFactoryList_GetNext(this) result(Next)

Return a pointer to the Next node

Arguments

Type Intent Optional Attributes Name

class(WrapperFactoryList_t), intent(in) :: this
Wrapper Factory List

Return Value class(WrapperFactoryList_t), pointer

Pointer to Next

procedure, public, non_overridable :: NullifyNext => WrapperFactoryList_NullifyNext

private subroutine WrapperFactoryList_NullifyNext(this)

Nullify Next

Arguments

Type Intent Optional Attributes Name

class(WrapperFactoryList_t), intent(inout) :: this
Wrapper Factory List

procedure, public, non_overridable :: HasKey => WrapperFactoryList_HasKey

private function WrapperFactoryList_HasKey(this) result(hasKey)

Check if Key is allocated for the current Node

Arguments

Type Intent Optional Attributes Name

class(WrapperFactoryList_t), intent(in) :: this
Wrapper Factory List

Return Value logical

Check if Key is associated

procedure, public, non_overridable :: SetKey => WrapperFactoryList_SetKey

private subroutine WrapperFactoryList_SetKey(this, Key)

Check if Next is associated for the current Node

Arguments

Type	Intent	Optional	Attributes		Name
class(WrapperFactoryList_t),	intent(inout)			::	this	Wrapper Factory List
character(len=*),	intent(in)			::	Key	Key

procedure, public, non_overridable :: GetKey => WrapperFactoryList_GetKey

private function WrapperFactoryList_GetKey(this) result(Key)

Check if Next is associated for the current Node

Arguments

Type Intent Optional Attributes Name

class(WrapperFactoryList_t), intent(in) :: this
Wrapper Factory List

Return Value character(len=:), allocatable

Key

procedure, public, non_overridable :: DeallocateKey => WrapperFactoryList_DeallocateKey

private subroutine WrapperFactoryList_DeallocateKey(this)

Deallocate Key if allocated

Arguments

Type Intent Optional Attributes Name

class(WrapperFactoryList_t), intent(inout) :: this
Wrapper Factory List

procedure, public, non_overridable :: HasValue => WrapperFactoryList_HasValue

private function WrapperFactoryList_HasValue(this) result(hasValue)

Check if Value is allocated for the current Node

Arguments

Type Intent Optional Attributes Name

class(WrapperFactoryList_t), intent(in) :: this
Wrapper Factory List

Return Value logical

Check if Value is allocated

procedure, public, non_overridable :: SetValue => WrapperFactoryList_SetValue

private subroutine WrapperFactoryList_SetValue(this, Value)

Return a concrete WrapperFactory

Arguments

Type	Intent	Optional	Attributes		Name
class(WrapperFactoryList_t),	intent(inout)			::	this	Wrapper Factory List
class(WrapperFactory_t),	intent(in),		target	::	Value	Concrete WrapperFactory

procedure, public, non_overridable :: GetValue => WrapperFactoryList_GetValue

private subroutine WrapperFactoryList_GetValue(this, Value)

Return a concrete WrapperFactory

Arguments

Type	Intent	Optional	Attributes		Name
class(WrapperFactoryList_t),	intent(in)			::	this	Wrapper Factory List
class(WrapperFactory_t),	intent(out),		pointer	::	Value	Concrete WrapperFactory pointer

procedure, public, non_overridable :: Free => WrapperFactoryList_Free

private recursive subroutine WrapperFactoryList_Free(this)

Free the list

Arguments

Type Intent Optional Attributes Name

class(WrapperFactoryList_t), intent(inout) :: this
Wrapper Factory List

procedure, public, non_overridable :: AddWrapperFactory => WrapperFactoryList_AddWrapperFactory

private recursive subroutine WrapperFactoryList_AddWrapperFactory(this, Key, WrapperFactory)

Add a new Node if key does not Exist

Arguments

Type	Intent	Optional	Attributes		Name
class(WrapperFactoryList_t),	intent(inout)			::	this	Wrapper Factory List
character(len=*),	intent(in)			::	Key	Key (unique) of the current node.
class(WrapperFactory_t),	intent(in),		target	::	WrapperFactory	Wrapper Factory

procedure, public, non_overridable :: Print => WrapperFactoryList_Print

private subroutine WrapperFactoryList_Print(this, unit, prefix, iostat, iomsg)

Print the keys contained in the list

Arguments

Type	Intent	Optional	Attributes		Name
class(WrapperFactoryList_t),	intent(in),		target	::	this	Wrapper Factory List
integer(kind=I4P),	intent(in)			::	unit	Logic unit.
character(len=*),	intent(in),	optional		::	prefix	Prefixing string.
integer(kind=I4P),	intent(out),	optional		::	iostat	IO error.
character(len=*),	intent(out),	optional		::	iomsg	IO error message.

generic, public :: GetFactory => WrapperFactoryList_GetFactory0D, WrapperFactoryList_GetFactory1D, WrapperFactoryList_GetFactory2D, WrapperFactoryList_GetFactory3D, WrapperFactoryList_GetFactory4D, WrapperFactoryList_GetFactory5D, WrapperFactoryList_GetFactory6D, WrapperFactoryList_GetFactory7D

private recursive function WrapperFactoryList_GetFactory0D(this, Value) result(WrapperFactory)

Return a WrapperFactory given a value

Arguments

Type	Intent	Optional	Attributes		Name
class(WrapperFactoryList_t),	intent(in)			::	this	Wrapper Factory List
class(*),	intent(in)			::	Value	Polymorphic Mold

Return Value class(WrapperFactory_t), pointer

Wrapper Factory

private recursive function WrapperFactoryList_GetFactory1D(this, Value) result(WrapperFactory)

Return a WrapperFactory given a value

Arguments

Type	Intent	Optional	Attributes		Name
class(WrapperFactoryList_t),	intent(in)			::	this	Wrapper Factory List
class(*),	intent(in)			::	Value(1:)	Polymorphic Mold

Return Value class(WrapperFactory_t), pointer

Wrapper Factory

private recursive function WrapperFactoryList_GetFactory2D(this, Value) result(WrapperFactory)

Return a WrapperFactory given a value

Arguments

Type	Intent	Optional	Attributes		Name
class(WrapperFactoryList_t),	intent(in)			::	this	Wrapper Factory List
class(*),	intent(in)			::	Value(1:,1:)	Polymorphic Mold

Return Value class(WrapperFactory_t), pointer

Wrapper Factory

private recursive function WrapperFactoryList_GetFactory3D(this, Value) result(WrapperFactory)

Return a WrapperFactory given a value

Arguments

Type	Intent	Optional	Attributes		Name
class(WrapperFactoryList_t),	intent(in)			::	this	Wrapper Factory List
class(*),	intent(in)			::	Value(1:,1:,1:)	Polymorphic Mold

Return Value class(WrapperFactory_t), pointer

Wrapper Factory

private recursive function WrapperFactoryList_GetFactory4D(this, Value) result(WrapperFactory)

Return a WrapperFactory given a value

Arguments

Type	Intent	Optional	Attributes		Name
class(WrapperFactoryList_t),	intent(in)			::	this	Wrapper Factory List
class(*),	intent(in)			::	Value(1:,1:,1:,1:)	Polymorphic Mold

Return Value class(WrapperFactory_t), pointer

Wrapper Factory

private recursive function WrapperFactoryList_GetFactory5D(this, Value) result(WrapperFactory)

Return a WrapperFactory given a value

Arguments

Type	Intent	Optional	Attributes		Name
class(WrapperFactoryList_t),	intent(in)			::	this	Wrapper Factory List
class(*),	intent(in)			::	Value(1:,1:,1:,1:,1:)	Polymorphic Mold

Return Value class(WrapperFactory_t), pointer

Wrapper Factory

private recursive function WrapperFactoryList_GetFactory6D(this, Value) result(WrapperFactory)

Return a WrapperFactory given a value

Arguments

Type	Intent	Optional	Attributes		Name
class(WrapperFactoryList_t),	intent(in)			::	this	Wrapper Factory List
class(*),	intent(in)			::	Value(1:,1:,1:,1:,1:,1:)	Polymorphic Mold

Return Value class(WrapperFactory_t), pointer

Wrapper Factory

private recursive function WrapperFactoryList_GetFactory7D(this, Value) result(WrapperFactory)

Return a WrapperFactory given a value

Arguments

Type	Intent	Optional	Attributes		Name
class(WrapperFactoryList_t),	intent(in)			::	this	Wrapper Factory List
class(*),	intent(in)			::	Value(1:,1:,1:,1:,1:,1:,1:)	Polymorphic Mold

Return Value class(WrapperFactory_t), pointer

Wrapper Factory

Source Code

    type, public :: WrapperFactoryList_t
    private
        character(len=:), allocatable :: Key
        class(WrapperFactory_t), pointer :: Value          => null()
        class(WrapperFactoryList_t), public, pointer  :: Next   => null()
    contains
    private
        procedure, non_overridable, public :: HasNext           => WrapperFactoryList_HasNext
        procedure, non_overridable, public :: SetNext           => WrapperFactoryList_SetNext
        procedure, non_overridable, public :: GetNext           => WrapperFactoryList_GetNext
        procedure, non_overridable, public :: NullifyNext       => WrapperFactoryList_NullifyNext
        procedure, non_overridable, public :: HasKey            => WrapperFactoryList_HasKey
        procedure, non_overridable, public :: SetKey            => WrapperFactoryList_SetKey
        procedure, non_overridable, public :: GetKey            => WrapperFactoryList_GetKey
        procedure, non_overridable, public :: DeallocateKey     => WrapperFactoryList_DeallocateKey
        procedure, non_overridable, public :: HasValue          => WrapperFactoryList_HasValue
        procedure, non_overridable, public :: SetValue          => WrapperFactoryList_SetValue
        procedure, non_overridable, public :: GetValue          => WrapperFactoryList_GetValue
        procedure, non_overridable, public :: Free              => WrapperFactoryList_Free
        procedure, non_overridable, public :: AddWrapperFactory => WrapperFactoryList_AddWrapperFactory
        procedure, non_overridable, public :: Print             => WrapperFactoryList_Print
        procedure, non_overridable         ::                      WrapperFactoryList_GetFactory0D
        procedure, non_overridable         ::                      WrapperFactoryList_GetFactory1D
        procedure, non_overridable         ::                      WrapperFactoryList_GetFactory2D
        procedure, non_overridable         ::                      WrapperFactoryList_GetFactory3D
        procedure, non_overridable         ::                      WrapperFactoryList_GetFactory4D
        procedure, non_overridable         ::                      WrapperFactoryList_GetFactory5D
        procedure, non_overridable         ::                      WrapperFactoryList_GetFactory6D
        procedure, non_overridable         ::                      WrapperFactoryList_GetFactory7D
        generic,   public :: GetFactory        => WrapperFactoryList_GetFactory0D, &
                                                  WrapperFactoryList_GetFactory1D, &
                                                  WrapperFactoryList_GetFactory2D, &
                                                  WrapperFactoryList_GetFactory3D, &
                                                  WrapperFactoryList_GetFactory4D, &
                                                  WrapperFactoryList_GetFactory5D, &
                                                  WrapperFactoryList_GetFactory6D, &
                                                  WrapperFactoryList_GetFactory7D
        final             ::                      WrapperFactoryList_Finalize
    end type WrapperFactoryList_t

All Derived Types

Circle_t CircleWrapper_t DimensionsWrapper0D_DLCA_t DimensionsWrapper0D_I1P_t DimensionsWrapper0D_I2P_t DimensionsWrapper0D_I4P_t DimensionsWrapper0D_I8P_t DimensionsWrapper0D_L_t DimensionsWrapper0D_R4P_t DimensionsWrapper0D_R8P_t DimensionsWrapper0D_t DimensionsWrapper1D_DLCA_t DimensionsWrapper1D_I1P_t DimensionsWrapper1D_I2P_t DimensionsWrapper1D_I4P_t DimensionsWrapper1D_I8P_t DimensionsWrapper1D_L_t DimensionsWrapper1D_R4P_t DimensionsWrapper1D_R8P_t DimensionsWrapper1D_t DimensionsWrapper2D_DLCA_t DimensionsWrapper2D_I1P_t DimensionsWrapper2D_I2P_t DimensionsWrapper2D_I4P_t DimensionsWrapper2D_I8P_t DimensionsWrapper2D_L_t DimensionsWrapper2D_R4P_t DimensionsWrapper2D_R8P_t DimensionsWrapper2D_t DimensionsWrapper3D_DLCA_t DimensionsWrapper3D_I1P_t DimensionsWrapper3D_I2P_t DimensionsWrapper3D_I4P_t DimensionsWrapper3D_I8P_t DimensionsWrapper3D_L_t DimensionsWrapper3D_R4P_t DimensionsWrapper3D_R8P_t DimensionsWrapper3D_t DimensionsWrapper4D_DLCA_t DimensionsWrapper4D_I1P_t DimensionsWrapper4D_I2P_t DimensionsWrapper4D_I4P_t DimensionsWrapper4D_I8P_t DimensionsWrapper4D_L_t DimensionsWrapper4D_R4P_t DimensionsWrapper4D_R8P_t DimensionsWrapper4D_t DimensionsWrapper5D_DLCA_t DimensionsWrapper5D_I1P_t DimensionsWrapper5D_I2P_t DimensionsWrapper5D_I4P_t DimensionsWrapper5D_I8P_t DimensionsWrapper5D_L_t DimensionsWrapper5D_R4P_t DimensionsWrapper5D_R8P_t DimensionsWrapper5D_t DimensionsWrapper6D_DLCA_t DimensionsWrapper6D_I1P_t DimensionsWrapper6D_I2P_t DimensionsWrapper6D_I4P_t DimensionsWrapper6D_I8P_t DimensionsWrapper6D_L_t DimensionsWrapper6D_R4P_t DimensionsWrapper6D_R8P_t DimensionsWrapper6D_t DimensionsWrapper7D_DLCA_t DimensionsWrapper7D_I1P_t DimensionsWrapper7D_I2P_t DimensionsWrapper7D_I4P_t DimensionsWrapper7D_I8P_t DimensionsWrapper7D_L_t DimensionsWrapper7D_R4P_t DimensionsWrapper7D_R8P_t DimensionsWrapper7D_t DimensionsWrapper_t EntryListIterator_t ParameterEntry_t ParameterEntryDictionary_t ParameterList_t ParameterListIterator_t ParameterRootEntry_t WrapperFactory_t WrapperFactoryList_t