path Derived Type

  1. lattice.f90
  2. tensor_network
  3. path

type, public :: path


Contents

Type-Bound Procedures


Type-Bound Procedures

generic, public :: get_name => get_name_path

  • private function get_name_path(P) result(my_name)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(in) :: P

    Return Value character(len=max_char_length)

generic, public :: set_name => set_name_path

  • private subroutine set_name_path(P, my_name)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(inout) :: P
    character(len=*), intent(in) :: my_name

generic, public :: belong => belong_path

  • private subroutine belong_path(P, L)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(inout) :: P
    class(lattice), intent(in), target:: L

generic, public :: add => add_name, add_pos

  • private subroutine add_name(P, name)

    Arguments

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

  • private subroutine add_pos(P, pos)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(inout) :: P
    integer, intent(in) :: pos(2)

generic, public :: get_next => get_next_name, get_next_pos

  • private subroutine get_next_name(P, this_name, next_name)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(inout) :: P
    character(len=*), intent(in) :: this_name
    character(len=*), intent(out) :: next_name

  • private subroutine get_next_pos(P, this_pos, next_pos)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(inout) :: P
    integer, intent(in) :: this_pos(2)
    integer, intent(out) :: next_pos(2)

generic, public :: get_order => get_order_name, get_order_pos

  • private function get_order_name(P, name) result(order)

    Arguments

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

    Return Value integer

  • private function get_order_pos(P, pos) result(order)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(inout) :: P
    integer, intent(in) :: pos(2)

    Return Value integer

generic, public :: get_name => get_name_order

  • private function get_name_order(P, order) result(name)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(inout) :: P
    integer, intent(in) :: order

    Return Value character(len=max_char_length)

generic, public :: get_pos => get_pos_order

  • private function get_pos_order(P, order) result(pos)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(inout) :: P
    integer, intent(in) :: order

    Return Value integer (2)

generic, public :: get_num => get_num_path

  • private function get_num_path(P) result(num)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(in) :: P

    Return Value integer

generic, public :: iterate => iterate_pos, iterate_name

  • private subroutine iterate_pos(P, pos, first_tag)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(inout) :: P
    integer, intent(out) :: pos(2)
    logical, intent(in) :: first_tag

  • private subroutine iterate_name(P, name, first_tag)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(inout) :: P
    character(len=max_char_length), intent(out) :: name
    logical, intent(in) :: first_tag

generic, public :: assignment(=) => copy_path

  • private subroutine copy_path(P1, P2)

    Arguments

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

generic, public :: inverse => inverse_path

  • private function inverse_path(P2) result(P1)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(inout) :: P2

    Return Value type(path)

generic, public :: clean => clean_path

  • private subroutine clean_path(P)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(inout) :: P

generic, public :: generate => generate_path

  • private subroutine generate_path(P, dir, avoid)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(inout) :: P
    character(len=*), intent(in) :: dir
    type(group), intent(in), optional :: avoid

generic, public :: draw => draw_path

  • private subroutine draw_path(P, filename, label_bond, fixed, check_tag)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(in) :: P
    character(len=*), intent(in) :: filename
    logical, intent(in), optional :: label_bond
    logical, intent(in), optional :: fixed
    logical, intent(in), optional :: check_tag

generic, public :: get_lattice_link => get_lattice_link_path

  • private subroutine get_lattice_link_path(P, L)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(in), target:: P
    type(lattice), intent(inout), pointer:: L

generic, public :: check_contain => check_contain_path_pos, check_contain_path_name

  • private function check_contain_path_pos(P, pos) result(ct)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(in) :: P
    integer, intent(in) :: pos(2)

    Return Value logical

  • private function check_contain_path_name(P, name) result(ct)

    Arguments

    Type IntentOptional AttributesName
    class(path), intent(in) :: P
    character(len=*), intent(in) :: name

    Return Value logical