1. 導入：なぜDIMENSION文を知る必要があるのか
数値計算の現場では、数十年前から稼働している古いFortranコード（通称：レガシーコード）に出会うことが多々あります。その中で頻繁に登場するのが「DIMENSION文」です。現代のプログラミングではあまり見かけない書き方ですが、古いプログラムをメンテナンスする際には必ず理解しておく必要があります。なぜこの書き方が「過去の遺物」となり、現代では避けるべきなのか。その理由を解説します。
2. 基礎知識：DIMENSION文とは何か
Fortranにおいて、配列（複数の数値をまとめて扱う箱）を使うためには、そのサイズをコンピュータに伝える必要があります。
DIMENSION文は、その配列のサイズだけを独立して指定する命令です。
例えば、`REAL A` という行で「Aは実数型である」と宣言し、別の場所で `DIMENSION A(10)` と書くことで「Aは10個の要素を持つ配列である」と定義します。かつてのFortran77以前の環境では、このように「型」と「サイズ」を分けて記述するのが標準的なスタイルでした。
3. 実装と解決策：現代的な記述へのシフト
現在のFortran（Fortran 90以降）では、型宣言と同時にサイズを指定する「型宣言内での配列定義」が推奨されています。
なぜ統合すべきなのか？
宣言がコード内で分散していると、「この変数は結局いくつのサイズなんだ？」と確認するためにコードを上下に探す必要があり、バグの温床になります。これを一箇所にまとめることで、可読性が劇的に向上し、修正ミスを減らすことができます。
4. サンプルプログラム：新旧比較
以下のコードで、レガシーな書き方と、現代的で読みやすい書き方の違いを確認してみましょう。
! --- レガシーな書き方（非推奨） ---
PROGRAM OLD_STYLE
REAL A, B
DIMENSION A(10), B(20) ! 型宣言とサイズ指定がバラバラ
A(1) = 1.0
PRINT , A(1)
END PROGRAM
! --- 現代的な書き方（推奨） ---
PROGRAM NEW_STYLE
! 型宣言の中にサイズを含めるため、一目で構造がわかる
REAL, DIMENSION(10) :: A
REAL, DIMENSION(20) :: B
! もしくは、より簡潔な記述
REAL :: C(10)
A(1) = 1.0
PRINT , A(1)
END PROGRAM
5. 応用・注意点：現場での立ち回り
レガシーコードを扱う際、既存のDIMENSION文を無理にすべて書き換える必要はありません。 動作しているコードを不用意にいじると、思わぬ副作用で計算結果が変わってしまうリスクがあるためです。
ただし、新しく機能を追加したり、コードの一部を書き直したりする際は、積極的に現代的な「型宣言内での定義」を採用しましょう。また、DIMENSION文を使用する際、もし古いコンパイラで「暗黙の型宣言（IからNで始まる変数は整数になる等）」と混ざってしまうと、デバッグが困難なバグを引き起こすことがあります。可能であれば `IMPLICIT NONE` を常に宣言し、変数の型を明示的に指定する習慣を身につけることが、数値計算エンジニアとしての第一歩です。
コメント