導入：なぜデータ読み込みが重要なのか
数値計算において、計算対象となるデータは外部のテキストファイルやキーボードから与えられることがほとんどです。プログラムの中に数値を直接書き込む（ハードコーディング）と、データのたびにコードを書き換えなければならず非常に非効率です。「READステートメント」を使いこなすことで、プログラムを汎用化し、大量の計算データも効率よく処理できるようになります。
基礎知識：READステートメントの仕組み
READステートメントは、外部から情報を受け取り、メモリ上の変数に代入する役割を担います。
今回の構文「read(5, , iostat=ios) a, b」を分解してみましょう。
・ユニット番号（5）: どの場所からデータを読み込むかを指定する番号です。キーボード入力は標準的に「5」や「」が使われます。
・書式指定（）: 「自由書式（リスト指向）」を意味します。データの間にある空白や改行を自動で区切り文字として認識してくれるため、初心者には最も扱いやすい設定です。
・IOSTAT（iostat=ios）: 入出力の結果を数値で受け取る変数です。正常に読み込めたか、ファイルの終端に達したかなどを判定するために使います。
実装：堅牢なプログラムのためのステップ
実務では「ファイルが終わったらどうするか」「データが正しくない形式だったらどうするか」を考える必要があります。これらを制御するのが「エラーハンドリング」です。READステートメントにEND=（終了時）やERR=（エラー時）のラベルを指定することで、プログラムが異常終了するのを防ぎ、安全に処理を継続できます。
サンプルプログラム：安全にデータを読み込む
以下のコードは、ファイルからデータを読み込み、末尾に達した際に適切に終了する典型的なパターンです。
program read_example
implicit none
real :: val1, val2
integer :: ios
! 5番のデバイスから値を読み込み、結果をiosに格納
! iostatで0以外が返れば読み込み失敗または終了
do
read(5, , iostat=ios) val1, val2
! 読み込みが正常終了したか確認
if (ios < 0) then
print , "データの末尾に達しました。"
exit
else if (ios > 0) then
print , "データ形式エラーが発生しました。"
cycle
end if
! 読み込んだ値を表示
print , "読み込んだ値:", val1, val2
end do
end program read_example
応用・注意点：現場で陥りやすい罠
1. 型の不一致: 変数が「integer（整数型）」なのに、入力ファイルに「1.5」のような小数があるとエラーになります。変数の型と入力データの型が一致しているか常に注意しましょう。
2. 改行の扱い: 自由書式（）では、改行はスペースと同じ扱いです。そのため、読み込むべき変数の数とファイル内のデータの数が合っているかを確認してください。
3. デバッグのコツ: プログラムが意図通りに動かない場合は、IOSTAT変数（上記の例ではios）の中身を表示させてみてください。負の値なら「ファイルの終端」、正の値なら「入力データそのものの誤り」と原因を切り分けることができます。
まずは小さなテキストファイルを作って、このREAD処理を試してみてください。データ処理の自動化への大きな一歩になります！
コメント