Fortran未格式化的文件格式

Question

我不明白fortran中未格式化文件的格式.

例如:

open (3,file=filename,form="unformatted",access="sequential")
write(3) matrix(i,:)

将矩阵列输出到文件中.我发现它在两端填充了4个字节的文件,但是我真的不明白为什么,或者如何控制这种行为.有没有办法删除填充？

谢谢

Answer 1

对于未格式化的IO,Fortran编译器通常在记录的开头和结尾写入记录的长度.大多数但不是所有编译器都使用四个字节.这有助于读取记录,例如,最后的长度有助于退格操作.您可以使用Fortran 2003的新Stream IO模式来抑制此问题,该模式是为了与其他语言兼容而添加的.在open语句中使用access ='stream'.

Answer 2

出于这个原因,我从未使用无格式输出的顺序访问.但是它取决于应用程序,有时候有一个记录长度指示器(特别是非结构化数据)很方便.正如steabert在gnuplot上查看来自fortran的二进制输出所示,你可以通过使用关键字参数来避免这种ACCESS = 'DIRECT'情况,在这种情况下你需要指定记录长度.该方法便于有效存储大型多维结构化数据(恒定记录长度).下面的示例写入一个大小等于数组大小的无格式文件:

REAL(KIND=4),DIMENSION(10) :: a = 3.141
INTEGER                    :: reclen

INQUIRE(iolength=reclen)a
OPEN(UNIT=10,FILE='direct.out',FORM='UNFORMATTED',&
     ACCESS='DIRECT',RECL=reclen)
WRITE(UNIT=10,REC=1)a
CLOSE(UNIT=10)

END

请注意,从可移植性的角度来看,这不是理想的方法.在使用直接访问编写的无格式文件中,没有关于每个元素大小的信息.描述数据大小的自述文本文件对我来说工作正常,我更喜欢这种方法而不是顺序模式中的填充.

Answer 3

Fortran IO是基于记录的,而不是基于流的.每次通过您写东西时,write()不仅要写入数据,还要记录该记录的开始和结束标记.两个记录标记都是该记录的大小.这就是为什么在一次写入中写入一堆实数(一个记录:一个开始标记,一堆实数,一个结束标记)具有不同的大小,相对于在单独的写入中写入每个实数(多个记录,每个一个开始标记,一个真实标记和一个结束标记.如果你写下大型矩阵,这是非常重要的,因为如果写得不正确,你可能会占据职业.