面试题：Fortran在科学计算中数组操作相关问题

Question

在Fortran中，假设你有一个二维数组A，维度为(10, 20)，存储了一些科学数据。现在要求编写一段Fortran代码，实现将数组A的每一行元素进行归一化处理（即每一行元素除以该行元素的和），请给出具体代码实现。

Answer 1

program normalize_array
    implicit none
    real :: A(10, 20)
    real :: sum_row(10)
    integer :: i, j

   ! 假设这里对数组A进行赋值，实际应用中需根据具体情况获取数据
    do i = 1, 10
        do j = 1, 20
            A(i, j) = real(i + j)
        end do
    end do

   ! 计算每一行的和
    do i = 1, 10
        sum_row(i) = sum(A(i, :))
    end do

   ! 对每一行进行归一化处理
    do i = 1, 10
        do j = 1, 20
            A(i, j) = A(i, j) / sum_row(i)
        end do
    end do

   ! 输出归一化后的数组A，用于验证结果
    do i = 1, 10
        write(*, *) A(i, :)
    end do
end program normalize_array