dot_prod_rect Function

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

Type Bound

rectangle

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

dot_prod_rect

Source Code

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

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

    end function dot_prod_rect