逻辑问题求助

楚香饭

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

i = 0
Do k1 = 1 , 100
  if ... then ...
  else if ... then
    i = i + 1
    A(i) = 1.1 * ...
  end if
End Do