fortranのプログラミングについてです。

質問

フォートランで任意のデータの総和を求めるプログラムを書きたいのですが
例えばデータファイルに２，３，６，８とあればその和１９が出てくる感じです。
よくやりかたがわかりません。
始めにこのようにファイル形式でデータを取り込みます。
INTEGER n
OPEN(5,FILE='test.txt')
100 READ(5,*,END=110) n
WRITE(*,*) n
GO TO 100
110 CONTINUE
CLOSE(5)
END

次に総和をはじきだしたいのですが。ここのところがよくわかりません。
どうか教えていただきたいのですが。

回答No.2

OsieteG00 · ベストアンサー

質問のプログラムを改造するつもりだったんですが^^
でないと、順番に読み込んだnが無駄になりますので。

READ～GOTOまでが繰り返しの間なので
※ファイルから1件読み込み、終了なら110へ。そうでなければGOTOまでの処理を行い、以下繰り返し

・その前に初期化　sum=0
※1回だけ必要。繰り返しの中に入れてしまうと、sumが増えていかないので

・繰り返しの間に　sum=sum+n
※データファイルの内容nをsumに加算する。nが終わるまで繰り返される。終わったかどうかの判断はREADでしている

お礼

丁寧な解説ありがとうございます。
無事コンパイル、実行できるようになりました

回答No.1

OsieteG00

もう一つ、変数を用意して、ファイルを読むたびに足していけばよい(総和=総和+n)です。OPENの前に初期化(0を代入)も忘れずに。

補足

INTEGER n
OPEN(5,FILE='test.txt')
100 READ(5,*,END=110) n
WRITE(*,*) n
GO TO 100
110 CONTINUE
CLOSE(5)
END
すみませんFORTRANは初心者なんですが、このあとに
　　　　sum=0
　　　　do 300 i=1,10000000

　　　　sum=sum+x2(i)
300 continue
ファイルは１回だけよむようにしたいのですが。
もう少しヒントをいただけるとありがたいのですが
申し訳ございません。
なかなかなじめません。プログラムは。（泣）