Dictionary_ Derived Type

type, public :: Dictionary_


Contents


Components

TypeVisibility AttributesNameInitial
type(Page_), public, allocatable:: Dictionary(:)

Type-Bound Procedures

procedure, public :: Init => InitializeDictionary

  • public subroutine InitializeDictionary(obj, NumOfPage)

    Arguments

    Type IntentOptional AttributesName
    class(Dictionary_), intent(inout) :: obj
    integer(kind=int32), intent(in) :: NumOfPage

procedure, public :: Input => InputDictionary

  • public subroutine InputDictionary(obj, page, Content, RealValue, IntValue, Realist, Intlist)

    Arguments

    Type IntentOptional AttributesName
    class(Dictionary_), intent(inout) :: obj
    integer(kind=int32), intent(in) :: page
    character(len=*), intent(in), optional :: Content
    real(kind=real64), intent(in), optional :: RealValue
    integer(kind=int32), intent(in), optional :: IntValue
    real(kind=real64), intent(in), optional :: Realist(:)
    integer(kind=int32), intent(in), optional :: Intlist(:)

procedure, public :: Get => GetDictionaryValue

  • public function GetDictionaryValue(obj, page) result(content)

    Arguments

    Type IntentOptional AttributesName
    class(Dictionary_), intent(in) :: obj
    integer(kind=int32), intent(in) :: page

    Return Value character(len=200)

procedure, public :: GetPageNum => GetPageNumDictionary

  • public function GetPageNumDictionary(obj, Content) result(page)

    Arguments

    Type IntentOptional AttributesName
    class(Dictionary_), intent(in) :: obj
    character(len=*), intent(in) :: Content

    Return Value integer(kind=int32)

procedure, public :: sizeof => sizeofDictionary

  • public function sizeofDictionary(obj) result(n)

    Arguments

    Type IntentOptional AttributesName
    class(Dictionary_), intent(in) :: obj

    Return Value integer(kind=int32)

procedure, public :: content => contentofDictionary

  • public function contentofDictionary(obj, id) result(content)

    Arguments

    Type IntentOptional AttributesName
    class(Dictionary_), intent(in) :: obj
    integer(kind=int32), intent(in) :: id

    Return Value character(len=200)

procedure, public :: intlist => intlistofDictionary

  • public function intlistofDictionary(obj, page, ind) result(n)

    Arguments

    Type IntentOptional AttributesName
    class(Dictionary_), intent(in) :: obj
    integer(kind=int32), intent(in) :: page
    integer(kind=int32), intent(in) :: ind

    Return Value integer(kind=int32)

procedure, public :: intvalue => intvalueofDictionary

  • public function intvalueofDictionary(obj, page) result(n)

    Arguments

    Type IntentOptional AttributesName
    class(Dictionary_), intent(in) :: obj
    integer(kind=int32), intent(in) :: page

    Return Value integer(kind=int32)

procedure, public :: realvalue => realvalueofDictionary

  • public function realvalueofDictionary(obj, page) result(n)

    Arguments

    Type IntentOptional AttributesName
    class(Dictionary_), intent(in) :: obj
    integer(kind=int32), intent(in) :: page

    Return Value real(kind=real64)

procedure, public :: show => showDictionary

  • public subroutine showDictionary(obj, From, to, Name)

    Arguments

    Type IntentOptional AttributesName
    class(Dictionary_) :: obj
    integer(kind=int32), intent(in), optional :: From
    integer(kind=int32), intent(in), optional :: to
    character(len=*), intent(in), optional :: Name

procedure, public :: export => exportDictionary

  • public subroutine exportDictionary(obj, FileName, fh, From, to)

    Arguments

    Type IntentOptional AttributesName
    class(Dictionary_) :: obj
    character(len=*), intent(in) :: FileName
    integer(kind=int32), intent(in), optional :: fh
    integer(kind=int32), intent(in), optional :: From
    integer(kind=int32), intent(in), optional :: to