Fortran(コンパイラG95)のfile処理

質問

現在テキストエディターに秀丸・コンパイラにg95という環境でFortranのプログラムを書いています。

　プログラムは地震波を作成するためのもので、インプットファイル・アウトプットファイル共に千を超えるオーダーになります。そのような状況なので実行の度にファイル名を書き換えるのではなく　”あらかじめ用意したインプットファイルからのデータの読み込み・それに応じたアウトプットファイルの出力”　という処理を自動化したいと考えています。

　また、現在学生という事もありできれば現在の環境で解決したいのですが、数万円で済むレベルなら有料の環境を整える事も考えています。

　進捗具合としては、まずフォルダ内のインプットファイル名の取得を以下の内容のバッチファイル、
dir /b * > file1.txt　、にて行いました。そして、

　1.txt
　2.txt
　3.txt
　・・・・(以下省略）

上記ようにインプットファイル名が羅列されたテキストファイルfile1.txtを作成し、それをgetarg等の内部関数・サブルーチンを用いて処理できないかと考えました。
そこでg95のマニュアルの読解やgetarg等のネット検索を試みたのですが、プログラミング初心者という事もあり今ひとつどうすればよいかわかりません。

どなたか解決策をご存じの方はいらっしゃらないでしょうか（処理にかかる時間・手間が現実的なレベルであれば手法にはこだわりません）。

ちなみにg95でのgetargの引数使用は以下のようになっております。
subroutine getarg(pos, value)
　integer,　　　　 intent(in)　 :: pos
　character(len=*), intent(out) :: value
end subroutine
解説:pos 番目のコマンドライン引数を value に格納する
　　　参照元:　http://ftp.g95.org/G95Manual.jp.pdf

回答に必要な情報がもれている場合はご指摘いただけると幸いです。
面倒な質問で恐縮ですが、よろしくお願いいたします。

回答No.1

f272 · ベストアンサー

私ならgetargなどは使わない。

open(5,file='in.dat')
open(6,file='out.dat')
という感じでやるのはできるんでしょ。この'in.dat'と'out.dat'を変数にして
finame='in.dat'
foname='out.dat'
open(5,file=finame)
open(6,file=foname)
とするのも簡単だよね。そうするとファイル名をファイルから読み込ませるという考えもすぐに浮かぶでしょ。
open(1,'filename.dat')
read(1,'(a)') finame, foname
open(5,file=finame)
open(6,file=foname)
あとはループさせるだけじゃない？
open(1,'filename.dat')
do i=1,大きな数
read(1,'(a)') finame, foname
open(5,file=finame)
open(6,file=foname)
...
close(5)
close(6)
enddo
1番のファイルがEOFになったらループを抜けるようにすればいいし，fonameは読み込まずにfinameから作るようにすることもできるよね。

お礼

f272さん、丁寧なご回答ありがとうございます。

　ファイル終端に達した時の処理やカレントディレクトリ以外を指定してのファイル操作がわからなかった為に時間はかかりましたが、教えて頂いた内容を基に自分なりにコードを書いてみました。

　本当にありがとうございました。

補足

実際にかいたコードは以下のようになりました。

open(fi_0, file='3_file/fi_1.txt')　　 ! 相対パスでインプットファイルの保存先fi_1を指定
do i=1,100
read(fi_0,*,iostat=ist) finame　
if (ist /= 0) exit　　　　　　　　　!　ファイル終端に達した時の処理
call chdir('3_file') !　カレントディレクトリの変更（次行のfinameがカレントディレクトリに　　　　　　　　　　　　　　　　　　　　　　　　　　 ! ないため
open(fi_1,file=finame)
open(fo_1,file='fo_of_'//finame)
read (fi_1,*,iostat=ist) a, b
if (ist /= 0) stop " ファイル=finameのデータ数が足りません "
write(fo_1,*) a, b
close(fi_1)
close(fo_1)
call chdir('../3_getarg')　　　　　!　カレントディレクトリを元に戻す
enddo
close(fi_0)

　プログラム、インプット・アウトプットファイルの保存先を同一にするのは避けたかったのでそれぞれの保存先をパスで指定しました。
ただファイル名を文字型のfinameでopenする箇所（　open(fi_1,file=finame)　）において、file=finameをパス（相対パス）を指定してかく方法が見つけられなかった為、call chdir('相対パス名')を用いてディレクトリを変えて戻してというプロセスを踏んでいます。きっとスマートではないですよね。
　以上となります。ありがとうございました。