Fortran中计算文件行数的子程序

一、主程序中调用及定义变量

1、定义变量

（1）filename_name为要计算的文件的文件名

character(len=80) filename_name

（2）num_line_name为该文件的行数

integer num_line_name

2、调用该子程序

call calculate_numline_2(filename_name,num_line_name)

二、子程序内容：

subroutine calculate_numline_2(filename,num_line)

character(len=80) filename
integer num_line

num_line=0

open(1000,file=filename)
do while(.not.(eof(1000)))
  read(1000,*)
  num_line=num_line+1
end do
close(1000)

end subroutine calculate_numline_2