nest_lattice Derived Type

type, public, extends(lattice) :: nest_lattice


Contents


Components

TypeVisibility AttributesNameInitial
class(lattice), public, pointer:: lat_pre

Type-Bound Procedures

procedure, public :: initialize

  • private subroutine initialize(L, my_name, L1, L2, max_nb_num)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    character(len=*), intent(in) :: my_name
    integer, intent(in) :: L1
    integer, intent(in) :: L2
    integer, intent(in) :: max_nb_num

procedure, public :: clean

  • private subroutine clean(L)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L

procedure, public :: mirror_con

  • private subroutine mirror_con(L, L_old, line2, nline)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    type(lattice), intent(in) :: L_old
    integer, intent(in) :: line2
    integer, intent(in) :: nline

procedure, public :: copy_line

  • private subroutine copy_line(L, line, L_old, line2, nline)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: line
    type(lattice), intent(in) :: L_old
    integer, intent(in) :: line2
    integer, intent(in) :: nline

procedure, public :: copy_line_ten

  • private subroutine copy_line_ten(L, line, L_old, line2, nline)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: line
    type(lattice), intent(in) :: L_old
    integer, intent(in) :: line2
    integer, intent(in) :: nline

procedure, public :: copy_line_link

  • private subroutine copy_line_link(L, line, L_old, line2, nline)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: line
    type(lattice), intent(in) :: L_old
    integer, intent(in) :: line2
    integer, intent(in) :: nline

generic, public :: set_bond_as => set_bond_as_pure, set_bond_as_cluster, set_bond_as_path

  • private subroutine set_bond_as_pure(L, L_old)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    type(lattice), intent(in) :: L_old
  • private subroutine set_bond_as_cluster(L, L_old, clusters)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    type(lattice), intent(in) :: L_old
    type(lattice), intent(in), target:: clusters(:,:)
  • private subroutine set_bond_as_path(L, L_old, clusters)

    Arguments

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

procedure, public :: draw_l

  • private subroutine draw_l(L, filename, label_bond, fixed, check_tag, stop_tag)

    Arguments

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

procedure, public :: draw_tn

  • private subroutine draw_tn(L, filename, tnname, includes, path, label_bond_, fixed_, check_tag_, stop_tag_)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: filename
    character(len=*), intent(in) :: tnname
    logical, intent(in) :: includes(:)
    integer, intent(in) :: path(:)
    logical, intent(in), optional :: label_bond_
    logical, intent(in), optional :: fixed_
    logical, intent(in), optional :: check_tag_
    logical, intent(in), optional :: stop_tag_

generic, public :: draw => draw_l, draw_tn

  • private subroutine draw_l(L, filename, label_bond, fixed, check_tag, stop_tag)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in), optional :: filename
    logical, intent(in), optional :: label_bond
    logical, intent(in), optional :: fixed
    logical, intent(in), optional :: check_tag
    logical, intent(in), optional :: stop_tag
  • private subroutine draw_tn(L, filename, tnname, includes, path, label_bond_, fixed_, check_tag_, stop_tag_)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: filename
    character(len=*), intent(in) :: tnname
    logical, intent(in) :: includes(:)
    integer, intent(in) :: path(:)
    logical, intent(in), optional :: label_bond_
    logical, intent(in), optional :: fixed_
    logical, intent(in), optional :: check_tag_
    logical, intent(in), optional :: stop_tag_

generic, public :: add => add_from_ten, add_from_lat_pos

  • private subroutine add_from_ten(L, pos, my_name, my_tensor, save_tag)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: my_name
    type(tensor), intent(in), optional :: my_tensor
    logical, intent(in), optional :: save_tag
  • private subroutine add_from_lat_pos(L, pos, lat, pos2, save_tag)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos(2)
    type(lattice), intent(in) :: lat
    integer, intent(in) :: pos2(2)
    logical, intent(in), optional :: save_tag

