keytable – Morfeus Framework

type, public :: keytable

Inherits

Inherited by

Variables

row

Type-Bound Procedures

alloc_keytable exists free_keytable get_kt_row get_row_lb get_row_size get_row_ub get_rows nemo_sizeof set_kt_row nemo_keytable_sizeof

Source Code

keytable

Components

Type	Visibility	Attributes		Name		Initial
type(a_row),	private,	allocatable	::	row(:)

Type-Bound Procedures

procedure, public :: alloc_keytable

interface

private module subroutine alloc_keytable(table, lb, ub)

Arguments

Type	Intent		Name
class(keytable),	intent(inout)	::	table
integer,	intent(in)	::	lb
integer,	intent(in)	::	ub

procedure, public :: exists

interface

private module function exists(table)

Arguments

Type Intent Optional Attributes Name

class(keytable), intent(in) :: table

Return Value logical

Type	Intent	Optional	Attributes		Name
class(keytable),	intent(in)			::	table

procedure, public :: free_keytable

interface

private module subroutine free_keytable(table)

Arguments

Type Intent Optional Attributes Name

class(keytable), intent(inout) :: table

procedure, public :: get_kt_row

interface

private module subroutine get_kt_row(table, i, irow)

Arguments

Type	Intent	Attributes		Name
class(keytable),	intent(in),	target	::	table
integer,	intent(in)		::	i
integer,		pointer	::	irow(:)

procedure, public :: get_row_lb

interface

private module function get_row_lb(table)

Arguments

Type Intent Optional Attributes Name

class(keytable), intent(in) :: table

Return Value integer

Type	Intent	Optional	Attributes		Name
class(keytable),	intent(in)			::	table

procedure, public :: get_row_size

interface

private module function get_row_size(table, i)

Arguments

Type Intent Optional Attributes Name

class(keytable), intent(in) :: table

integer, intent(in) :: i

Return Value integer

Type	Intent	Optional	Attributes		Name
class(keytable),	intent(in)			::	table
integer,	intent(in)			::	i

procedure, public :: get_row_ub

interface

private module function get_row_ub(table)

Arguments

Type Intent Optional Attributes Name

class(keytable), intent(in) :: table

Return Value integer

Type	Intent	Optional	Attributes		Name
class(keytable),	intent(in)			::	table

procedure, public :: get_rows

interface

private module function get_rows(table)

Arguments

Type Intent Optional Attributes Name

class(keytable), intent(in) :: table

Return Value integer

Type	Intent	Optional	Attributes		Name
class(keytable),	intent(in)			::	table

generic, public :: nemo_sizeof => nemo_keytable_sizeof

private interface nemo_keytable_sizeof()

Arguments
None

procedure, public :: set_kt_row

interface

private module subroutine set_kt_row(table, i, irow)

Arguments

Type	Intent		Name
class(keytable),	intent(inout)	::	table
integer,	intent(in)	::	i
integer,	intent(in)	::	irow(:)

procedure, private :: nemo_keytable_sizeof

interface

private elemental module function nemo_keytable_sizeof(table)

Arguments

Type Intent Optional Attributes Name

class(keytable), intent(in) :: table

Return Value integer(kind=nemo_int_long_)

Type	Intent	Optional	Attributes		Name
class(keytable),	intent(in)			::	table

Source Code

    TYPE keytable
        PRIVATE
        TYPE(a_row), ALLOCATABLE :: row(:)
    CONTAINS
        PROCEDURE :: alloc_keytable, free_keytable     ! Constructor/Destructor
        PROCEDURE :: get_kt_row, get_rows, get_row_ub, get_row_lb  ! Getters
        PROCEDURE :: get_row_size                                  ! Getters, cont.
        PROCEDURE :: set_kt_row                                    ! Setters
        PROCEDURE, PRIVATE :: nemo_keytable_sizeof
        GENERIC, PUBLIC :: nemo_sizeof => nemo_keytable_sizeof
        PROCEDURE, PUBLIC :: exists
    END TYPE keytable

keytable Derived Type

Contents

Variables

Type-Bound Procedures

Source Code

type, public :: keytable

Inherits

Inherited by

Contents

Variables

Type-Bound Procedures

Source Code

Components

Type-Bound Procedures

procedure, public :: alloc_keytable

interface

private module subroutine alloc_keytable(table, lb, ub) Implementation →

Arguments

procedure, public :: exists

interface

private module function exists(table) Implementation →

Arguments

Return Value logical

procedure, public :: free_keytable

interface

private module subroutine free_keytable(table) Implementation →

Arguments

procedure, public :: get_kt_row

interface

private module subroutine get_kt_row(table, i, irow) Implementation →

Arguments

procedure, public :: get_row_lb

interface

private module function get_row_lb(table) Implementation →

Arguments

Return Value integer

procedure, public :: get_row_size

interface

private module function get_row_size(table, i) Implementation →

Arguments

Return Value integer

procedure, public :: get_row_ub

interface

private module function get_row_ub(table) Implementation →

Arguments

Return Value integer

procedure, public :: get_rows

interface

private module function get_rows(table) Implementation →

Arguments

Return Value integer

generic, public :: nemo_sizeof => nemo_keytable_sizeof

private interface nemo_keytable_sizeof()

Arguments

procedure, public :: set_kt_row

interface

private module subroutine set_kt_row(table, i, irow) Implementation →

Arguments

procedure, private :: nemo_keytable_sizeof

interface

private elemental module function nemo_keytable_sizeof(table) Implementation →

Arguments

Return Value integer(kind=nemo_int_long_)

Source Code

private module subroutine alloc_keytable(table, lb, ub)

private module function exists(table)

private module subroutine free_keytable(table)

private module subroutine get_kt_row(table, i, irow)

private module function get_row_lb(table)

private module function get_row_size(table, i)

private module function get_row_ub(table)

private module function get_rows(table)

private module subroutine set_kt_row(table, i, irow)

private elemental module function nemo_keytable_sizeof(table)