顺序方式写入,那么顺序方式读取。就比较好了。
如果你不想这样,那么可以考虑用直接读取方式。比如100个数据
[Fortran] 纯文本查看 复制代码 Type T_S
Integer :: n_begin
Real :: 单个数据
Integer :: n_end
End Type
Type ( T_S) :: d(100)
Open( 12 , File = 文件名 , access='direct' , form='unformatted' , recl = 100 * ( 4 + 数据大小 + 4 ) )
Read( 12 , rec = ) d(:)
Close(12)
这样就可以不用循环了。 |