打开文件直接读；
在READ中加上IOSTAT，当IOSTAT不为0时则退出读文件循环；

伪代码如下：
integer(4)::  N = 512
character*256 文件总数(N)                  ! 文件列表是大小为N（N>=文件总数）的一个字符串数组：）
Call 加载文件列表(文件列表, 文件总数, N)   ! 子程序还会返回文件总数(总数不大于给定的N)：）
循环i从1到文件总数
  打开文件：“文件列表(i)”
  循环
    读取当前文件直到IOSTAT不为0则跳出本层循环
    处理读入的数据
  循环结束
  关闭当前文件
循环结束