set_k_vec Subroutine

private subroutine set_k_vec(this, k_vec)

Type Bound

site

Arguments

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

Contents

Source Code

set_k_vec

Source Code

    subroutine set_k_vec(this, k_vec)
        class(site) :: this
        integer, intent(in) :: k_vec(3)

        this%k_vec = k_vec

    end subroutine set_k_vec