关于二进制文件读取

chiangtp

wxy 发表于 2017-9-2 12:21
还想请教一下，我在读取32位数据时可以491*411全部读出来，但换成16位格式数据时
只读取出一半，而且读取 ...

1. 16位格式数据, 2-Byte INTEGER? 請試試
    INTEGER, PARAMETER :: ibyte2 = SELECTED_INT_KIND(r= 4) !  2-Byte INTEGER
    INTEGER(KIND=ibyte2) :: grid(mcol,mrow)

2. DIRECT/STREAM access, 不保證完全相容, 也可能compiler dependent

3.  图一是二进制文件的基本属性，这是一个491*411的格点数据，我在读取时只读到1*411就end of file
    open(7,file='xd10kmlr1.bil',form="unformatted",access='direct',recl=mcol*4,iostat=status)
-> open(7,file='xd10kmlr1.bil',form="unformatted",access='direct',REAL=4,iostat=status) ! 4-byte
-> open(7,file='xd10kmlr1.bil',form="unformatted",access='direct',RECL=1,iostat=status) ! one "4-byte" data
    RECL=?, compiler dependent