こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

投稿日時 - 2008-06-05 04:18:21

QNo.4076418

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

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

投稿日時 - 2008-06-05 13:08:16

補足

入力ファイルは[数字_wssavede]で数字=000295~000392です。

投稿日時 - 2008-06-06 00:14:21

あなたにオススメの質問