fortran计算向量点积

您可以使用Fortran编写一个计算向量点积的程序。以下是一个示例代码：

program dot_product
    implicit none
    integer :: n, i
    real :: dot_prod
    real, allocatable :: vector1(:), vector2(:)

    ! 输入向量的长度
    write(*, *) "请输入向量的长度："
    read(*, *) n

    ! 动态分配内存
    allocate(vector1(n), vector2(n))

    ! 输入向量的元素
    write(*, *) "请输入第一个向量的元素："
    do i = 1, n
        read(*, *) vector1(i)
    end do

    write(*, *) "请输入第二个向量的元素："
    do i = 1, n
        read(*, *) vector2(i)
    end do

    ! 计算点积
    dot_prod = 0.0
    do i = 1, n
        dot_prod = dot_prod + vector1(i) * vector2(i)
    end do

    ! 输出结果
    write(*, *) "向量点积结果：", dot_prod

    ! 释放内存
    deallocate(vector1, vector2)

end program dot_product

您可以根据需要修改代码，例如添加错误检查、优化等。编译运行该程序，您将能够计算两个向量的点积。