数组求和

vvt

[Fortran] 纯文本查看 复制代码

Program www_fcode_cn
  Implicit None
  real :: a(9) = [1.,2.,3.,4.,5.,6.,7.,8.,9.]
  write(*,*) sum( a( [1,3,9] ) ) !// 1，3，9 求和
  write(*,*) sum( a(1:4) )   !// 1到4求和
  write(*,*) sum( a ) - a(5) !// 除了5，其余求和
End Program www_fcode_cn

vvt

sum 可以加条件，但条件是对 a 的值求取的，而不能对角标（序数）求取条件。

例如：

[Fortran] 纯文本查看 复制代码

write(*,*) sum( a , mask = ( a > 3.0 ) ) !// 大于 3.0 的值参与求和

你这样的情况，我建议你还是自己写循环实现吧。

vvt

real :: a(100)
a(5:99)=a(6:100)
这样就行了。你使用时就使用 a(:99)