RECL问题

duty · 发表于 2014-3-17 03:03:28

现在想要通过改变RECL来改变每次读入数据的大小，从而方便检索，但是发现改变了RECL的值以后，读入数据和预期不一样啊
下面的代码首先以RECL=4*4向文件中写入数据1到16，然后以RECL=2*4从文件中读入数据，为什么读入的数据偶数行都为0，用RECL=4*4读入，发现数据并没有被修改~求指点啊~

[Fortran] 纯文本查看 复制代码

 PROGRAM MAIN      INTEGER II,JJ,KK,LL,MM
      OPEN(UNIT=15,FILE='dty.bin', ACCESS='DIRECT',
     =STATUS='REPLACE',FORM='UNFORMATTED',RECL=4*4)
      DO 100 II=1,4
          WRITE(15,REC=II) (JJ,JJ=1+(II-1)*4,II*4)
100   CONTINUE
      CLOSE(15)
      PRINT*,'The original'
      OPEN(UNIT=15,FILE='dty.bin',ACCESS='DIRECT',
     =STATUS='OLD',FORM='UNFORMATTED',RECL=4*4)
      DO 200 II=1,4
          READ(15,REC=II) JJ,KK,LL,MM
          WRITE(*,*) JJ,KK,LL,MM
200   CONTINUE
      CLOSE(15)
      PRINT*,'New'
      OPEN(UNIT=15,FILE='dty.bin',ACCESS='DIRECT',
     =STATUS='OLD',FORM='UNFORMATTED',RECL=2*4)
      DO 300 II=1,8
          READ(15,REC=II) JJ,KK
          WRITE(*,*) JJ,KK
300   CONTINUE
      CLOSE(15)
      PRINT*,'The original'
      OPEN(UNIT=15,FILE='dty.bin',ACCESS='DIRECT',
     =STATUS='OLD',FORM='UNFORMATTED',RECL=4*4)
      DO 400 II=1,4
          READ(15,REC=II) JJ,KK,LL,MM
          WRITE(*,*) JJ,KK,LL,MM
400   CONTINUE
      CLOSE(15)
      END

楚香饭 · 发表于 2014-3-17 07:50:34

你可参考本站文章：http://www.fcode.cn/guide-4-1.html 第5个问题。

RECL 可能有两种含义，一是每个记录的字节，二是每个记录的数据量。

通常32位编译器，字节 = 数据量 * 4

你的编译器可能是这两种含义之中的某一个，这需要你翻阅编译器说明书，或者自己测试一下。（某些编译器还允许改变设置来改变这个含义）

很显然，你的编译器认为 RecL 是数据量，而你认为是字节数。

修改的话，只要把 RecL = 4*4 修改为 RecL = 4 ； RecL = 2*4 修改为 RecL = 2 既可。

另外，要注意你的 dty.bin 文件。16个数据，每个4字节，应该是64字节。如果你的文件是 256字节，则说明 RecL 比预期大了四倍。

duty · 发表于 2014-3-18 00:48:37

chuxf 发表于 2014-3-17 07:50
你可参考本站文章：http://www.fcode.cn/guide-4-1.html 第5个问题。

RECL 可能有两种含义，一是每个记录 ...

赞一个~谢谢啊~发现IVF默认的是数据量~~

[求助] RECL问题

新人勋章

爱心勋章

水王勋章

元老勋章

热心勋章