dot_prod_chain Function

private function dot_prod_chain(this, k_vec, r_vec) result(dot)

Type Bound

chain

Arguments

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

Return Value real(kind=dp)


Source Code

    function dot_prod_chain(this, k_vec, r_vec) result(dot)
        class(chain) :: this
        integer, intent(in) :: k_vec(3), r_vec(3)
        real(dp) :: dot

        dot = 2.0_dp * PI / real(this%get_nsites(), dp) * &
              (k_vec(1) + twisted_bc(1)) * r_vec(1)

    end function dot_prod_chain