1. 導入：なぜFORMAT文の配置が重要なのか
数値計算の現場で古くから使われているFortranのプログラムを触っていると、サブルーチンの末尾にずらりと並んだ「行番号」と「FORMAT文」を目にすることがあります。しかし、計算ロジック（WRITE文）と出力形式（FORMAT文）が離れていると、修正のたびにファイルを行ったり来たりしなければならず、ミスや読み間違いの原因になります。今回は、このレガシーな慣習から脱却し、現代的な「インライン形式」で効率的にコードを書く方法を解説します。
2. 基礎知識：FORMAT文と行番号の仕組み
Fortranにおいて、データを出力する`WRITE`文は「何を表示するか」を指示し、`FORMAT`文は「どのように表示するか（桁数や小数点以下の精度など）」を定義します。
昔のFortranでは、`WRITE`文の中に直接形式を書くことができなかったため、`WRITE(6, 100)`のように「行番号（100）」を指定し、プログラムの離れた場所に`100 FORMAT(…)`を置く必要がありました。これが「物理配置の分断」を生み出していました。
3. 実装・解決策：インラインFORMATの活用
現代のFortranでは、行番号をわざわざ振る必要はありません。`FORMAT`文を`WRITE`文の中に直接文字列として書き込む「インライン化」を行うことで、プログラムの可読性が劇的に向上します。これにより、出力の仕様を変えたいときに、その場ですぐに数字や書式を修正できるようになります。
4. サンプルプログラム
以下のコードは、レガシーな書き方と、現代的で推奨される書き方の比較です。コピー＆ペーストして動作を確認してみてください。
プログラム インライン出力のテスト
暗黙の型宣言を禁止する
implicit none
real :: x = 123.456789
! — 従来の書き方（行番号を使用） —
write(6, 100) x
100 format(‘従来形式:’, E15.6)
! — 推奨される書き方（インライン化） —
! 行番号を使わず、直接フォーマットを指定します
write(6, ‘(A, E15.6)’) ‘現代形式:’, x
停止
プログラム終了
5. 応用・注意点：現場で役立つアドバイス
・「局所性」を高めるメリット
コードを修正する際、関連する情報をできるだけ近い場所に配置する（局所性を高める）ことは、バグを減らすための鉄則です。インライン化することで、どの変数に対してどんな書式を適用しているかが一目でわかるようになります。
・注意すべき点：複雑なフォーマットの場合
ただし、非常に長いフォーマットや、複数のWRITE文で同じ形式を使い回す必要がある場合は、インライン化すると逆にコードが冗長になることがあります。その場合は、`character`型変数を使ってフォーマットを文字列として定義し、名前を付けて管理する手法が非常に便利です。
・互換性について
今回紹介したインライン化の手法は、現代のコンパイラ（gfortranやifortなど）であれば問題なく動作します。古いレガシーなコードを改修する際は、徐々にこのインライン形式へ書き換えていくことで、保守性の高い資産へとアップデートしていきましょう。
コメント