aim Derived Type

type, public, abstract, extends(lattice) :: aim


Components

Type Visibility Attributes Name Initial
integer, public, allocatable :: k_to_sym(:,:,:)
integer, public, allocatable :: sym_to_k(:,:)
integer, public, allocatable :: mult_table(:,:)
integer, public, allocatable :: inv_table(:)
integer, private :: n_imps = -1
integer, private :: n_bath = -1
integer, private, allocatable :: impurity_sites(:)
integer, private, allocatable :: bath_sites(:)

Constructor

public interface aim

  • private function aim_lattice_constructor(lat_type, length_x, length_y) result(this)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: lat_type
    integer, intent(in) :: length_x
    integer, intent(in) :: length_y

    Return Value class(aim), pointer


Type-Bound Procedures

procedure, public :: get_nsites

  • private elemental function get_nsites(this)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this

    Return Value integer

procedure, public :: get_ndim

  • private elemental function get_ndim(this)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this

    Return Value integer

procedure, public :: get_nconnect_max

  • private function get_nconnect_max(this)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this

    Return Value integer

procedure, public :: is_periodic_x

  • private elemental function is_periodic_x(this)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this

    Return Value logical

procedure, public :: is_periodic_y

  • private elemental function is_periodic_y(this)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this

    Return Value logical

procedure(get_length_t), public, deferred :: get_length

  • pure function get_length_t(this, dimen) result(length) Prototype

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this
    integer, intent(in), optional :: dimen

    Return Value integer

procedure, public :: get_site_index

  • private function get_site_index(this, ind)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this
    integer, intent(in) :: ind

    Return Value integer

procedure, public :: get_neighbors => get_neighbors_lattice

  • private pure function get_neighbors_lattice(this, ind) result(neighbors)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this
    integer, intent(in) :: ind

    Return Value integer, allocatable, (:)

procedure, public :: get_nn_neighbors => get_nn_neighbors_lattice

  • private pure function get_nn_neighbors_lattice(this, ind) result(res)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this
    integer, intent(in) :: ind

    Return Value integer, allocatable, (:)

procedure, public :: get_num_neighbors => get_num_neighbors_lattice

  • private pure function get_num_neighbors_lattice(this, ind) result(n_neighbors)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this
    integer, intent(in) :: ind

    Return Value integer

procedure, public :: get_spinorb_neighbors => get_spinorb_neighbors_lat

  • private pure function get_spinorb_neighbors_lat(this, spinorb) result(neighbors)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this
    integer, intent(in) :: spinorb

    Return Value integer, allocatable, (:)

procedure, public :: get_spinorb_nn_neighbors => get_spinorb_nn_neighbors_lat

  • private pure function get_spinorb_nn_neighbors_lat(this, spinorb) result(neighbors)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this
    integer, intent(in) :: spinorb

    Return Value integer, allocatable, (:)

procedure, public :: is_k_space

  • private function is_k_space(this)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this

    Return Value logical

procedure, public :: print_lat

  • private subroutine print_lat(this)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this

procedure, public :: add_k_vec

  • private pure function add_k_vec(this, k_1, k_2) result(k_out)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this
    integer, intent(in) :: k_1(3)
    integer, intent(in) :: k_2(3)

    Return Value integer, (3)

procedure, public :: inv_k_vec

  • private function inv_k_vec(this, k) result(k_inv)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this
    integer, intent(in) :: k(3)

    Return Value integer, (3)

procedure, public :: get_sym

  • private pure function get_sym(this, orb) result(sym)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this
    integer, intent(in) :: orb

    Return Value integer

procedure, public :: subtract_k_vec

  • private function subtract_k_vec(this, k_1, k_2) result(k_out)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this
    integer, intent(in) :: k_1(3)
    integer, intent(in) :: k_2(3)

    Return Value integer, (3)

procedure, public :: get_sym_from_k

  • private pure function get_sym_from_k(this, k) result(sym)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this
    integer, intent(in) :: k(3)

    Return Value integer

procedure, public :: set_sym

  • private subroutine set_sym(this, orb, sym)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this
    integer, intent(in) :: orb
    integer, intent(in) :: sym

procedure, public :: get_name

  • private function get_name(this) result(lattice_name)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this

    Return Value character(len=NAME_LEN)

procedure, public :: get_total_links

  • private function get_total_links(this) result(total_links)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this

    Return Value integer

procedure, public :: dispersion_rel => dispersion_rel_not_implemented

  • private function dispersion_rel_not_implemented(this, k_vec) result(disp)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this
    integer, intent(in) :: k_vec(3)

    Return Value real(kind=dp)

procedure, public :: dispersion_rel_orb

  • private function dispersion_rel_orb(this, orb) result(disp)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this
    integer, intent(in) :: orb

    Return Value real(kind=dp)

