cross_product_local Function

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

简单叉乘, 2 维叉乘

Arguments

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

Return Value real(kind=rk)


Contents

Source Code

cross_product_local

Source Code

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

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

    end function cross_product_local