generic, public :: delete => delete_pos, delete_name

  • private subroutine delete_pos(L, pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos(2)
  • private subroutine delete_name(L, name)

    Arguments

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

generic, public :: move => move_pos, move_name

  • private subroutine move_pos(L, pos, new_pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos(2)
    integer, intent(in) :: new_pos(2)
  • private subroutine move_name(L, name, new_pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    character(len=*), intent(in) :: name
    integer, intent(in) :: new_pos(2)

procedure, public :: move_row

  • private subroutine move_row(L, row, new_row)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: row
    integer, intent(in) :: new_row

procedure, public :: move_column

  • private subroutine move_column(L, column, new_column)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: column
    integer, intent(in) :: new_column

generic, public :: rename => rename_pos, rename_name

  • private subroutine rename_pos(L, pos, new_name)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: new_name
  • private subroutine rename_name(L, old_name, new_name)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    character(len=*), intent(in) :: old_name
    character(len=*), intent(in) :: new_name

generic, public :: back_up => back_up_pos, back_up_name

  • private subroutine back_up_pos(L, pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos(2)
  • private subroutine back_up_name(L, name)

    Arguments

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

generic, public :: restore => restore_pos, restore_name

  • private subroutine restore_pos(L, pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos(2)
  • private subroutine restore_name(L, name)

    Arguments

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

generic, public :: get_tensor => get_tensor_pos, get_tensor_name

  • private function get_tensor_pos(L, pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)

    Return Value type(tensor)

  • private function get_tensor_name(L, name)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: name

    Return Value type(tensor)

generic, public :: get_tensor_link => get_tensor_link_pos, get_tensor_link_name

  • private subroutine get_tensor_link_pos(L, pos, tlink)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)
    type(tensor), intent(out), pointer:: tlink
  • private subroutine get_tensor_link_name(L, name, tlink)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in), optional :: name
    type(tensor), intent(out), pointer:: tlink

generic, public :: get_env_link => get_env_link_pos, get_env_link_name

  • private subroutine get_env_link_pos(L, pos, no, tlink)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in), target:: L
    integer, intent(in) :: pos(2)
    integer, intent(in) :: no
    type(tensor), intent(out), pointer:: tlink
  • private subroutine get_env_link_name(L, name, no, tlink)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in), target:: L
    character(len=*), intent(in), optional :: name
    integer, intent(in) :: no
    type(tensor), intent(out), pointer:: tlink

generic, public :: get_env_bond => get_env_bond_pos

  • private function get_env_bond_pos(L, pos1, pos2) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in), target:: L
    integer, intent(in) :: pos1(2)
    integer, intent(in) :: pos2(2)

    Return Value type(tensor)

generic, public :: set_env_bond => set_env_bond_pos

  • private subroutine set_env_bond_pos(L, pos1, pos2, env)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos1(2)
    integer, intent(in) :: pos2(2)
    type(tensor), intent(in) :: env

generic, public :: update_tensor => update_tensor_pos, update_tensor_name

  • private subroutine update_tensor_pos(L, pos, new_tensor)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos(2)
    class(tensor), intent(in) :: new_tensor
  • private subroutine update_tensor_name(L, name, new_tensor)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    character(len=*), intent(in) :: name
    class(tensor), intent(in) :: new_tensor

generic, public :: set_tensor => set_tensor_pos, set_tensor_name

  • private subroutine set_tensor_pos(L, pos, my_tensor, save_tag_)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    type(tensor), intent(in), target:: my_tensor
    logical, intent(in), optional :: save_tag_
  • private subroutine set_tensor_name(L, name, my_tensor, save_tag_)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    type(tensor), intent(in), target:: my_tensor
    logical, intent(in), optional :: save_tag_

generic, public :: point_info => point_info_pos, point_info_name, point_info_lat

  • private subroutine point_info_pos(L, pos, dic)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    type(dictionary), intent(inout), pointer:: dic
  • private subroutine point_info_name(L, name, dic)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    type(dictionary), intent(inout), pointer:: dic
  • private subroutine point_info_lat(L, dic)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    type(dictionary), intent(inout), pointer:: dic

