Fortran 中的循环字符

Question

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

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

每当写 ap 时都会替换 abct 和 r。

Answer 1

或者，如果字符串OP 表示 length 的字符变量n，则可能有类似的内容

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

请注意，要获取任意长度（包括1）的子字符串，必须提供开始索引和结束索引