fortran77で複数のファイルの読み込み
fortran77で複数のファイルの読み込み
現在fortran77のプログラムを勉強しております。
ファイルが複数あり、すべてのファイルを読み込みたいのですが、ファイルの数がたくさんあるため、プログラムの行数が多くなってしまいます。
do ループで次々とファイルを開くプログラムを考えているのですが、思いつきません。
どなたか考え方でもいいので、教えてください。
ちなみに私が考えたプログラムは、
open(10,file='C:\FORTRAN\100.txt',status='old')
open(11,file='C:\FORTRAN\121.txt',status='old')
open(12,file='C:\FORTRAN\144.txt',status='old')
open(13,file='C:\FORTRAN\169.txt',status='old')
open(14,file='C:\FORTRAN\196.txt',status='old')
open(15,file='C:\FORTRAN\225.txt',status='old')
・・・。
これを do ループで次々に開くことを考えると、
character*3 A(10)
do 100 i=1,10
A=i*i
open(i,file='C:\FORTRAN\A.txt',status='old')
100 continue
・・・
みたいな感じです。
' 'の中の一部だけを変えたい場合のcharacter 文の使い方がいまいちよく分かりません。
お礼
ありがとうございます。 ちゃんと理想通りに動きました。 以外と簡単だったんですね(^_^;)