generic, public :: set_bond => set_bond_pos, set_bond_name

  • private subroutine set_bond_pos(L, pos, pos2, dir_, dir2_)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos(2)
    integer, intent(in) :: pos2(2)
    character(len=*), intent(in), optional :: dir_
    character(len=*), intent(in), optional :: dir2_
  • private subroutine set_bond_name(L, name, name2, dir_, dir2_)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: name2
    character(len=*), intent(in), optional :: dir_
    character(len=*), intent(in), optional :: dir2_

generic, public :: get_bond => get_bond_pos, get_bond_name

  • private subroutine get_bond_pos(L, pos, no, ind, nb_pos, nb_no, nb_ind)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)
    integer, intent(out) :: no
    character(len=max_char_length), intent(out) :: ind
    integer, intent(in) :: nb_pos(2)
    integer, intent(out) :: nb_no
    character(len=max_char_length), intent(out) :: nb_ind
  • private subroutine get_bond_name(L, name, no, ind, nb_name, nb_no, nb_ind)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: name
    integer, intent(out) :: no
    character(len=max_char_length), intent(out) :: ind
    character(len=*), intent(in) :: nb_name
    integer, intent(out) :: nb_no
    character(len=max_char_length), intent(out) :: nb_ind

generic, public :: get_bonds => get_bonds_pos, get_bonds_name

  • private subroutine get_bonds_pos(L, pos, no, ind, nb_pos, nb_no, nb_ind)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)
    integer, intent(out), allocatable:: no(:)
    character(len=max_char_length), intent(out), allocatable:: ind(:)
    integer, intent(in) :: nb_pos(2)
    integer, intent(out), allocatable:: nb_no(:)
    character(len=max_char_length), intent(out), allocatable:: nb_ind(:)
  • private subroutine get_bonds_name(L, name, no, ind, nb_name, nb_no, nb_ind)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: name
    integer, intent(out), allocatable:: no(:)
    character(len=max_char_length), intent(out), allocatable:: ind(:)
    character(len=*), intent(in) :: nb_name
    integer, intent(out), allocatable:: nb_no(:)
    character(len=max_char_length), intent(out), allocatable:: nb_ind(:)

generic, public :: get_bond_no => get_bond_no_pos, get_bond_no_name

  • private subroutine get_bond_no_pos(L, pos, no, ind, nb_pos, nb_no, nb_ind)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)
    integer, intent(in) :: no
    character(len=max_char_length), intent(out) :: ind
    integer, intent(out) :: nb_pos(2)
    integer, intent(out) :: nb_no
    character(len=max_char_length), intent(out) :: nb_ind
  • private subroutine get_bond_no_name(L, name, no, ind, nb_name, nb_no, nb_ind)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: name
    integer, intent(in) :: no
    character(len=max_char_length), intent(out) :: ind
    character(len=max_char_length), intent(out) :: nb_name
    integer, intent(out) :: nb_no
    character(len=max_char_length), intent(out) :: nb_ind

generic, public :: remove_bond => remove_bond_pos, remove_bond_name

  • private subroutine remove_bond_pos(L, pos, pos2)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos(2)
    integer, intent(in) :: pos2(2)
  • private subroutine remove_bond_name(L, name, name2)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: name2

generic, public :: invert_bond => invert_bond_pos, invert_bond_name

  • private subroutine invert_bond_pos(L, pos, temp)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)
    class(tensor), intent(inout) :: temp
  • private subroutine invert_bond_name(L, name, temp)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: name
    class(tensor), intent(inout) :: temp

generic, public :: get_nb_num => get_nb_num_pos, get_nb_num_name

  • private function get_nb_num_pos(L, pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)

    Return Value integer

  • private function get_nb_num_name(L, name)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: name

    Return Value integer

procedure, public :: get_max_nb_num

  • private function get_max_nb_num(L)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L

    Return Value integer

