実数と整数が混ざったデータを配列として読み込むときの宣言の方法が分からない(fortran)

Question

海洋系の観測データの解析を行っています。元のデータである”160909000000_refL.out”というファイルには、一行に日付や時刻、観測値などの１６のデータが羅列しており、それらが縦に約90万行ほど並んでいます。それらをある条件を満たした時の行だけ抽出したいです。
今回は配列としてデータを読み込み、行数をカウント、条件に当てはまる配列だけを”160909000000_refL.outZ”へ書き込むという方法でデータの抽出を行いたいです。
プログラムは以下になります。

c     refL
      Program refL
      Open (10,file='160909000000_refL.out',status='old')
      Open (12,file='160909000000_refL.outZ',status='replace')
      Integer z(5000)
      ii=0
  100 Continue
      ii=ii+1
      Read (10,*,end=200) z(ii)
      print *,'hello1'
      Go to 100
  200 Continue
      N=ii-1
      do 300 i=1,N
      if (z(25)==3 .and. z(26)==2) Then
      print *,'hello2'
      
      write(12,*) z(ii)
      print *,'hello3'
      end if
  300 print *,z(ii)
      Close (10)
      Close (12)
      STOP
      END

元のデータは実数と整数が混じっているのでおそらく配列の宣言がおかしいのではないかと思うのですが、調べてもわかりません。
おかしいところと解決方法を教えていただけたらと思います。
ちなみにエラーは下のようになります。

訂正後

c     refL
      Program refL
      Real z(5000)
      Open (10,file='160909000000_refL.out',status='old')
      Open (12,file='160909000000_refL.outZ',status='replace')
      ii=0
  100 Continue
      ii=ii+1
      Read (10,*,end=200) z(ii)
      print *,z(10)
      Go to 100
  200 Continue
      N=ii-1
      do 300 i=1,N
      if (z(10)==3 .and. z(11)==2) Then
      print *,'hello2'
      
      write(12,*) z(16)
      print *,'hello3'
      end if
  300 print *,z(16)
      Close (10)
      Close (12)
      STOP
      END
      

このように訂正してsyntaxエラーは改善したのですが、下記のように同じ数字が羅列してエラーが起きているのですが、宣言の仕方が間違っているのでしょうか。

Answer 1

宣言文(Integer)の前に実行文(open)があるからですね。

Syntaxエラーなら、初心者でも、文法を確認すれば自分で必ず解決できます。

あと、実数と整数が混じった物を一つの配列に入れるなら、実数型にすると思いますが、なぜ整数型で宣言しているのでしょうか？

Comments

[tatsu31]

先日に引き続き回答ありがとうございます。
>宣言文(Integer)の前に実行文(open)があるからですね。
わかりました。訂正します。
>あと、実数と整数が混じった物を一つの配列に入れるなら、実数型にすると思いますが、なぜ整数型で宣言しているのでしょうか？
ごもっともなご指摘ありがとうございます。つまりrealで型宣言ということでよろしいですか。

少しとんちんかんな質問が多いとは思いますが、できる限り自分でできるように考えていき、少しずつ減らしていこうと思います。どうかよろしくお願いします。

[tatsu31]

訂正後上のようなエラーになったのですが宣言の仕方がおかしいのでしょうか。

[otn]

同じ変数を表示しているので同じ値が表示されます。それが意図通りでないなら、意図通りにプログラムを書きましょう。

SIGSEGVの原因として考えられるのは、データファイルが5000行以上あったとか。