Fortran Builder Logo
Fortran Builder



NAG Library Image
NAG Fortran
ライブラリ
関連情報

ナビゲーション:前へ   上へ   次へ

14 C言語等で書き出されたバイナリファイルを読み込む方法

C言語等の言語で書き出されたバイナリファイルをFortranプログラムで読み込む場合は、 open文のform=指定子で「書式なし」を示す'unformatted'を指定し、且つaccess=指定子にFortran 2003から導入された'stream'を指定します。

ここでform='unformatted', access='stream'はC言語のバイナリストリームに相当します。
(なお、form='formatted', access='stream' はC言語のテキストストリームに相当します。)

[ read-binary.f90 ] - バイナリファイルを読み込むサンプル    
[ binary_data.dat ] - サンプル入力データファイル

program read_binary_file
  use iso_fortran_env
  implicit none
  integer (int8) val               ! 1 byte integer
  integer i, unit
  character (100) emsg

  ! ファイルを書式なしストリームとして開く
  open (newunit=unit, file='binary_data.dat', form='unformatted', &
        access='stream', status='old')

  ! ファイルの終端まで読み込む
  i = 1
  do
    read (unit, end=100, err=110, iomsg=emsg) val ! 終了時100へ、エラー時110へ
    write (*, '(2x,z2.2)', advance='no') val      ! 16進2桁で出力する、改行無し
    if (i==8) then
      write (*, '()')                             ! 8個出力する毎に改行
      i = 1
    else
      i = i + 1
    end if
  end do

  ! ファイルを読み込み終了時の処理
100 continue
  if (i==8) write (*, '()')                       ! 最後に改行が必要ならば改行

  ! ファイルを閉じて終了
  close (unit)
  stop

  ! エラー発生時の処理
110 continue
  print *, 'io error: ', trim(emsg)
end program read_binary_file
実行例:
  00  01  02  03  04  05  06  07
  08  09  0A  0B  0C  0D  0E  0F
  10  11  12  13  14  15  16  17
  18  19  1A  1B  1C  1D  1E  1F
  20  21  22  23  24  25  26  27
  28  29  2A  2B  2C  2D  2E  2F
  30  31  32  33  34  35  36  37
  38  39  3A  3B  3C  3D  3E  3F
  40  41  42  43  44  45  46  47
  48  49  4A  4B  4C  4D  4E  4F
  50  51  52  53  54  55  56  57
  58  59  5A  5B  5C  5D  5E  5F
  60  61  62  63  64  65  66  67
  68  69  6A  6B  6C  6D  6E  6F
  70  71  72  73  74  75  76  77
  78  79  7A  7B  7C  7D  7E  7F
  80  81  82  83  84  85  86  87
  88  89  8A  8B  8C  8D  8E  8F
  90  91  92  93  94  95  96  97
  98  99  9A  9B  9C  9D  9E  9F
  A0  A1  A2  A3  A4  A5  A6  A7
  A8  A9  AA  AB  AC  AD  AE  AF
  B0  B1  B2  B3  B4  B5  B6  B7
  B8  B9  BA  BB  BC  BD  BE  BF
  C0  C1  C2  C3  C4  C5  C6  C7
  C8  C9  CA  CB  CC  CD  CE  CF
  D0  D1  D2  D3  D4  D5  D6  D7
  D8  D9  DA  DB  DC  DD  DE  DF
  E0  E1  E2  E3  E4  E5  E6  E7
  E8  E9  EA  EB  EC  ED  EE  EF
  F0  F1  F2  F3  F4  F5  F6  F7
  F8  F9  FA  FB  FC  FD  FE  FF



ナビゲーション:前へ   上へ   次へ

Results matter. Trust NAG.
Privacy Policy | Trademarks