cross_product_local2 Function

private pure function cross_product_local2(a, b) result(c)

简单叉乘 2, @tocheck \( \omega \cdot r \)

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: a
real(kind=rk), intent(in), dimension(2) :: b

Return Value real(kind=rk), dimension(2)


Contents

Source Code

cross_product_local2

Source Code

    pure function cross_product_local2(a, b) result(c)
        real(rk), intent(in) :: a
        real(rk), intent(in), dimension(2) :: b
        real(rk), dimension(2) :: c

        c(1) = -a*b(2)
        c(2) = a*b(1)

    end function cross_product_local2