回答編集履歴
1
誤字修正 プログラム改
test
CHANGED
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
|
|
7
7
|
|
|
8
8
|
|
|
9
|
-
とりあえずワーク配列に一
|
|
9
|
+
とりあえずワーク配列に一気にに読み込んで、その後で変形するのが楽。
|
|
10
10
|
|
|
11
11
|
Fortran は列優先なので、これは頭に叩き込んでおく必要がある。
|
|
12
12
|
|
|
@@ -46,11 +46,15 @@
|
|
|
46
46
|
|
|
47
47
|
read(10, *) wk
|
|
48
48
|
|
|
49
|
-
|
|
50
49
|
|
|
51
|
-
a = reshape(wk(1, :), [nc+2, nd+2])
|
|
52
50
|
|
|
51
|
+
a = reshape(wk(1, :), shape(a))
|
|
52
|
+
|
|
53
|
-
b = reshape(wk(2, :),
|
|
53
|
+
b = reshape(wk(2, :), shape(b))
|
|
54
|
+
|
|
55
|
+
! サイズを手動で与えてもいい a = reshape(wk(1, :), [nc+2, nd+2])
|
|
56
|
+
|
|
57
|
+
|
|
54
58
|
|
|
55
59
|
|
|
56
60
|
|