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

「データ数が未知のファイルを読む」の編集履歴（バックアップ）一覧に戻る

データ数が未知のファイルを読む - (2007/10/14 (日) 02:28:43) の編集履歴(バックアップ)

---

     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