Fortran中数组中某些元素的总和

Question

我有一个这样的数组：

1717.531 1717.364 1716.725 1716.723 1716.536 1716.304 1716.221 1715.998 1715.799 1715.702 1715.648 1715.254 1715.186 1714.733 1714.532 1714.266 1714.223 1714.094 1713.943 1713.873 1713.803 1713.578

我想逐步修改每个5个元素，使用哪个函数以及如何使用？！

Answer 1

您可以使用步长的循环：

do i=1, N, 5

然后将内在函数sum应用于数组的切片：

sum (a(i: i+4))

Answer 2

一个可能的解决方案是：

do i=1,20,5                     
    x=0.0                 
    x=(sum(a(i:i+4)))
    write(*,*) x           
end do