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

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

参考
http://spring.cc.kyushu-u.ac.jp/scp/system/general/kyu-cc/manual/Fortran/language-reference/ja/html/lr87.htm
http://www.str.ce.akita-u.ac.jp/~gotou/zyouhou/f90/sec7.html#7.2.1.