Fortran用stream流读取二进制文件问题

fcode

把文件传上来

fcode

您的问题有两个：
1.您的数据是一个无格式顺序文件。所以如果你要用 stream 读取，需要在每个 read 前后各加一个 n。
  之前你的代码在前面加了 flag0，但没有在后面加
2.您的数据是一个大端字节序（big-endian），而你的编译器是默认小端字节序的（little-endian），您需要在 Open 的时候指定为大端字节序。
  当然，指定的方法不标准，因为语法没有规定大小端字节序。如果以下的代码在你的编译器上不支持，请告诉我你使用什么编译器，我再为你查找方法。

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

Program www_fcode_cn
  Implicit None
  character(len=8) :: flag1             !// 8字节
  character(len=4) :: dtype             !// 数据类型
  integer(kind=4) :: i,j,k,n
  integer(kind=4) :: ii,jj,kk
  Open( 12 , File = "INJECTWATER_FORWUNAN.GRID" ,convert='BIG_ENDIAN', access="stream" , form = "unformatted" )
  Read( 12 ) n,flag1,i,dtype,n
  Write( * , * ) flag1,i,dtype
  Read( 12 ) n,ii,jj,kk,n
  Write( * , * ) ii,jj,kk
  Close( 12 )
 End Program www_fcode_cn