導入：なぜ「0, 5, 6」の呪縛を解く必要があるのか
FORTRANを長年扱っているエンジニアの間では、標準入力に「5」、標準出力に「6」、標準エラーに「0」を割り当てるという「伝統」が深く根付いています。しかし、この数値を直接コードに埋め込む手法は、現代の複雑な計算環境においては、予期せぬI/Oエラーや、環境依存によるバグの温床となります。本記事では、なぜこれらの番号を避けるべきか、そして代わりにどのような手段を用いるべきかを解説します。
基礎知識：ユニット番号とは何か
FORTRANにおいて、ファイルやデバイスを操作する際に指定する整数値を「ユニット番号（Unit Number）」と呼びます。かつてのFORTRAN環境では、特定の番号が特定の物理デバイス（パンチカードリーダーやラインプリンタなど）と紐付けられていたため、0, 5, 6といった番号が慣習的に使われてきました。しかし、現代のOS環境では、これらの番号は固定的なものではなく、プログラムの実行環境によって動的に割り当てられるべきリソースです。
実装：ISO_FORTRAN_ENVによる安全なI/O処理
現代のFORTRAN（Fortran 2003以降）では、言語仕様として標準入出力を定義するためのモジュールISO_FORTRAN_ENVが用意されています。これを利用することで、数値の直接指定という「ハードコーディング」を回避し、コンパイラやOSが推奨する正しいユニット番号を自動的に取得できます。これにより、コードの移植性と堅牢性が劇的に向上します。
サンプルプログラム：推奨される入出力の実装
以下は、伝統的な書き方ではなく、標準モジュールを利用した安全な書き方の例です。
program safe_io
! ISO_FORTRAN_ENVモジュールを読み込みます
use, intrinsic :: iso_fortran_env, only : input_unit, output_unit, error_unit
implicit none
character(len=100) :: buffer
! 標準出力への書き出し（ユニット番号6を直接指定しない）
write(output_unit, ) "処理を開始します..."
! 標準入力からの読み込み（ユニット番号5を直接指定しない）
write(output_unit, ) "名前を入力してください:"
read(input_unit, ) buffer
! 標準エラーへの書き出し（ユニット番号0を直接指定しない）
if (len_trim(buffer) == 0) then
write(error_unit, ) "エラー: 名前が入力されていません。"
else
write(output_unit, ) "こんにちは, ", trim(buffer), "さん。"
end if
end program safe_io
応用・注意点：現場で役立つアドバイス
1. 既存コードのリファクタリング
古いコードを修正する際は、一度にすべてを書き換えるのではなく、まずは定数定義の部分を`use`文に置き換えることから始めてください。これにより、コンパイル時にユニット番号の競合が発生していないかを即座に確認できます。
2. ユニット番号の重複に注意
もし、どうしても数値でユニット番号を管理しなければならないライブラリを併用する場合は、使用可能なユニット番号を管理する関数を作成し、重複しないように排他制御を行う仕組みを導入してください。
3. 結論
「0, 5, 6」という伝統は歴史的な経緯を知る上では重要ですが、実務においては「環境に依存しないコードを書く」というエンジニアの鉄則を優先しましょう。ISO_FORTRAN_ENVを活用することで、数年後、数十年後の環境でも動作する、堅牢な計算プログラムを維持することができます。
コメント