Fortran99で複数ファイルの読み込み
Fortran99で有限要素法の解析プログラムを作成しています。
要素番号と節点番号、各節点の座標を三次元の配列にまとめて格納したく、
複数のcsvファイルを相互に参照しながら配列に読み込みたいと思っていますが、
その方法が分かりません。
具体的には、一つ目のファイル(ex1.csv)の中身が、
1 1 2 10 11 20 21 30 31
2 2 3 11 12 21 22 31 32
3 3 4 12 13 22 23 32 33
........
と配列になっており、1列目が要素番号、2~8列目が節点番号としています。
二つ目のファイル(ex2.csv)の中身が、
1 0 0 0
2 5 0 0
3 10 0 0
4 15 0 0
5 20 0 0
.....
となっており、1列目が節点番号、2~4列目がそれぞれ、x, y, z座標となっています。
一つ目のファイルは、
open(10, file = 'ex1.csv', status = 'old', action = 'read', position = 'rewind')
do ELEM = 1, MAXELEM
read(10, *) (ELEMDATA(ELEM, m, 1), m = 1, 8)
enddo
close(10)
と書き、全ての要素と節点番号を三次元配列の一、二次元目に読み込みました。
次に、ex1.csvの節点番号(2~8列目)の番号を読み取り、その番号をex2.csvの1列目
から探し出して、配列の三次元目に格納したいと思っています。
宜しくお願い致します。