inside_bz_chain Function

private function inside_bz_chain(this, k_vec)

Arguments

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

Return Value logical


Source Code

    logical function inside_bz_chain(this, k_vec)
        class(chain) :: this
        integer, intent(in) :: k_vec(3)

        ! the chain goes as -Lx/2+1, +2, .. Lx/2
        inside_bz_chain = .false.

        if (k_vec(1) >= (-(this%length + 1) / 2 + 1) .and. &
            k_vec(1) <= this%length / 2) inside_bz_chain = .true.

    end function inside_bz_chain