>>68

いまコンパイラないから試してないけど、これで走らないかな。

open(1,file='data.dat',status='old')
icont = 0

do
read(1,*,iostat=io) aaa
if(io /= 0 ) exit
icont = icount + 1
end do