针对 Fortran中binary与unformatted的小测试

freekiller

程序很简单，读取一个数然用成binary和unformatted写出， 最后读取屏幕显示

program   testbinandunformatted
    implicit none

    real(kind=8)               :: a(100)
    integer                       :: i, j, rl, rc
    real(kind=8)               :: f1(100),f2(100),f3(100),f4(100)
  
   a= 10.000
! open file and write
   open(12,file="a.bin",form="binary",access='direct',recl=8)
   open(13,file="b.bin",form="unformatted",access='direct',recl=8)
    rl = 0
    do i = 1, 100
    rl = rl + 1
       write(12,rec=rl)  a(i)
    write(13,rec=rl)  a(i)
    end do
   
    close (12)
close (13)
! open the exist file and read

   open(14,file="a.bin",form="binary",     access='direct',recl=8)
   open(15,file="b.bin",form="unformatted",access='direct',recl=8)
   
    rc = 0
    do j = 1, 100
    rc = rc + 1
    read(14,rec=rc) f1(j)
    read(15,rec=rc) f2(j)
       write(6,*) j, f1(j), f2(j)
     end do   
stop
end

程序运行结果：




文件排列方式（可以用ultraedit查看）
                             binary                                                                                      
                              unformatted      



文件大小




binary作为一种非标准的二进制格式，与unformatted的排列有着一定的区别。数据的大小、读取方式与写入数据的类型有一定的关系。这也是为什么二进制文件在不知道格式的情况下难以正确的原因。

仅供参考，欢迎拍砖。

wuyejincao

你是不是应该写个道歉信

freekiller

wuyejincao 发表于 2014-8-1 12:43
你是不是应该写个道歉信

你先说                  

wuyejincao

freekiller 发表于 2014-8-1 12:45
你先说

你发这个帖子不就是说明我对了吗

freekiller

wuyejincao 发表于 2014-8-1 12:46
你发这个帖子不就是说明我对了吗

你认为哪里是4倍

wuyejincao

freekiller 发表于 2014-8-1 12:46
你认为哪里是4倍

1.你的软件？你的系统环境？
2.你的精度
3.如果你不明白计算机里面计算字节的方法和表示方式，我建议你学习一下基础理论。
4.你为什么不在我的帖子下面回帖，让浪费论坛的资源，你知道这论坛的钱谁出的吗？
5.从这件事上还是能看出你不适合科研。

freekiller

wuyejincao 发表于 2014-8-1 12:51
1.你的软件？你的系统环境？
2.你的精度
3.如果你不明白计算机里面计算字节的方法和表示方式，我建议你 ...

你的帖子被管理员锁了

我确实不适合， 我只是就问题说问题， 不要扯其他。你有时间可以把不同数据类型放进去试试，特别是把不同类型数据往同一个文件写。 我想我没必要和你争，你觉得这样就这样。既然是论坛交流，我只阐明我的观点。

wuyejincao

freekiller 发表于 2014-8-1 12:56
你的帖子被管理员锁了

我确实不适合， 我只是就问题说问题， 不要扯其他。你有时间可以把不同数据类型 ...

对，你可以阐明你的观点，但请不要把别人踩在脚下。类似于：“虽然我也说不清楚，但绝对不是你说的这样。”这样的话是很让人伤心的。以后审稿中你要是这么回答的话，后果也是不堪设想的。我只是再教你怎么面对科研分歧。

freekiller

wuyejincao 发表于 2014-8-1 13:00
对，你可以阐明你的观点，但请不要把别人踩在脚下。类似于：“虽然我也说不清楚，但绝对不是你说的这样。 ...

我再说一下， binary作为一种非标准型二进制格式，与编译器和系统环境有关，在不同地方结果会大相径庭。 我所以说这个问题没准，所以不好说，我之前碰到了很奇怪的问题。你有兴趣可以试试。所以我在你的帖子中回复的都是百度中讲解稍微详细的结果，完全是供你参考。是你一直认为我有意攻击你，我只是想让你注意。

传说中的谁

能不能打起来？需要裁判吗？