連番ファイルを作りたい(fortran)

Question

連番ファイルを作成してgnuplotでgifを作ろうと思っています。
その為にファイル名out.xxxx.datから例えばz,Reを抜き出してxx.datとしたいのですが自分の書いたプログラムでは1桁番号のとき_0.datのように数字の前にスペースが入ってしまい都合が悪いです。自分のプログラムをどのように修正すれば良いですか？

また本質とは関係ないのですがgnuplotで 「do for[i=0:21] {plot sprintf("%d.dat",i)}」と入力するとi=0では弾かれてi=1では弾かれないといった現象が起きているのですがこの原因も知っている方がいれば教えてほしいです。

program replot
implicit none
integer::i,j
real(8)::x,y,z,Re,Im
character(len=12) :: filename,outname
do j=0,99
write(filename,'("out.00",i2.2,".dat")')j
write(outname,'(i2,".dat")')j
open(1,file=filename)
open(2,file=outname)
do i=1,1000
read(1,)x,y,z,Re,Im
write(2,)z,Re
enddo
close(1)
close(2)
enddo
end program replot

Comments

[otn]

どういう入力に対して、どういう出力が欲しいのでしょう？

[bluegarnets]

本文を編集しましたが、自然数nを入力して、出力はn=a*b*c*・・・のような形にしたいです。

[chirimen]

> またwrite,read関数のアスタリスクは何故かプレビューに表示されていない

以下のような感じに ``` (バッククォート3つ) で括るとよいです

```Fortran
（ここにFortranのコードを書く）
```

[chirimen]

新規の質問なのに、以前の質問を編集した形になっていますよ

Answer 1

write(outname,'(i2,".dat")')jを
write(outname,'(i2.2,".dat")')jと変更した上で、
gnuplotで
「do for[i=0:21] {plot sprintf("%d.dat",i)}」を
「do for[i=0:21] {plot sprintf("%02d.dat",i)}」に変更する。