回答編集履歴
1
行列の転置
test
CHANGED
|
@@ -17,6 +17,10 @@
|
|
|
17
17
|
|
|
18
18
|
|
|
19
19
|
これでデータ数の縦横が分かったので、配列を割り付け、ファイルをリワインドして先頭に巻き戻し、配列一括読み取りします。
|
|
20
|
+
|
|
21
|
+
|
|
22
|
+
|
|
23
|
+
注意点：Fortran は column first なので、一気読みすると配列を転置した形になります。
|
|
20
24
|
|
|
21
25
|
|
|
22
26
|
|
|
@@ -88,7 +92,7 @@
|
|
|
88
92
|
|
|
89
93
|
allocate(head(noc))
|
|
90
94
|
|
|
91
|
-
allocate(pix(no
|
|
95
|
+
allocate(pix(noc, nor)) ! column first なので転置で一気読み込みします
|
|
92
96
|
|
|
93
97
|
|
|
94
98
|
|