fortran二进制文件存为十进制

program excise03
implicit none
integer,parameter::fileid=10
character(len=20)::filename="4.dat"
integer player,n1,n2

real u(29,34,35),v(29,34,35)
logical alive
integer error,i,j,k,t,rec1

inquire(file=filename,exist=alive)
if(.not.alive)then
write(*,*)trim(filename),"does not exist"
stop
end if

open(unit=fileid,file=filename,form="unformatted",access="direct",recl=29*34,status="old")
open(unit=11,file="41.dat",form="formatted",access="direct",recl=29*34*4,status="replace")

rec1=1

do t=1,6*24
do k=1,35
read(10,rec=rec1)((u(i,j,k),i=1,29),j=1,34)

!write(*,*)((u(i,j,k),i=1,29),j=1,34)
write(11,rec=rec1)((u(i,j,k),i=1,29),j=1,34)
rec1=rec1+1
end do
do k=1,35
read(10,rec=rec1)((v(i,j,k),i=1,29),j=1,34)
!write(*,*)((v(i,j,k),i=1,29),j=1,34)
write(11,rec=rec1)((v(i,j,k),i=1,29),j=1,34)
rec1=rec1+1
end do
end do

close(fileid)

close(11)
stop
end program

这个程序存成的还是二进制文件，高手指点一二

你好。
很幸运看到你的问题。
但是又很遗憾到现在还没有人回答你的问题。也可能你现在已经在别的地方找到了答案，那就得恭喜你啦。
可能是你问的问题有些专业了，没人会。或者别人没有遇到或者接触过你的问题，所以帮不了你。建议你去问题的相关论坛去求助，那里的人通常比较多，也比较热心，可能能快点帮你解决问题。
希望我的回答也能够帮到你！
祝你好运~！

open(unit=fileid,file=filename,form="unformatted",access="direct",recl=29*34,status="old") open(unit=11,file="41.dat",form="formatted",access="direct",recl=29*34*4,status="replace")

这两句话操作的是两个不同的文件，前面一句的status="old"说明它只能用于读出一个已存在的文件中的数据，不然会出错

后一句的status="replace“说明要用新文件替换旧文件，如果旧文件不存在，文件状态会自动转变成"old"

而你两次打开的文件不是同一个文件，当然原来那个"unformatted"文件还是那个文件

你试着将后一句中的status="replace"去掉，或改status="unknown"，看看是否生成了一个名叫41.dat的有格式的文件，而原来的文件还在