作者xhole (沼泽之子 Big Al)
看板Programming
标题[问题]Fortran资料输出的问题
时间Mon Oct 8 14:02:24 2007
程式如下
PROGRAM READER
IMPLICIT NONE
INTEGER :: status,i
REAL :: dat
OPEN(UNIT=5, FILE="bba000", ACCESS="DIRECT", STATUS="OLD", RECL=1)
! OPEN(UNIT=6, FILE="TEMP.txt", FORM="FORMATTED",ACCESS="SEQUENTIAL",
! STATUS="REPLACE", RECL=1)
DO i=1,10
READ(5,rec=i,iostat=status) dat
WRITE(*,*) dat
END DO
END
我想写一个小程式可以用来读出bba000这个二进位档,不过现在遇到一个
奇怪的问题,就是如果我直接把读出的档案显示在萤幕上,资料是连续的显示的,如下
1.0621596E-38
-4.0577532E-08
-3.8520103E-08
-4.1753204E-08
这样,但是要是叫他把结果输出到档案里,却会变成隔一行输出
1.0621596E-38
-4.0577532E-08
-3.8520103E-08
-4.1753204E-08
想请问一下有没有办法让档案里的结果跟萤幕上显示的一样是连续的呢
附上一些档案
bba000
http://www.badongo.com/file/4637952
程式
http://www.badongo.com/file/4637973
搞了一早上了还是搞不懂,希望大家能帮我解惑..感激不尽!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.104.79.254
1F：→ lmdpapala:记得显示在萤幕上 如果没有设定 一定会 210.70.181.180 10/08 15:41
2F：→ lmdpapala:排排显示 因为没设定所以中间不会有空 210.70.181.180 10/08 15:41
3F：→ lmdpapala:如果加上write(*,*) "" 不就跟档案一样 210.70.181.180 10/08 15:42