我想知道是否可以在 Fortran 中循环遍历字符串。例如我想知道是否有以下代码:

DO p=a,b,c,t,r
  ...
END DO

只要写了 p，就会替换 a b c t 和 r。

最佳答案

循环索引始终是标量整数。幸运的是，使用所需“迭代”对象的数组非常简单:

character, parameter :: ps(*) = ['a', 'b', 'c', 't', 'r']
integer i
character p

do i=1, SIZE(ps)
  p = ps(i)
  ...
end do

这个成语不仅仅适用于字符。

https://stackoverflow.com/questions/47581965/