求教fortran读文件eof问题

因为你没有读文件啊。文件一直在那里，nline 可不就一直增加么？

是否应该是

do while(.not. eof(9))

read( 9 , * )

nline=nline+1

end do

fortran 在处理文件时也有文件结尾的概念。

READ(UNIT=number, FMT=format, NML=namelist, REC=record, 

IOSTAT=stat, ERR=errlabel, END=endlabel, ADVANCE=advance, 

SIZE=size)

 

UNIT=number    指定read/write所使用的输入输出的位置。

FMT＝format    指定输入输出格式的使用。

NML=namelist   指定读写某个NAMELIST的内容（后续介绍）。

REC=record      在直接读取文件中，设置所要读写的文件的模块位置。

IOSTAT=stat     会设置一个数值给在它后面的变量，用来说明文件的读写状态。

         stat>0    表示读取 *** 作发生错误。

         stat=0    表示读取 *** 作正常。

         stat<0    表示文件终了。

ERR=errlabel     指定在读写过程中发生错误时，会转移到某个行代码来继续执行程序。

END=endlabel    指定在读写到文件末尾时，要转移到某个行代码来继续执行程序。

---