teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問ファイルの値を取り込む方法

編集履歴

質問編集履歴

8

誤字

2019/07/04 01:06

投稿

t.ewjspo
t.ewjspo

スコア17

test CHANGED
File without changes
test CHANGED
@@ -52,7 +52,7 @@
52
52
 
53
53
  DO j = 1, 100
54
54
 
55
- read (1,*) p(i,j)
55
+ read (1,*) u(i,j)
56
56
 
57
57
  END DO
58
58
 

7

試したことを追加

2019/07/04 01:06

投稿

t.ewjspo
t.ewjspo

スコア17

test CHANGED
File without changes
test CHANGED
@@ -18,7 +18,7 @@
18
18
 
19
19
  : : :
20
20
 
21
- のようにデータが1000個あるようなファイルに対して
21
+ のようにデータが10000個あるようなファイルに対して
22
22
 
23
23
  u(1,1)はファイルの1列1行目に書いてある値を
24
24
 
@@ -44,6 +44,24 @@
44
44
 
45
45
  ```
46
46
 
47
+ ```fortran
48
+
49
+ open(1, file="u initial condition.txt",status='old')
50
+
51
+ DO i = 1, 100
52
+
53
+ DO j = 1, 100
54
+
55
+ read (1,*) p(i,j)
56
+
57
+ END DO
58
+
59
+ END DO
60
+
61
+ close(1)
62
+
63
+ ```
64
+
47
- 以上のプログラムを試したのですが、ブレイクポイントがでて
65
+ 以上のような２つのプログラムを試したのですが、どちらもブレイクポイントがでて
48
66
 
49
67
  うまくいきませんでした。

6

修正

2019/07/04 00:58

投稿

t.ewjspo
t.ewjspo

スコア17

test CHANGED
File without changes
test CHANGED
@@ -30,11 +30,7 @@
30
30
 
31
31
  ```fortran
32
32
 
33
- コード
34
-
35
- ```
36
-
37
- open(10, file="u initial condition.txt",status='old')
33
+ コード open(10, file="u initial condition.txt",status='old')
38
34
 
39
35
  DO i = 1, 100
40
36
 
@@ -44,6 +40,10 @@
44
40
 
45
41
  close(10)
46
42
 
43
+
44
+
45
+ ```
46
+
47
47
  以上のプログラムを試したのですが、ブレイクポイントがでて
48
48
 
49
49
  うまくいきませんでした。

5

修正

2019/07/03 03:18

投稿

t.ewjspo
t.ewjspo

スコア17

test CHANGED
File without changes
test CHANGED
@@ -38,7 +38,7 @@
38
38
 
39
39
  DO i = 1, 100
40
40
 
41
- read (*,*) (u(i,j), j=1,100)
41
+ read (10,*) (u(i,j), j=1,100)
42
42
 
43
43
  END DO
44
44
 

4

試したことを記入

2019/07/03 02:24

投稿

t.ewjspo
t.ewjspo

スコア17

test CHANGED
File without changes
test CHANGED
@@ -25,3 +25,25 @@
25
25
  u(1,2)はファイルの1列2行目に書いてある値を代入したい場合について教えてください．
26
26
 
27
27
  i,jはそれぞれ0~100までの範囲とします。
28
+
29
+
30
+
31
+ ```fortran
32
+
33
+ コード
34
+
35
+ ```
36
+
37
+ open(10, file="u initial condition.txt",status='old')
38
+
39
+ DO i = 1, 100
40
+
41
+ read (*,*) (u(i,j), j=1,100)
42
+
43
+ END DO
44
+
45
+ close(10)
46
+
47
+ 以上のプログラムを試したのですが、ブレイクポイントがでて
48
+
49
+ うまくいきませんでした。

3

書式の修正

2019/07/03 02:22

投稿

t.ewjspo
t.ewjspo

スコア17

test CHANGED
File without changes
test CHANGED
@@ -8,15 +8,15 @@
8
8
 
9
9
  U,V,P
10
10
 
11
- 2.04E-03 2.04E-03 2.91E+00
11
+ 2.0 2.1 2.91
12
12
 
13
- 3.10E-03 9.39E-04 1.77E-01
13
+ 3.0 9.3 1.4
14
14
 
15
- 1.65E-03 4.31E-04 -1.51E-01
15
+ 1.0 4.3 -1.5
16
16
 
17
- 9.49E-04 2.08E-04 -2.75E-01
17
+ 9.0 2.5 -2.4
18
18
 
19
- : : :
19
+ : : :
20
20
 
21
21
  のようにデータが1000個あるようなファイルに対して
22
22
 

2

より詳細に記述

2019/07/02 06:44

投稿

t.ewjspo
t.ewjspo

スコア17

test CHANGED
@@ -1 +1 @@
1
- excelの値を取り込む方法
1
+ ファイルの値を取り込む方法
test CHANGED
@@ -1,13 +1,27 @@
1
1
  visualstudio2005を使いfortran90のプログラムを書いているのですが，
2
2
 
3
- u(i,j)という値の初期値を定義するのにexcelもしくはテキストファイルなどにある値を代入したいのですが，
3
+ u(i,j)という値の初期値を定義するのにexcelもしくはテキストファイル、DATファイルなどにある値を読み込み代入したいのですが，可能でしょうか？
4
-
5
- 可能でしょうか？
6
4
 
7
5
  もし可能なら，
8
6
 
9
- 例えば，u(1,1)はファイルの1列1行目に書いてある値を
7
+ 例えば，テキストファイルが
10
8
 
9
+ U,V,P
10
+
11
+ 2.04E-03 2.04E-03 2.91E+00
12
+
13
+ 3.10E-03 9.39E-04 1.77E-01
14
+
15
+ 1.65E-03 4.31E-04 -1.51E-01
16
+
17
+ 9.49E-04 2.08E-04 -2.75E-01
18
+
19
+ : : :
20
+
21
+ のようにデータが1000個あるようなファイルに対して
22
+
23
+ u(1,1)はファイルの1列1行目に書いてある値を
24
+
11
- 　　　　u(1,2)はファイルの1列2行目に書いてある値を代入したい場合について教えてください．
25
+ u(1,2)はファイルの1列2行目に書いてある値を代入したい場合について教えてください．
12
26
 
13
27
  i,jはそれぞれ0~100までの範囲とします。

1

より詳しく記述した

2019/07/02 06:36

投稿

t.ewjspo
t.ewjspo

スコア17

test CHANGED
File without changes
test CHANGED
@@ -1,9 +1,13 @@
1
1
  visualstudio2005を使いfortran90のプログラムを書いているのですが，
2
2
 
3
- u(i,j)という値を定義するのにexcelで打ち込んだ値を代入したいのですが，
3
+ u(i,j)という値の初期値を定義するのにexcelもしくはテキストファイルなどにある値を代入したいのですが，
4
4
 
5
5
  可能でしょうか？
6
6
 
7
7
  もし可能なら，
8
8
 
9
+ 例えば，u(1,1)はファイルの1列1行目に書いてある値を
10
+
9
- 例えば，u(1,1)はexcelの1列1行目に書いてある値を代入したい場合について教えてください．
11
+ 　　　　u(1,2)はファイルの1列2行目に書いてある値を代入したい場合について教えてください．
12
+
13
+ i,jはそれぞれ0~100までの範囲とします。