導入：なぜMOLD指定子が必要なのか
数値計算の現場では、入力データのサイズや型に応じて柔軟に作業領域（ワークメモリ）を確保する必要があります。例えば、サブルーチンに渡された配列と同じサイズの計算用領域を用意したいとき、いちいち次元数や要素数を指定するのは非常に手間であり、バグの温床にもなります。ここで役立つのがMOLD指定子です。MOLDを使うことで、既存の変数の「型」と「形状（ランクやサイズ）」だけをスマートに継承でき、コードの保守性と汎用性を劇的に向上させることができます。
基礎知識：MOLDとSOURCEの違い
Fortranのallocate文には、メモリを確保する際に便利な指定子がいくつかあります。
MOLD指定子は、指定した変数の「型」と「形状」のみをターゲットに適用します。重要なのは、メモリの中身（値）をコピーしないという点です。メモリ確保直後の値は不定であり、初期化コストがかからないため、単に構造を合わせたいだけの場面で非常に高速に動作します。
対照的に、SOURCE指定子は「型」「形状」に加えて「値」まで完全にコピーします。状況に応じてこれらを使い分けるのが、熟練のFortranエンジニアへの第一歩です。
実装：MOLD指定子の活用方法
MOLDは特に、ポリモーフィズム（多態性）を利用した抽象的なデータ構造を扱う際に真価を発揮します。
例えば、計算の各ステップで「入力された配列と同じランク・サイズの作業用バッファを確保したい」というケースでは、以下のように記述します。
allocate(work, mold=input_pattern)
これにより、input_patternが1次元配列であればworkも1次元に、実数型であればworkも実数型に、自動的に決定されます。
サンプルプログラム
以下のコードは、入力された任意の型と形状を持つ配列を元に、同型の作業領域を生成する例です。
allocate(target_array, mold=source_array)
! 上記のように記述することで、source_arrayの型と形状を継承する
! 注意：この時点ではtarget_arrayの中身は不定値である
以下は、実際に動作確認ができる実用的なコード例です。
program mold_example
implicit none
! 形状が不明な入力配列を想定
real, allocatable :: input_data(:)
real, allocatable :: work_buffer(:)
! サンプルとしてサイズ5の配列を確保
allocate(input_data(5))
input_data = [1.0, 2.0, 3.0, 4.0, 5.0]
! MOLDを使ってinput_dataと同じ型・形状のバッファを生成
! 値はコピーされないため、非常に軽量
allocate(work_buffer, mold=input_data)
! 確認用出力
print , “work_bufferのサイズ:”, size(work_buffer)
print , “work_bufferの形状を継承しました”
! メモリ解放
deallocate(input_data, work_buffer)
end program mold_example
応用・注意点：現場での運用
MOLDを使用する際の最大の注意点は、「初期値が保証されない」ことです。
allocate直後のメモリ領域は、コンパイラや環境によってゴミデータが入っている可能性があります。必ず確保した直後にゼロ初期化（work_buffer = 0.0など）を行うか、値を代入してから使用するようにしてください。
また、CLASS（多態的）な変数で使用する場合、ターゲットとなる変数がALLOCATED状態である必要はありませんが、型情報が確定している必要があります。汎用的なライブラリを設計する際には、このMOLDを活用することで、ユーザーが引数のサイズを意識しなくても済むような、堅牢で美しいプログラムが書けるようになります。
コメント