procedure, public :: absorb

  • private subroutine absorb(L, pos, nb_pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos(2)
    integer, intent(in) :: nb_pos(2)

procedure, public :: get_size

  • private subroutine get_size(L, L1, L2)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(out) :: L1
    integer, intent(out) :: L2

procedure, public :: get_range

  • private subroutine get_range(L, left, right, top, bottom)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(out) :: left
    integer, intent(out) :: right
    integer, intent(out) :: top
    integer, intent(out) :: bottom

generic, public :: get_name => get_name_whole, get_name_site

  • private function get_name_whole(L)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L

    Return Value character(len=max_char_length)

  • private function get_name_site(L, pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)

    Return Value character(len=max_char_length)

procedure, public :: get_pos

  • private function get_pos(L, name) result(pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: name

    Return Value integer (2)

generic, public :: set_name => set_name_lat

  • private subroutine set_name_lat(L, my_name)

    Arguments

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

procedure, public :: ind_name

  • private function ind_name(L, pos, no) result(ind)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)
    integer, intent(in) :: no

    Return Value character(len=max_char_length)

procedure, public :: check_boundary

  • private subroutine check_boundary(L, pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)

procedure, public :: get_contag_pos

  • private function get_contag_pos(L, pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)

    Return Value logical

procedure, public :: get_contag_name

  • private function get_contag_name(L, name)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: name

    Return Value logical

generic, public :: get_contag => get_contag_pos, get_contag_name

  • private function get_contag_pos(L, pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)

    Return Value logical

  • private function get_contag_name(L, name)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: name

    Return Value logical

generic, public :: set_contag => set_contag_pos, set_contag_name

  • private subroutine set_contag_pos(L, pos, status)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos(2)
    logical, intent(in) :: status
  • private subroutine set_contag_name(L, name, status)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    character(len=*), intent(in) :: name
    logical, intent(in) :: status

procedure, public :: cut_bonds

  • private function cut_bonds(L, i, range)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: i
    integer, intent(in), optional :: range

    Return Value integer

procedure, public :: max_cut_bonds

  • private function max_cut_bonds(L, range)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in), optional :: range

    Return Value integer

procedure, public :: get_empty_tag

  • private function get_empty_tag(L)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L

    Return Value logical

generic, public :: check_exist => check_exist_pos, check_exist_name

  • private function check_exist_pos(L, pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)

    Return Value logical

  • private function check_exist_name(L, name)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: name

    Return Value logical

generic, public :: check_exist_bond => check_exist_bond_pos, check_exist_bond_name

  • private function check_exist_bond_pos(L, pos1, pos2)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos1(2)
    integer, intent(in) :: pos2(2)

    Return Value logical

  • private function check_exist_bond_name(L, name1, name2)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: name1
    character(len=*), intent(in) :: name2

    Return Value logical

generic, public :: bonds_num => bonds_num_pos, bonds_num_name

  • private function bonds_num_pos(L, pos1, pos2) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos1(2)
    integer, intent(in) :: pos2(2)

    Return Value integer

  • private function bonds_num_name(L, name1, name2) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: name1
    character(len=*), intent(in) :: name2

    Return Value integer

generic, public :: check_empty => check_empty_whole, check_empty_site_pos, check_empty_site_name

  • private subroutine check_empty_whole(L)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
  • private subroutine check_empty_site_pos(L, pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)
  • private subroutine check_empty_site_name(L, name)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: name

generic, public :: check_unempty => check_unempty_whole, check_unempty_site_pos, check_unempty_site_name

  • private subroutine check_unempty_whole(L)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
  • private subroutine check_unempty_site_pos(L, pos)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    integer, intent(in) :: pos(2)
  • private subroutine check_unempty_site_name(L, name)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L
    character(len=*), intent(in) :: name

procedure, public :: write

  • private subroutine write(L, funit)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: funit

procedure, public :: read

  • private subroutine read(L, funit)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: funit

