「データ数が未知のファイルを読む」の編集履歴（バックアップ）一覧はこちら
「データ数が未知のファイルを読む」(2007/10/14 (日) 02:34:33) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
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.]]
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.]]
