Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/fortran/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Fortran中数组中某些元素的总和_Fortran_Gfortran - Fatal编程技术网

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

Fortran中数组中某些元素的总和,fortran,gfortran,Fortran,Gfortran,我有这样一个数组: 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个元素求和,使用哪个函数以及如何使用?您可以使用步长为的循环: do

我有这样一个数组:

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个元素求和,使用哪个函数以及如何使用?

您可以使用步长为的循环:

do i=1, N, 5
然后应用于数组切片的本征函数和:

sum (a(i: i+4))

可以使用步长为的循环:

do i=1, N, 5
然后应用于数组切片的本征函数和:

sum (a(i: i+4))

一种可能的解决办法是:

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

一种可能的解决办法是:

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

SUM
几乎可以肯定是您想要的,但您是否在求和之后:元素1到5,元素6到10,等等。;要素1至5、2至6、3至7等。;元素1、6、11、16、21和2、7、12。。。等等?从1到5,然后从6到10,然后从11到15等等
SUM
几乎肯定是你想要的,但是你是在求和之后:元素1到5,6到10,等等。;要素1至5、2至6、3至7等。;元素1、6、11、16、21和2、7、12。。。等等?从1到5,然后从6到10,然后从11到15,依此类推,或者如果你不介意数组副本,
sum
带有
dim=
重塑
。或者如果你不介意数组副本,
sum
带有
dim=
重塑