subtract_k_vec Function

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

Type Bound

lattice

Arguments

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

Return Value integer, (3)


Contents

Source Code

subtract_k_vec

Source Code

    function subtract_k_vec(this, k_1, k_2) result(k_out)
        class(lattice) :: this
        integer, intent(in) :: k_1(3), k_2(3)
        integer :: k_out(3)
        unused_var(this)

        k_out = this%add_k_vec(k_1, this%inv_k_vec(k_2))

    end function subtract_k_vec