Fortran Tip集

4 １行すべてを読み込む方法

ファイルからの読み込みにおいて行内の空白などもふくめ１行すべてを読み込みたい場合があります。 このような場合には以下の例のように書式の指定で '(a)' を用いて実現可能です。 '(a)'を指定した場合空白なども含めて行の最初から最後までを読み込む事が可能です。

[ read-whole-line.f90 ] - １行すべてを読み込むサンプル

program read_whole_line
  implicit none
  integer,parameter :: max_line_len = 4000
  character(max_line_len) linebuf
  open(99, file='mydata.dat', recl=max_line_len )
  read (99,'(a)') linebuf
  close(99)
  print *, trim(linebuf)
end