回答編集履歴

1

行列の転置

2021/10/30 04:15

投稿

curehoney
curehoney

スコア249

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(nor, noc))
95
+ allocate(pix(noc, nor)) ! column first なので転置で一気読み込みします
92
96
 
93
97
 
94
98