fortran連番ファイル(test1.txt~)作成法（２種類）

fortranで連番ファイルを作る方法をよく忘れるのでメモ。

＜シンプルな方法＞

character filename*30

do i =1,5
　write(filename,'("test",i3.3,".txt")') i
　open(1,file=filename,status='replace')
end do

ファイル名は、

test001.txt 〜test005.txtのようになる。 

参考：Fortran Tip集: 連番ファイル名の生成方法

出力の時は、この方法で十分だが、test1.txtのようなファイルを入力で選択する時に困ってしまう。そこで、このような時の方法を考えた（あまりスタイリッシュではないが、、、）。

＜少しごちゃごちゃ＞

character filename*30

do i=1,5
　write (filename,*) i
　filename="test"//adjustl(filename)
　open(1,file=adjustl(adjustr(filename)//".txt"),status='replace')
end do

ファイル名は、

test1.txt 〜test5.txtのようになる。