回答編集履歴
1
行列の転置
answer
CHANGED
|
@@ -9,7 +9,9 @@
|
|
|
9
9
|
|
|
10
10
|
これでデータ数の縦横が分かったので、配列を割り付け、ファイルをリワインドして先頭に巻き戻し、配列一括読み取りします。
|
|
11
11
|
|
|
12
|
+
注意点：Fortran は column first なので、一気読みすると配列を転置した形になります。
|
|
12
13
|
|
|
14
|
+
|
|
13
15
|
```fortran
|
|
14
16
|
program test
|
|
15
17
|
implicit none
|
|
@@ -43,7 +45,7 @@
|
|
|
43
45
|
|
|
44
46
|
|
|
45
47
|
allocate(head(noc))
|
|
46
|
-
allocate(pix(
|
|
48
|
+
allocate(pix(noc, nor)) ! column first なので転置で一気読み込みします
|
|
47
49
|
|
|
48
50
|
rewind(10)
|
|
49
51
|
read(10, *) head
|