nest_lattice

type, public, extends(lattice) :: nest_lattice

Variables

lat_pre

Type-Bound Procedures

initialize clean mirror_con copy_line copy_line_ten copy_line_link set_bond_as draw_l draw_tn draw add delete move move_row move_column rename back_up restore get_tensor get_tensor_link get_env_link get_env_bond set_env_bond update_tensor set_tensor point_info set_bond get_bond get_bonds get_bond_no remove_bond invert_bond get_nb_num get_max_nb_num absorb get_size get_range get_name get_pos set_name ind_name check_boundary get_contag_pos get_contag_name get_contag set_contag cut_bonds max_cut_bonds get_empty_tag check_exist check_exist_bond bonds_num check_empty check_unempty write read generate_ten generate_env absorb_env absorb_env_bond absorb_env_site tensor_absorb_env spit_env spit_env_bond assignment(=) transpose_lat insert_info tget_info_whole aget_info_whole lget_info_whole iget_info_whole zget_info_whole dget_info_whole tget_info_pos aget_info_pos lget_info_pos iget_info_pos zget_info_pos dget_info_pos tget_info_name aget_info_name lget_info_name iget_info_name zget_info_name dget_info_name get_info tset_info_whole aset_info_whole lset_info_whole iset_info_whole zset_info_whole dset_info_whole tset_info_pos aset_info_pos lset_info_pos iset_info_pos zset_info_pos dset_info_pos tset_info_name aset_info_name lset_info_name iset_info_name zset_info_name dset_info_name set_info initialize_nest generate set_cluster set_tensor_nest get_outer_pos calc_except re_calc restore_nest check_exist_nest in_clt clt_pos

Components

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

class(lattice), intent(inout) :: L

procedure, public :: mirror_con

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

Arguments

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

class(lattice), intent(inout) :: L

type(lattice), intent(in) :: L_old

private subroutine set_bond_as_cluster(L, L_old, clusters)

Arguments

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

class(lattice), intent(inout) :: L

integer, intent(in) :: pos(2)
private subroutine delete_name(L, name)

Arguments

Type Intent Optional Attributes Name

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

class(lattice), intent(inout) :: L

integer, intent(in) :: pos(2)
private subroutine back_up_name(L, name)

Arguments

Type Intent Optional Attributes Name

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

class(lattice), intent(inout) :: L

integer, intent(in) :: pos(2)
private subroutine restore_name(L, name)

Arguments

Type Intent Optional Attributes Name

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

class(lattice), intent(in) :: L

integer, intent(in) :: pos(2)

Return Value type(tensor)
private function get_tensor_name(L, name)

Arguments

Type Intent Optional Attributes Name

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

class(lattice), intent(in) :: L

integer, intent(in) :: pos(2)

Return Value integer
private function get_nb_num_name(L, name)

Arguments

Type Intent Optional Attributes Name

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

class(lattice), intent(in) :: L

Return Value integer

procedure, public :: absorb

private subroutine absorb(L, pos, nb_pos)

Arguments

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

class(lattice), intent(in) :: L

Return Value character(len=max_char_length)
private function get_name_site(L, pos)

Arguments

Type Intent Optional Attributes Name

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

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

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

class(lattice), intent(in) :: L

integer, intent(in) :: pos(2)

procedure, public :: get_contag_pos

private function get_contag_pos(L, pos)

Arguments

Type Intent Optional Attributes Name

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

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

class(lattice), intent(in) :: L

integer, intent(in) :: pos(2)

Return Value logical
private function get_contag_name(L, name)

Arguments

Type Intent Optional Attributes Name

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	Intent		Name
class(lattice),	intent(inout)	::	L
integer,	intent(in)	::	pos(2)
logical,	intent(in)	::	status

private subroutine set_contag_name(L, name, status)

Arguments

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

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

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

class(lattice), intent(in) :: L

integer, intent(in) :: pos(2)

Return Value logical
private function check_exist_name(L, name)

Arguments

Type Intent Optional Attributes Name

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

class(lattice), intent(in) :: L
private subroutine check_empty_site_pos(L, pos)

Arguments

Type Intent Optional Attributes Name

class(lattice), intent(in) :: L

integer, intent(in) :: pos(2)
private subroutine check_empty_site_name(L, name)

Arguments

Type Intent Optional Attributes Name

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

class(lattice), intent(in) :: L
private subroutine check_unempty_site_pos(L, pos)

Arguments

Type Intent Optional Attributes Name

class(lattice), intent(in) :: L

integer, intent(in) :: pos(2)
private subroutine check_unempty_site_name(L, name)

Arguments

Type Intent Optional Attributes Name

class(lattice), intent(in) :: L

character(len=*), intent(in) :: name

procedure, public :: write

private subroutine write(L, funit)

