teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

行列の転置

2021/10/30 04:15

投稿

curehoney
curehoney

スコア249

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(nor, noc))
48
+ allocate(pix(noc, nor)) ! column first なので転置で一気読み込みします
47
49
 
48
50
  rewind(10)
49
51
  read(10, *) head