Fortran Tip集

3 １行読み飛ばす方法

ファイルからの読み込み時に読み込む必要のない行を読み飛ばしたい場合があります。 このような場合以下の例のようにread文に空の書式を指定して実現可能です。

[ skip-a-line.f90 ] - １行読み飛ばすサンプル

program skip_a_line
  implicit none
  integer i
  open(99, file='mydata.dat' )
  read (99,'()')    ! 1行スキップする
  read (99,*) i
  close(99)
end