如何获取文件中记录条数

pacoyang

文件打开用语句：
open(unit=nprp,file='H:\Abaqus\multigrain\data\properties.dat', status='old',access='direct',form='formatted',recl=15*8+2)

下面语句i存储记录条数
        i=1;
        do 10 while(1)
            read(nprp,100,rec=i,end=20) a
            i=i+1
10     continue
20     continue

但是出现下面错误
umat_mod5.for(44) : Error: An END= specifier is not valid in a direct access READ statement.
                                         read(nprp,100,rec=i,end=20) a
说是direct格式文件读的话end后的标号无效。怎么回事？书上可以这样啊。如果仍然采用direct格式，怎么得到记录条数。

lishhit

“怎么得到记录条数。”没看明白你要干什么？

不过：
20 continue
换成
20 rewind (nprp)

试试

巴神

学习了 谢谢楼主！！！！！！！！！！！！！！！！！！！！