para_list Derived Type

  1. paralist.f90
  2. parameter_list
  3. para_list

type, public, extends(dictionary) :: para_list


Contents

Type-Bound Procedures


Type-Bound Procedures

procedure, public :: get_names

  • private function get_names(D) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D

    Return Value character(len=max_char_length), allocatable, (:)

procedure, public :: sub_name

  • private function sub_name(D, names) result(out_list)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: names(:)

    Return Value type(dictionary)

procedure, public :: sub_val

  • private function sub_val(D, value) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: value

    Return Value type(dictionary)

generic, public :: setvalue => isetvalue, dsetvalue, zsetvalue, asetvalue, lsetvalue, tsetvalue, misetvalue, mdsetvalue, masetvalue, mlsetvalue

  • private subroutine isetvalue(D, name, val, add_tag)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    integer, intent(in) :: val
    logical, intent(in), optional :: add_tag

  • private subroutine dsetvalue(D, name, val, add_tag)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    real(kind=8), intent(in) :: val
    logical, intent(in), optional :: add_tag

  • private subroutine zsetvalue(D, name, val, add_tag)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    complex(kind=8), intent(in) :: val
    logical, intent(in), optional :: add_tag

  • private subroutine asetvalue(D, name, val, add_tag)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val
    logical, intent(in), optional :: add_tag

  • private subroutine lsetvalue(D, name, val, add_tag)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    logical, intent(in) :: val
    logical, intent(in), optional :: add_tag

  • private subroutine tsetvalue(D, name, val, add_tag)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    type(tensor), intent(in) :: val
    logical, intent(in), optional :: add_tag

  • private subroutine misetvalue(D, name, val, add_tag)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    integer, intent(in) :: val(:)
    logical, intent(in), optional :: add_tag

  • private subroutine mdsetvalue(D, name, val, add_tag)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    real(kind=8), intent(in) :: val(:)
    logical, intent(in), optional :: add_tag

  • private subroutine masetvalue(D, name, val, add_tag)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val(:)
    logical, intent(in), optional :: add_tag

  • private subroutine mlsetvalue(D, name, val, add_tag)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    logical, intent(in) :: val(:)
    logical, intent(in), optional :: add_tag

generic, public :: getvalue => igetvalue, dgetvalue, zgetvalue, agetvalue, lgetvalue, tgetvalue, migetvalue, mdgetvalue, magetvalue, mlgetvalue

  • private subroutine igetvalue(D, name, val)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name
    integer, intent(inout) :: val

  • private subroutine dgetvalue(D, name, val)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name
    real(kind=8), intent(inout) :: val

  • private subroutine zgetvalue(D, name, val)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name
    complex(kind=8), intent(inout) :: val

  • private subroutine agetvalue(D, name, val)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name
    character(len=*), intent(inout) :: val

  • private subroutine lgetvalue(D, name, val)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name
    logical, intent(inout) :: val

  • private subroutine tgetvalue(D, name, val)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name
    type(tensor), intent(inout) :: val

  • private subroutine migetvalue(D, name, val)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name
    integer, intent(inout), allocatable:: val(:)

  • private subroutine mdgetvalue(D, name, val)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name
    real(kind=8), intent(inout), allocatable:: val(:)

  • private subroutine magetvalue(D, name, val)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name
    character(len=max_char_length), intent(inout), allocatable:: val(:)

  • private subroutine mlgetvalue(D, name, val)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name
    logical, intent(inout), allocatable:: val(:)

generic, public :: insert => insert_int, insert_dbl, insert_com, insert_char, insert_logi, insert_ten, insert_int_ary, insert_dbl_ary, insert_char_ary, insert_logi_ary

  • private subroutine insert_int(D, name, value)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    integer, intent(in) :: value

  • private subroutine insert_dbl(D, name, value)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    real(kind=8), intent(in) :: value

  • private subroutine insert_com(D, name, value)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    complex(kind=8), intent(in) :: value

  • private subroutine insert_char(D, name, value)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: value

  • private subroutine insert_logi(D, name, value)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    logical, intent(in) :: value

  • private subroutine insert_ten(D, name, value)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    type(tensor), intent(in) :: value

  • private subroutine insert_int_ary(D, name, value)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    integer, intent(in) :: value(:)

  • private subroutine insert_dbl_ary(D, name, value)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    real(kind=8), intent(in) :: value(:)

  • private subroutine insert_char_ary(D, name, value)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: value(:)

  • private subroutine insert_logi_ary(D, name, value)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name
    logical, intent(in) :: value(:)

procedure, public :: mli

  • private function mli(D, name) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name

    Return Value logical, allocatable, (:)

