Fortran语言编程实现读取数据文件行数

在编写Fortran语言程序进行数值计算时，经常需要对未知大小的数据文件进行计算，在运用动态数组的过程中会遇到问题，即事先不知道数据文件的行数，需要使用编程实现这个步骤，以“data.txt”为例：

代码示例

call line_no('data.txt',n)subroutine line_no(file_name,n)    character*80 file_name    integer n    n=0    open(10,file=file_name,status='old')    do while (not(eof(10)))         read(10,*)       n=n+1    end do    close(10)end subroutine line_no