Fortran确定文本中数据的行数

love2100

关于确定数据行数，大家也发了几个程序，本人也编写了一个程序仅供大家参考，同时还有一个问题需要和大家讨论一下。
程序如下：

!如何确定一个文本文件中有多少行
program determine_number_of_line
integer::num_line=0               !该变量用于确定行数
integer::stat                     
character(len=40)::string_tem     !把每一行数据看做一个字符串一次性读入
  
open(10,file="57067.txt",STATUS='OLD')
do while(.true.)  
  read(10,*,iostat=stat) fall_information
    if (stat/=0) exit
    num_line=num_line+1
  end do
print*,num_line
stop
end
!注意的一个问题：当我们确定文本的行数后，如果需要继续操作该文本，必须要rewind(10)
!因为在进行完上述操作后，读写的位置已经放到文本最后了，利用rewind
!命令可以使读写位置回到开头，方可重新开始读写文本，否则出错。

这个程序中有一个关于iostat的问题请高人指点一下：如果把程序中read命令中参数iostat去掉后，编译正确，但是运行时在读取文件时却结束了，就是
大家很熟悉的，请问这是怎么回事呢？我看一些程序的read命令中也没有iostat这个参数，在这个程序中为什么必须要有这个参数呢？哪些情况下这个参数可以没有呢？大家讨论一下哈。









来自群组: 成于大气 信达天下

小肥妞

好文，正好用上，谢谢楼主