1、肯定要用循环
2、循环终止条件是读到文件尾
3、循环读取时，如果读到time就新开一个文件
4、循环里可以再整一个循环，用于写单一个文件
5、内层循环的终止条件是读到time或是读到文件尾

自己试着细化，并处理细节问题吧：）比如：
1、文件如何命名
2、内层读到time后退出，外层应该怎样处理？

谢谢提供思路，由于初学思路较窄。请指教怎么才能让程序循环到第N次，把第N个time和第N+1个time之间的内容复制过去呢？[em18]

求帮助，给个思路就行。。。。。。。。。。

其实1楼讲的基本就是思路了. 楼主不妨翻翻书看如何实现每一步吧.

1、肯定要用循环
2、循环终止条件是读到文件尾                   read(unit=文件号, iostat=整型变量)
3、循环读取时，如果读到time就新开一个文件     if(字符串(1:4) == 'time') then
4、循环里可以再整一个循环，用于写单一个文件
5、内层循环的终止条件是读到time或是读到文件尾 if(整型变量 /= 0) then 文件意外读取或者到尾部