add_k_vec_symbol Function

private function add_k_vec_symbol(this, sym_1, sym_2) result(sym_out)

Type Bound

lattice

Arguments

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

Return Value integer


Contents

Source Code

add_k_vec_symbol

Source Code

    function add_k_vec_symbol(this, sym_1, sym_2) result(sym_out)
        class(lattice) :: this
        integer, intent(in) :: sym_1, sym_2
        integer :: sym_out
#ifdef DEBUG_
        character(*), parameter :: this_routine = "add_k_vec_symbol"
#endif

        ASSERT(allocated(this%mult_table))

        sym_out = this%mult_table(sym_1, sym_2)

    end function add_k_vec_symbol