fortran dot_product

在Fortran中，`DOT_PRODUCT`函数用于计算两个相同长度的向量的点积（内积）。

以下是`DOT_PRODUCT`函数的基本语法：

result = DOT_PRODUCT(vector1, vector2)

其中，`vector1`和`vector2`是具有相同长度的一维数组（向量），`result`是一个标量值，表示两个向量的点积。

以下是一个示例代码，演示如何使用`DOT_PRODUCT`函数计算两个向量的点积：

program dot_product_example
    integer :: i
    real :: vector1(3), vector2(3), dotprod
    
    vector1 = [1.0, 2.0, 3.0]
    vector2 = [4.0, 5.0, 6.0]
    
    dotprod = DOT_PRODUCT(vector1, vector2)
    
    write(*, '(A, F6.2)') 'Dot product: ', dotprod
    
end program dot_product_example

在上述代码中，我们定义了两个长度为3的实数数组 `vector1` 和 `vector2`，并分别赋值为 `[1.0, 2.0, 3.0]` 和 `[4.0, 5.0, 6.0]`。然后，我们使用 `DOT_PRODUCT(vector1, vector2)` 计算两个向量的点积，并将结果存储在变量 `dotprod` 中。最后，我们使用 `write(*, '(A, F6.2)')` 将点积的值输出到标准输出。

运行以上代码，输出将为：

Dot product: 32.00

这表示向量 `[1.0, 2.0, 3.0]` 和 `[4.0, 5.0, 6.0]` 的点积为32.00。

请注意，`DOT_PRODUCT`函数要求两个向量具有相同的长度。如果向量长度不匹配，将会产生编译错误或运行时错误。