dot_prod_tilted Function

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

Type Bound

tilted

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

dot_prod_tilted

Source Code

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

        dot = PI * (((k_vec(1) + twisted_bc(1)) / this%length(1) + &
                     (k_vec(2) + twisted_bc(2)) / this%length(2)) * r_vec(1) + &
                    ((k_vec(1) + twisted_bc(1)) / this%length(1) - &
                     (k_vec(2) + twisted_bc(2)) / this%length(2)) * r_vec(2))

    end function dot_prod_tilted