procedure, public :: generate_ten

  • private subroutine generate_ten(L, D, datatype, type_)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: D
    character(len=*), intent(in) :: datatype
    character(len=*), intent(in), optional :: type_

procedure, public :: generate_env

  • private subroutine generate_env(L, type_)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    character(len=*), optional :: type_

generic, public :: absorb_env => absorb_env_whole

  • private subroutine absorb_env_whole(L)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L

generic, public :: absorb_env_bond => absorb_env_pos_bond, absorb_env_name_bond

  • private subroutine absorb_env_pos_bond(L, pos1, pos2)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos1(2)
    integer, intent(in) :: pos2(2)
  • private subroutine absorb_env_name_bond(L, name1, name2)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    character(len=*), intent(in) :: name1
    character(len=*), intent(in) :: name2

generic, public :: absorb_env_site => absorb_env_pos_site

  • private subroutine absorb_env_pos_site(L, pos, T)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos(2)
    type(tensor), intent(inout) :: T

generic, public :: tensor_absorb_env => tensor_absorb_env_pos

  • private subroutine tensor_absorb_env_pos(L, pos1, pos2, T)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos1(2)
    integer, intent(in) :: pos2(2)
    type(tensor), intent(inout) :: T

generic, public :: spit_env => spit_env_whole

  • private subroutine spit_env_whole(L)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L

generic, public :: spit_env_bond => spit_env_pos_bond, spit_env_name_bond

  • private subroutine spit_env_pos_bond(L, pos1, pos2)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    integer, intent(in) :: pos1(2)
    integer, intent(in) :: pos2(2)
  • private subroutine spit_env_name_bond(L, name1, name2)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    character(len=*), intent(in) :: name1
    character(len=*), intent(in) :: name2

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

  • private subroutine copy_lat(L, L_old)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout) :: L
    type(lattice), intent(in) :: L_old

procedure, public :: transpose_lat

  • private function transpose_lat(L_old) result(L)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(in) :: L_old

    Return Value type(lattice)

generic, public :: insert_info => dinsert_info_whole, dinsert_info_pos, dinsert_info_name, zinsert_info_whole, zinsert_info_pos, zinsert_info_name, iinsert_info_whole, iinsert_info_pos, iinsert_info_name, linsert_info_whole, linsert_info_pos, linsert_info_name, ainsert_info_whole, ainsert_info_pos, ainsert_info_name, tinsert_info_whole, tinsert_info_pos, tinsert_info_name

  • private subroutine dinsert_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(in) :: val
  • private subroutine dinsert_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(in) :: val
  • private subroutine dinsert_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(in) :: val
  • private subroutine zinsert_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(in) :: val
  • private subroutine zinsert_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(in) :: val
  • private subroutine zinsert_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(in) :: val
  • private subroutine iinsert_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    integer, intent(in) :: val
  • private subroutine iinsert_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    integer, intent(in) :: val
  • private subroutine iinsert_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    integer, intent(in) :: val
  • private subroutine linsert_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    logical, intent(in) :: val
  • private subroutine linsert_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    logical, intent(in) :: val
  • private subroutine linsert_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    logical, intent(in) :: val
  • private subroutine ainsert_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    character(len=max_char_length), intent(in) :: val
  • private subroutine ainsert_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    character(len=max_char_length), intent(in) :: val
  • private subroutine ainsert_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    character(len=max_char_length), intent(in) :: val
  • private subroutine tinsert_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    type(tensor), intent(in) :: val
  • private subroutine tinsert_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    type(tensor), intent(in) :: val
  • private subroutine tinsert_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    type(tensor), intent(in) :: val

procedure, public :: tget_info_whole

  • private subroutine tget_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    type(tensor), intent(inout) :: val

procedure, public :: aget_info_whole

  • private subroutine aget_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    character(len=max_char_length), intent(inout) :: val

procedure, public :: lget_info_whole

  • private subroutine lget_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    logical, intent(inout) :: val

procedure, public :: iget_info_whole

  • private subroutine iget_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    integer, intent(inout) :: val

