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

質問編集履歴

1

文法の修正、新しいエラー

2018/08/12 10:18

投稿

tatsu31
tatsu31

スコア12

title CHANGED
File without changes
body CHANGED
@@ -31,4 +31,36 @@
31
31
  元のデータは実数と整数が混じっているのでおそらく配列の宣言がおかしいのではないかと思うのですが、調べてもわかりません。
32
32
  おかしいところと解決方法を教えていただけたらと思います。
33
33
  ちなみにエラーは下のようになります。
34
- ![イメージ説明](bf25547bf8f8141185b1eb842022f109.png)
34
+ ![イメージ説明](bf25547bf8f8141185b1eb842022f109.png)
35
+
36
+ 訂正後
37
+ ```fortran
38
+ c refL
39
+ Program refL
40
+ Real z(5000)
41
+ Open (10,file='160909000000_refL.out',status='old')
42
+ Open (12,file='160909000000_refL.outZ',status='replace')
43
+ ii=0
44
+ 100 Continue
45
+ ii=ii+1
46
+ Read (10,*,end=200) z(ii)
47
+ print *,z(10)
48
+ Go to 100
49
+ 200 Continue
50
+ N=ii-1
51
+ do 300 i=1,N
52
+ if (z(10)==3 .and. z(11)==2) Then
53
+ print *,'hello2'
54
+
55
+ write(12,*) z(16)
56
+ print *,'hello3'
57
+ end if
58
+ 300 print *,z(16)
59
+ Close (10)
60
+ Close (12)
61
+ STOP
62
+ END
63
+
64
+ ```
65
+ このように訂正してsyntaxエラーは改善したのですが、下記のように同じ数字が羅列してエラーが起きているのですが、宣言の仕方が間違っているのでしょうか。
66
+ ![イメージ説明](030f778f561a1ac5fb625761d028a41a.png)