procedure, public :: dispersion_rel_spin_orb

  • private function dispersion_rel_spin_orb(this, orb) result(disp)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this
    integer, intent(in) :: orb

    Return Value real(kind=dp)

procedure, public :: dot_prod => dot_prod_not_implemented

  • private function dot_prod_not_implemented(this, k_vec, r_vec) result(dot)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this
    integer, intent(in) :: k_vec(3)
    integer, intent(in) :: r_vec(3)

    Return Value real(kind=dp)

procedure, public :: get_k_vec

  • private pure function get_k_vec(this, orb) result(k_vec)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this
    integer, intent(in) :: orb

    Return Value integer, (3)

procedure, public :: get_r_vec

  • private function get_r_vec(this, orb) result(r_vec)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this
    integer, intent(in) :: orb

    Return Value integer, (3)

procedure, public :: round_sym

  • private elemental function round_sym(this, sym_in) result(sym_out)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this
    type(BasisFN), intent(in) :: sym_in

    Return Value type(BasisFN)

procedure, public :: map_k_vec

  • private pure function map_k_vec(this, k_in) result(k_out)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice), intent(in) :: this
    integer, intent(in) :: k_in(3)

    Return Value integer, (3)

procedure, public :: get_orb_from_k_vec

  • private function get_orb_from_k_vec(this, k_in, spin) result(orb)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this
    integer, intent(in) :: k_in(3)
    integer, intent(in), optional :: spin

    Return Value integer

procedure, public :: init_hop_cache_bounds

  • private subroutine init_hop_cache_bounds(this, r_min, r_max)

    Arguments

    Type IntentOptional Attributes Name
    class(lattice) :: this
    integer, intent(out), optional :: r_min(3)
    integer, intent(out), optional :: r_max(3)

procedure, private :: set_n_imps

  • private subroutine set_n_imps(this, n_imps)

    Arguments

    Type IntentOptional Attributes Name
    class(aim) :: this
    integer, intent(in) :: n_imps

procedure, private :: set_n_bath

  • private subroutine set_n_bath(this, n_bath)

    Arguments

    Type IntentOptional Attributes Name
    class(aim) :: this
    integer, intent(in) :: n_bath

procedure, private :: calc_nsites => calc_nsites_aim

  • private function calc_nsites_aim(this, length_x, length_y, length_z) result(n_sites)

    Arguments

    Type IntentOptional Attributes Name
    class(aim) :: this
    integer, intent(in) :: length_x
    integer, intent(in) :: length_y
    integer, intent(in), optional :: length_z

    Return Value integer

procedure, public :: is_periodic => is_periodic_aim

  • private elemental function is_periodic_aim(this, dimen)

    Arguments

    Type IntentOptional Attributes Name
    class(aim), intent(in) :: this
    integer, intent(in), optional :: dimen

    Return Value logical

procedure, public :: get_n_imps

  • private function get_n_imps(this)

    Arguments

    Type IntentOptional Attributes Name
    class(aim) :: this

    Return Value integer

procedure, public :: get_n_bath

  • private function get_n_bath(this)

    Arguments

    Type IntentOptional Attributes Name
    class(aim) :: this

    Return Value integer

procedure, public :: is_impurity_site

  • private function is_impurity_site(this, ind)

    Arguments

    Type IntentOptional Attributes Name
    class(aim) :: this
    integer, intent(in) :: ind

    Return Value logical

procedure, public :: is_bath_site

  • private function is_bath_site(this, ind)

    Arguments

    Type IntentOptional Attributes Name
    class(aim) :: this
    integer, intent(in) :: ind

    Return Value logical

procedure, public :: get_impurities

  • private function get_impurities(this) result(imp_sites)

    Arguments

    Type IntentOptional Attributes Name
    class(aim) :: this

    Return Value integer, (this%n_imps)

procedure, public :: get_bath

  • private function get_bath(this) result(bath_sites)

    Arguments

    Type IntentOptional Attributes Name
    class(aim) :: this

    Return Value integer, (this%n_bath)

Source Code

    type, abstract, extends(lattice) :: aim
        private

        integer :: n_imps = -1
        integer :: n_bath = -1

        ! i think i want to store the bath and impurity indices..
        ! thats more efficient!
        integer, allocatable :: impurity_sites(:)
        integer, allocatable :: bath_sites(:)

    contains
        private

        procedure :: set_n_imps
        procedure :: set_n_bath
        procedure :: calc_nsites => calc_nsites_aim

        procedure, public :: is_periodic => is_periodic_aim

        procedure, public :: get_n_imps
        procedure, public :: get_n_bath
        procedure, public :: is_impurity_site
        procedure, public :: is_bath_site

        procedure, public :: get_impurities
        procedure, public :: get_bath

    end type aim