fortran77 中if语句如何判断读完

来源：百度知道 编辑：UC知道 时间：2024/05/16 20:20:14
如何判断已经读完一段数据了，高手帮忙哦~

do while(.true.)
! 读入一整行的数据
read(inputfileid,"(A200)",iostat=error) buffer
if ( error/=0 ) exit ! 没有数据了,离开循环
! 再最前面加上行号再输出到另一个文件中
write(outputfileid, "(I3,'.',A)") count,trim(buffer)
count=count+1 ! 计算行数
end do

看了就懂了