前へ 上へ 次へ
前へ 上へ 次へ
4 1行すべてを読み込む方法
ファイルからの読み込みにおいて行内の空白などもふくめ1行すべてを読み込みたい場合があります。
このような場合には以下の例のように書式の指定で '(a)' を用いて実現可能です。
'(a)'を指定した場合空白なども含めて行の最初から最後までを読み込む事が可能です。
[
read-whole-line.f90
] - 1行すべてを読み込むサンプル
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
前へ 上へ 次へ