Loops Fortran中的字符循环

我想知道是否有可能在Fortran中循环字符串。例如，我想知道以下代码：

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

---

每当写入p时，将替换bct和r。

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

这个习惯用法不仅仅适用于字符。

或者，如果string OP表示长度为

n

的字符变量，则可能有如下内容

character(len=n) :: string
...
string = 'abcdef'
...
do i = 1,n
   write(*,*) string(i:i)
end do

---

注意，对于任何长度的子字符串（包括

1

），必须提供起始索引和结束索引

好的，谢谢。我完全理解你的立场。我觉得如果其他人遇到同样的问题，以前的标题“角色循环”在网络上是完全不可搜索的。

character(len=n) :: string
...
string = 'abcdef'
...
do i = 1,n
   write(*,*) string(i:i)
end do