procedure, public :: zget_info_whole

  • private subroutine zget_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(inout) :: val

procedure, public :: dget_info_whole

  • private subroutine dget_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(inout) :: val

procedure, public :: tget_info_pos

  • private subroutine tget_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    type(tensor), intent(inout) :: val

procedure, public :: aget_info_pos

  • private subroutine aget_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    character(len=max_char_length), intent(inout) :: val

procedure, public :: lget_info_pos

  • private subroutine lget_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    logical, intent(inout) :: val

procedure, public :: iget_info_pos

  • private subroutine iget_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    integer, intent(inout) :: val

procedure, public :: zget_info_pos

  • private subroutine zget_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(inout) :: val

procedure, public :: dget_info_pos

  • private subroutine dget_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(inout) :: val

procedure, public :: tget_info_name

  • private subroutine tget_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    type(tensor), intent(inout) :: val

procedure, public :: aget_info_name

  • private subroutine aget_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    character(len=max_char_length), intent(inout) :: val

procedure, public :: lget_info_name

  • private subroutine lget_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    logical, intent(inout) :: val

procedure, public :: iget_info_name

  • private subroutine iget_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    integer, intent(inout) :: val

procedure, public :: zget_info_name

  • private subroutine zget_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(inout) :: val

procedure, public :: dget_info_name

  • private subroutine dget_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(inout) :: val
  • private subroutine dget_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(inout) :: val
  • private subroutine dget_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(inout) :: val
  • private subroutine dget_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(inout) :: val
  • private subroutine zget_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(inout) :: val
  • private subroutine zget_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(inout) :: val
  • private subroutine zget_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(inout) :: val
  • private subroutine iget_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    integer, intent(inout) :: val
  • private subroutine iget_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    integer, intent(inout) :: val
  • private subroutine iget_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    integer, intent(inout) :: val
  • private subroutine lget_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    logical, intent(inout) :: val
  • private subroutine lget_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    logical, intent(inout) :: val
  • private subroutine lget_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    logical, intent(inout) :: val
  • private subroutine aget_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    character(len=max_char_length), intent(inout) :: val
  • private subroutine aget_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    character(len=max_char_length), intent(inout) :: val
  • private subroutine aget_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    character(len=max_char_length), intent(inout) :: val
  • private subroutine tget_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    type(tensor), intent(inout) :: val
  • private subroutine tget_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    type(tensor), intent(inout) :: val
  • private subroutine tget_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    type(tensor), intent(inout) :: val

procedure, public :: tset_info_whole

  • private subroutine tset_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    type(tensor), intent(in) :: val

procedure, public :: aset_info_whole

  • private subroutine aset_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    character(len=*), intent(in) :: val

procedure, public :: lset_info_whole

  • private subroutine lset_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    logical, intent(in) :: val

procedure, public :: iset_info_whole

  • private subroutine iset_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    integer, intent(in) :: val

procedure, public :: zset_info_whole

  • private subroutine zset_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(in) :: val

procedure, public :: dset_info_whole

  • private subroutine dset_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(in) :: val

procedure, public :: tset_info_pos

  • private subroutine tset_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    type(tensor), intent(in) :: val

procedure, public :: aset_info_pos

  • private subroutine aset_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    character(len=max_char_length), intent(in) :: val

procedure, public :: lset_info_pos

  • private subroutine lset_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    logical, intent(in) :: val

procedure, public :: iset_info_pos

  • private subroutine iset_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    integer, intent(in) :: val

procedure, public :: zset_info_pos

  • private subroutine zset_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(in) :: val

procedure, public :: dset_info_pos

  • private subroutine dset_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(in) :: val

procedure, public :: tset_info_name

  • private subroutine tset_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    type(tensor), intent(in) :: val

procedure, public :: aset_info_name

  • private subroutine aset_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    character(len=max_char_length), intent(in) :: val

procedure, public :: lset_info_name

  • private subroutine lset_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    logical, intent(in) :: val

