データ数が未知のファイルを読む


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

read文で
IOSTAT="指定子(整数)"
を使う。
読んでるデータが終わると "指定子(整数)" < 0 になる。

     open(11,file=cifname,access="sequential")
     ilen=0
     io=0
     do while(io.ge.0)
       ilen=ilen+1
       read(11,*,IOSTAT=io) dlat
     end do
     ilen=ilen -1

ツールボックス

下から選んでください:

新しいページを作成する
ヘルプ / FAQ もご覧ください。