tn_tensor Derived Type

  1. tn_tensor.f90
  2. tn_tensor_type
  3. tn_tensor

type, public, extends(tensor) :: tn_tensor


Contents

Type-Bound Procedures


Type-Bound Procedures

procedure, public :: get_info

  • private subroutine get_info(T)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T

procedure, public :: draw

  • private subroutine draw(T, tnname, label_bond, fixed, check_tag)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T
    character(len=*), intent(in) :: tnname
    logical, intent(in), optional :: label_bond
    logical, intent(in), optional :: fixed
    logical, intent(in), optional :: check_tag

procedure, public :: empty

  • private subroutine empty(T)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T

procedure, public :: absorb

  • private subroutine absorb(T, pos)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T
    integer, intent(in) :: pos(2)

procedure, public :: absorb_with_env

  • private subroutine absorb_with_env(T, pos)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T
    integer, intent(in) :: pos(2)

procedure, public :: absorb_just_env

  • private subroutine absorb_just_env(T, pos)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T
    integer, intent(in) :: pos(2)

procedure, public :: take

  • private subroutine take(T, pos)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T
    integer, intent(in) :: pos(2)

generic, public :: absorb_all => absorb_all0, absorb_all1

  • private subroutine absorb_all0(T, abp_)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T
    type(path), intent(in), optional :: abp_

  • private subroutine absorb_all1(T1, T2, abp_)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T1
    class(tn_tensor), intent(inout) :: T2
    type(path), intent(in), optional :: abp_

procedure, public :: belong

  • private subroutine belong(T, L)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T
    class(lattice), intent(in), target:: L

generic, public :: take_except => take_except_pos, take_except_name, take_except_path, take_except_group

  • private subroutine take_except_pos(T, pos)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T
    integer, intent(in) :: pos(2)

  • private subroutine take_except_name(T, name)

    Arguments

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

  • private subroutine take_except_path(T, pat)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T
    type(path), intent(in) :: pat

  • private subroutine take_except_group(T, grp)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T
    type(group), intent(in) :: grp

generic, public :: absorb_except => absorb0_except_pos, absorb0_except_name, absorb1_except_pos

  • private subroutine absorb0_except_pos(T, pos, abp_)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T
    integer, intent(in) :: pos(2)
    type(path), intent(in), optional :: abp_

  • private subroutine absorb0_except_name(T, name, abp)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T
    character(len=*), intent(in) :: name
    type(path), intent(in), optional :: abp

  • private subroutine absorb1_except_pos(T, T2, pos, abp_)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T
    class(tn_tensor), intent(inout) :: T2
    integer, intent(in) :: pos(2)
    type(path), intent(in), optional :: abp_

procedure, public :: invert_bond

  • private subroutine invert_bond(T)

    Arguments

    Type IntentOptional AttributesName
    class(tn_tensor), intent(inout) :: T

procedure, public :: get_lattice_link

  • private subroutine get_lattice_link(T, L)

    Arguments

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