table Derived Type

  1. type_table.f90
  2. type_table
  3. table

type, public :: table


Contents

Variables

Type-Bound Procedures

Source Code

table

Components

TypeVisibility AttributesNameInitial
integer, public, allocatable:: lookup(:)
integer, public, allocatable:: tab(:)

Type-Bound Procedures

procedure, public :: alloc_table

  • interface

    private module subroutine alloc_table(a2b, nel, ntab)

    Arguments

    Type IntentOptional AttributesName
    class(table), intent(inout) :: a2b
    integer, intent(in), optional :: nel
    integer, intent(in), optional :: ntab

procedure, public :: free_table

  • interface

    private module subroutine free_table(a2b)

    Arguments

    Type IntentOptional AttributesName
    class(table), intent(inout) :: a2b

procedure, public :: get_dual_table

  • interface

    private module subroutine get_dual_table(a2b, b2a)

    Arguments

    Type IntentOptional AttributesName
    class(table), intent(in) :: a2b
    type(table), intent(out) :: b2a

generic, public :: nemo_sizeof => nemo_table_sizeof

procedure, private :: nemo_table_sizeof

  • interface

    private elemental module function nemo_table_sizeof(tab)

    Arguments

    Type IntentOptional AttributesName
    class(table), intent(in) :: tab

    Return Value integer(kind=nemo_int_long_)

Source Code

    TYPE table
        INTEGER, ALLOCATABLE :: lookup(:)
        INTEGER, ALLOCATABLE :: tab(:)
    CONTAINS
        PROCEDURE:: alloc_table, free_table, get_dual_table
        PROCEDURE, PRIVATE :: nemo_table_sizeof
        GENERIC, PUBLIC :: nemo_sizeof => nemo_table_sizeof
    END TYPE table