procedure, public :: iset_info_name

  • private subroutine iset_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    integer, intent(in) :: val

procedure, public :: zset_info_name

  • private subroutine zset_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(in) :: val

procedure, public :: dset_info_name

  • private subroutine dset_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(in) :: val
  • private subroutine dset_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(in) :: val
  • private subroutine dset_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(in) :: val
  • private subroutine dset_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    real(kind=8), intent(in) :: val
  • private subroutine zset_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(in) :: val
  • private subroutine zset_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(in) :: val
  • private subroutine zset_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    complex(kind=8), intent(in) :: val
  • private subroutine iset_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    integer, intent(in) :: val
  • private subroutine iset_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    integer, intent(in) :: val
  • private subroutine iset_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    integer, intent(in) :: val
  • private subroutine lset_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    logical, intent(in) :: val
  • private subroutine lset_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    logical, intent(in) :: val
  • private subroutine lset_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    logical, intent(in) :: val
  • private subroutine aset_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    character(len=*), intent(in) :: val
  • private subroutine aset_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    character(len=max_char_length), intent(in) :: val
  • private subroutine aset_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    character(len=max_char_length), intent(in) :: val
  • private subroutine tset_info_whole(L, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: val_name
    type(tensor), intent(in) :: val
  • private subroutine tset_info_pos(L, pos, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    integer, intent(in) :: pos(2)
    character(len=*), intent(in) :: val_name
    type(tensor), intent(in) :: val
  • private subroutine tset_info_name(L, name, val_name, val)

    Arguments

    Type IntentOptional AttributesName
    class(lattice), intent(inout), target:: L
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: val_name
    type(tensor), intent(in) :: val

procedure, public :: initialize_nest

  • private subroutine initialize_nest(LC, L)

    Arguments

    Type IntentOptional AttributesName
    class(nest_lattice), intent(inout) :: LC
    class(lattice), intent(inout), target:: L

procedure, public :: generate

  • private subroutine generate(LC)

    Arguments

    Type IntentOptional AttributesName
    class(nest_lattice), intent(inout) :: LC

procedure, public :: set_cluster

  • private subroutine set_cluster(LC, pos_clt, pos_site)

    Arguments

    Type IntentOptional AttributesName
    class(nest_lattice), intent(inout) :: LC
    integer, intent(in) :: pos_clt(2)
    integer, intent(in) :: pos_site(2)

procedure, public :: set_tensor_nest

  • private subroutine set_tensor_nest(LC, tenname, tenp, to_calc)

    Arguments

    Type IntentOptional AttributesName
    class(nest_lattice), intent(inout) :: LC
    character(len=*), intent(in) :: tenname
    type(tensor), intent(inout) :: tenp
    logical, intent(in) :: to_calc

procedure, public :: get_outer_pos

  • private function get_outer_pos(LC, name) result(pos)

    Arguments

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

    Return Value integer (2)

procedure, public :: calc_except

  • private subroutine calc_except(LC, ten, name)

    Arguments

    Type IntentOptional AttributesName
    class(nest_lattice), intent(inout) :: LC
    type(tn_tensor), intent(inout) :: ten
    character(len=*), intent(in) :: name

procedure, public :: re_calc

  • private subroutine re_calc(LC, back_up)

    Arguments

    Type IntentOptional AttributesName
    class(nest_lattice), intent(inout) :: LC
    logical, intent(in) :: back_up

procedure, public :: restore_nest

  • private subroutine restore_nest(LC)

    Arguments

    Type IntentOptional AttributesName
    class(nest_lattice), intent(inout) :: LC

procedure, public :: check_exist_nest

  • private recursive function check_exist_nest(LC, name) result(res)

    Arguments

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

    Return Value logical

procedure, public :: in_clt

  • private function in_clt(LC, name) result(res)

    Arguments

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

    Return Value logical

procedure, public :: clt_pos

  • private function clt_pos(LC, name) result(res)

    Arguments

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

    Return Value integer (2)