Arguments

Type Intent Optional Attributes Name

class(lattice), intent(inout) :: L

integer, intent(in) :: funit

procedure, public :: read

private subroutine read(L, funit)

Arguments

Type Intent Optional Attributes Name

class(lattice), intent(inout) :: L

integer, intent(in) :: funit

procedure, public :: generate_ten

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

Arguments

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

class(lattice), intent(inout) :: L

character(len=*), optional :: type_

generic, public :: absorb_env => absorb_env_whole

private subroutine absorb_env_whole(L)

Arguments

Type Intent Optional Attributes Name

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

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

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

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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
class(lattice),	intent(inout),	target	::	L
character(len=*),	intent(in)		::	name
character(len=*),	intent(in)		::	val_name
real(kind=8),	intent(inout)		::	val

generic, public :: get_info => dget_info_whole, dget_info_pos, dget_info_name, zget_info_whole, zget_info_pos, zget_info_name, iget_info_whole, iget_info_pos, iget_info_name, lget_info_whole, lget_info_pos, lget_info_name, aget_info_whole, aget_info_pos, aget_info_name, tget_info_whole, tget_info_pos, tget_info_name

private subroutine dget_info_whole(L, val_name, val)

Arguments

Type	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
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	Intent	Attributes		Name
class(lattice),	intent(inout),	target	::	L
character(len=*),	intent(in)		::	name
character(len=*),	intent(in)		::	val_name
real(kind=8),	intent(in)		::	val

generic, public :: set_info => dset_info_whole, dset_info_pos, dset_info_name, zset_info_whole, zset_info_pos, zset_info_name, iset_info_whole, iset_info_pos, iset_info_name, lset_info_whole, lset_info_pos, lset_info_name, aset_info_whole, aset_info_pos, aset_info_name, tset_info_whole, tset_info_pos, tset_info_name

private subroutine dset_info_whole(L, val_name, val)

Arguments

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

class(nest_lattice), intent(inout) :: LC

class(lattice), intent(inout), target :: L

procedure, public :: generate

private subroutine generate(LC)

Arguments

Type Intent Optional Attributes Name

class(nest_lattice), intent(inout) :: LC

procedure, public :: set_cluster

private subroutine set_cluster(LC, pos_clt, pos_site)

Arguments

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

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

class(nest_lattice), intent(inout) :: LC

logical, intent(in) :: back_up

procedure, public :: restore_nest

private subroutine restore_nest(LC)

Arguments

Type Intent Optional Attributes Name

class(nest_lattice), intent(inout) :: LC

procedure, public :: check_exist_nest

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

Arguments

Type Intent Optional Attributes Name

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

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

class(nest_lattice), intent(inout) :: LC

character(len=*), intent(in) :: name

Return Value integer (2)

nest_lattice Derived Type

Contents

Variables

Type-Bound Procedures

type, public, extends(lattice) :: nest_lattice

Contents

Variables

Type-Bound Procedures

Components

Type-Bound Procedures

procedure, public :: initialize

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

Arguments

procedure, public :: clean

private subroutine clean(L)

Arguments

procedure, public :: mirror_con

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

Arguments

procedure, public :: copy_line

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

Arguments

procedure, public :: copy_line_ten

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

Arguments

procedure, public :: copy_line_link

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

Arguments

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

private subroutine set_bond_as_cluster(L, L_old, clusters)

Arguments

private subroutine set_bond_as_path(L, L_old, clusters)

Arguments

procedure, public :: draw_l

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

Arguments

procedure, public :: draw_tn

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

Arguments

generic, public :: draw => draw_l, draw_tn

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

Arguments

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

Arguments

generic, public :: add => add_from_ten, add_from_lat_pos

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

Arguments

private subroutine add_from_lat_pos(L, pos, lat, pos2, save_tag)

Arguments

generic, public :: delete => delete_pos, delete_name

private subroutine delete_pos(L, pos)

Arguments

private subroutine delete_name(L, name)

Arguments

generic, public :: move => move_pos, move_name

private subroutine move_pos(L, pos, new_pos)

Arguments

private subroutine move_name(L, name, new_pos)

Arguments

procedure, public :: move_row

private subroutine move_row(L, row, new_row)

Arguments

procedure, public :: move_column

private subroutine move_column(L, column, new_column)

Arguments

generic, public :: rename => rename_pos, rename_name

private subroutine rename_pos(L, pos, new_name)

Arguments

private subroutine rename_name(L, old_name, new_name)

Arguments

generic, public :: back_up => back_up_pos, back_up_name

private subroutine back_up_pos(L, pos)

Arguments

private subroutine back_up_name(L, name)

Arguments

generic, public :: restore => restore_pos, restore_name

private subroutine restore_pos(L, pos)

Arguments