simply fortran的文件批处理

胡文刚

循环读取，每次判断。
类似

do ....
  read(11,*) a
  if( a > ... ) then
    ...
  end if
end do