inv_k_vec_symbol Function

private function inv_k_vec_symbol(this, sym) result(inv_sym)

Type Bound

lattice

Arguments

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

Return Value integer


Source Code

    function inv_k_vec_symbol(this, sym) result(inv_sym)
        class(lattice) :: this
        integer, intent(in) :: sym
        integer :: inv_sym
#ifdef DEBUG_
        character(*), parameter :: this_routine = "inv_k_vec_symbol"
#endif

        ASSERT(allocated(this%inv_table))

        inv_sym = this%inv_table(sym)

    end function inv_k_vec_symbol