procedure, public :: mai

  • private function mai(D, name) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name

    Return Value character(len=max_char_length), allocatable, (:)

procedure, public :: mdi

  • private function mdi(D, name) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name

    Return Value real(kind=8), allocatable, (:)

procedure, public :: mii

  • private function mii(D, name) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name

    Return Value integer, allocatable, (:)

procedure, public :: ti

  • private function ti(D, name) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name

    Return Value type(tensor)

procedure, public :: li

  • private function li(D, name) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name

    Return Value logical

procedure, public :: ai

  • private function ai(D, name) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name

    Return Value character(len=max_char_length)

procedure, public :: zi

  • private function zi(D, name) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name

    Return Value complex(kind=8)

procedure, public :: di

  • private function di(D, name) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name

    Return Value real(kind=8)

procedure, public :: ii

  • private function ii(D, name) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name

    Return Value integer

procedure, public :: append

  • private subroutine append(P1, P2)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: P1
    type(dictionary), intent(in) :: P2

procedure, public :: check_contain

  • private function check_contain(D, name) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(inout) :: D
    character(len=*), intent(in) :: name

    Return Value logical

procedure, public :: search

  • private subroutine search(D, name, type, pos, existed)

    Arguments

    Type IntentOptional AttributesName
    class(dictionary), intent(in) :: D
    character(len=*), intent(in) :: name
    integer, intent(out) :: type
    integer, intent(out) :: pos
    logical, intent(out) :: existed

procedure, public :: read

  • private subroutine read(G, unit)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: G
    integer, intent(in) :: unit

procedure, public :: print

  • private subroutine print(D, unit, end_tag_)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(in) :: D
    integer, intent(in), optional :: unit
    logical, intent(in), optional :: end_tag_

procedure, public :: subpara_name

  • private function subpara_name(D, names) result(out_list)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(in) :: D
    character(len=*), intent(in) :: names(:)

    Return Value type(para_list)

procedure, public :: subpara_class

  • private function subpara_class(D, class) result(out_list)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(in) :: D
    character(len=*), intent(in) :: class

    Return Value type(para_list)

procedure, public :: clean

  • private subroutine clean(D)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: D

procedure, public :: rename

  • private subroutine rename(D, name, new_name)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: D
    character(len=*), intent(in) :: name
    character(len=*), intent(inout) :: new_name

procedure, public :: setclass

  • private subroutine setclass(D, name, new_class)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: D
    character(len=*), intent(in) :: name
    character(len=*), intent(inout) :: new_class

generic, public :: pinsert => pinsert_int, pinsert_real, pinsert_com, pinsert_char, pinsert_logi, pinsert_int_ary, pinsert_real_ary, pinsert_char_ary, pinsert_logi_ary

  • private subroutine pinsert_int(D, name, value, class)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: D
    character(len=*), intent(in) :: name
    integer, intent(in) :: value
    character(len=*), intent(in), optional :: class

  • private subroutine pinsert_real(D, name, value, class)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: D
    character(len=*), intent(in) :: name
    real(kind=8), intent(in) :: value
    character(len=*), intent(in), optional :: class

  • private subroutine pinsert_com(D, name, value, class)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: D
    character(len=*), intent(in) :: name
    complex(kind=8), intent(in) :: value
    character(len=*), intent(in), optional :: class

  • private subroutine pinsert_char(D, name, value, class)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: D
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: value
    character(len=*), intent(in), optional :: class

  • private subroutine pinsert_logi(D, name, value, class)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: D
    character(len=*), intent(in) :: name
    logical, intent(in) :: value
    character(len=*), intent(in), optional :: class

  • private subroutine pinsert_int_ary(D, name, value, class)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: D
    character(len=*), intent(in) :: name
    integer, intent(in) :: value(:)
    character(len=*), intent(in), optional :: class

  • private subroutine pinsert_real_ary(D, name, value, class)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: D
    character(len=*), intent(in) :: name
    real(kind=8), intent(in) :: value(:)
    character(len=*), intent(in), optional :: class

  • private subroutine pinsert_char_ary(D, name, value, class)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: D
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: value(:)
    character(len=*), intent(in), optional :: class

  • private subroutine pinsert_logi_ary(D, name, value, class)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: D
    character(len=*), intent(in) :: name
    logical, intent(in) :: value(:)
    character(len=*), intent(in), optional :: class

procedure, public :: delete

  • private subroutine delete(D, name)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: D
    character(len=*), intent(in) :: name

procedure, public :: append_para

  • private subroutine append_para(P1, P2)

    Arguments

    Type IntentOptional AttributesName
    class(para_list), intent(inout) :: P1
    class(para_list), intent(in) :: P2