DictionaryClass Module

Uses

- MathClass
- iso_fortran_env

Derived Types

type, public :: Page_

Components

Type	Visibility	Attributes		Name		Initial
character(len=200),	public		::	value
integer(kind=int32),	public		::	IntValue
real(kind=real64),	public		::	RealValue
integer(kind=int32),	public,	allocatable	::	intlist(:)
real(kind=real64),	public,	allocatable	::	realist(:)

type, public :: Dictionary_

Components

Type	Visibility	Attributes		Name		Initial
type(Page_),	public,	allocatable	::	Dictionary(:)

Type-Bound Procedures

procedure, public :: Init => InitializeDictionary
procedure, public :: Input => InputDictionary
procedure, public :: Get => GetDictionaryValue
procedure, public :: GetPageNum => GetPageNumDictionary
procedure, public :: sizeof => sizeofDictionary
procedure, public :: content => contentofDictionary
procedure, public :: intlist => intlistofDictionary
procedure, public :: intvalue => intvalueofDictionary
procedure, public :: realvalue => realvalueofDictionary
procedure, public :: show => showDictionary
procedure, public :: export => exportDictionary

type, public, extends(Page_) :: FileInfo_

Components

Type	Visibility	Attributes		Name		Initial
character(len=200),	public		::	value
integer(kind=int32),	public		::	IntValue
real(kind=real64),	public		::	RealValue
integer(kind=int32),	public,	allocatable	::	intlist(:)
real(kind=real64),	public,	allocatable	::	realist(:)
character(len=200),	public		::	Path
character(len=200),	public		::	DirectoryName
character(len=200),	public		::	FileName
integer(kind=int32),	public		::	FileID

type, public :: FileList_

Components

Type	Visibility	Attributes		Name		Initial
type(FileInfo_),	public,	allocatable	::	FileList(:)

Type-Bound Procedures

procedure, public :: setFilePath
procedure, public :: setDirectoryName
procedure, public :: setFileName

Functions

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

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(in)			::	obj
integer(kind=int32),	intent(in)			::	page
integer(kind=int32),	intent(in)			::	ind

Return Value integer(kind=int32)

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

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(in)			::	obj
integer(kind=int32),	intent(in)			::	page

Return Value integer(kind=int32)

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

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(in)			::	obj
integer(kind=int32),	intent(in)			::	page

Return Value real(kind=real64)

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

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(in)			::	obj
integer(kind=int32),	intent(in)			::	page

Return Value character(len=200)

public function sizeofDictionary(obj) result(n)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(in)			::	obj

Return Value integer(kind=int32)

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

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(in)			::	obj
integer(kind=int32),	intent(in)			::	id

Return Value character(len=200)

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

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(in)			::	obj
character(len=*),	intent(in)			::	Content

Return Value integer(kind=int32)

Subroutines

public subroutine InitializeDictionary(obj, NumOfPage)

Arguments

Type	Intent	Optional	Attributes		Name
class(Dictionary_),	intent(inout)			::	obj
integer(kind=int32),	intent(in)			::	NumOfPage

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

Arguments

Type	Intent	Optional	Attributes		Name
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(:)

public subroutine setFilePath(obj, FilePath, FileID)

Arguments

Type	Intent	Optional	Attributes		Name
class(FileList_),	intent(inout)			::	obj
character(len=200),	intent(in)			::	FilePath
integer(kind=int32),	intent(in)			::	FileID

public subroutine setDirectoryName(obj, DirectoryName, FileID)

Arguments

Type	Intent	Optional	Attributes		Name
class(FileList_),	intent(inout)			::	obj
character(len=200),	intent(in)			::	DirectoryName
integer(kind=int32),	intent(in)			::	FileID

public subroutine setFileName(obj, FileName, FileID)

Arguments

Type	Intent	Optional	Attributes		Name
class(FileList_),	intent(inout)			::	obj
character(len=200),	intent(in)			::	FileName
integer(kind=int32),	intent(in)			::	FileID

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

Arguments

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

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

Arguments

Type	Intent	Optional	Attributes		Name
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