在编写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