两个循环中的数字相加

fcode

以下代码可能不是你想要的，但如果不是，请更详细的描述你的问题。

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

Do i = 1 , N24 !// 第1天
  T1(i) = ...
End Do
Do i = 1 , N24 !// 第2天
  T2(i) = ...
End Do
Do i = 1 , N24 !// 第3天
  T3(i) = ...
End Do

T2 = sum(T2(8:24)) + sum(T3(1:7))