Fortaranの質問

今、ファイル名000295から000392の中身データをそれぞれ読み取り、読み取ったデータその各々に対応する新しく下のイメージのように出力させたいのですがやり方ご存知のかた教えていただけませんか？

イメージ
000295　⇒　a000295
000296 ⇒ a000296
000297 ⇒　a000297
・・・
000392 ⇒ a000392

以下の自分が作ったプログラムではファイルを読み込んでくれなくて困っています・・・。
C
real x,y,z,WSSx,WSSy,WSSz,WSS
integer iwall,i
C
character*1 c1
character*2 c2
character*3 c3
character*4 c4
character*5 c5
character*6 c6, getNum
C
character*14 input
character*16 output
C
do 100 i=295,392
C
if(i.lt.10) then
write(c1,'(I1)') i
c6='00000'//c1
else if(i.lt.100) then
write(c2,'(I2)') i
c6='0000'//c2
else if(i.lt.1000) then
write(c3,'(I3)') i
c6='000'//c3
else if(i.lt.10000) then
write(c4,'(I4)') i
c6='00'//c2
else if(i.lt.100000) then
write(c5,'(I5)') i
c6='0'//c5
else
write(c6,'(I6)') i
end if
C
getNum=c6
C
input=getNum//'_wssaved'
output='g_'//getNum//'wssaved'
C
write(6,*) input
C*
open(5,file='input.txt')
C
10 read(5,*,end=11) x,y,z,WSSx,WSSy,WSSz,WSS,iwall
write(6,*) WSS
go to 10
11 continue
close(5)
C
100 continue
C

stop
end

No.1 回答者： Tacosan 回答日時： 2008/06/05 13:08

あの....

どのファイルから入力しようとしてますか?

この回答への補足

入力ファイルは[数字＿wssavede]で数字＝000295～000392です。

補足日時：2008/06/06 00:14