Fortranの文字をループする

Question

Fortranで文字列をループすることができるかどうかを知りたいと思います。たとえば、次のコードがあるかどうかを知りたいとします。pが記述されるたびに、b cとrを置き換えます。

Answer 1

ループインデックスは常にスカラー整数です。このイディオムは単なる文字以上にわたって保持

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

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

：幸いにもそれは所望の「反復」オブジェクトの配列を使用するためのシンプルな十分な問題です。

Answer 2

あるいは、によって文字列 OPは長さnの文字変数を意味している場合、一つは（1を含む）任意の長さのサブストリングを取るための開始と終了インデックスが持っている両方のことは注目に

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

のようなものを持っているかもしれません提供する