存在大批量数据文件，但每个文件存放的数据行数不同，如何判断读取文件的末尾。
do j=1,nmax
   read(40,'(a)',iostat=end)sacin
   if(end.lt.0)exit
   write(45,*)sacin
enddo
这里end<0表示文件读取到了末尾，nmax是文件中数据的行数，可取一个较打的值。



转载本文请联系原作者获取授权，同时请注明本文来自景月岭科学网博客。
链接地址：https://blog.sciencenet.cn/blog-207766-511876.html

上一篇：RDSEED在Linux上的安装
下一篇：Don't give up