Fortran 77で共通ブロック変数の範囲をローカライズ

Question

このF77コードでは、COMMON BLOCKSを幅広く使用しています。これらのCOMMON BLOCKSは、Cプログラム（ネームマングリング後）でも使用されています。 foo（a、b、...）がFortranコードのメインルーチンである場合は、共通ブロックをfoo（）にローカルにするために、次のようなことができますか？

program new_control_routine() 

... 
call foo(a1,b1,...) 
... 
call foo(a2,b2,...) 
... 
end 

ポイントは、彼らそれらのブロックが同じ名前を持っているにもかかわらず、それらのそれぞれが独立した共通ブロックを持つ「foo」というの複数の呼び出しを持つことです。私が知っている唯一の方法は、それが別のルーチン「foo1の」になるように、「foo」というの2回目の呼び出しで共通ブロックおよび関連のサブルーチンの名前を変更することですので、私は行うことができます。

programe new_control_routine() 
... 
call foo(a1,b1,...) 
... 
call foo1(a2,b2,...) 

しかし、これは確かに平凡で、エラーを起こしやすい。

Answer 1

共通ブロックのポイントは、それらがグローバルであり、その名前を使用する任意のルーチンにアクセス可能であることです。共通ブロック配列の変数を作成し、インデックスを渡すことで、異なる呼び出しが異なる要素にアクセスできるようにすることができますか？

なぜあなた自身をFORTRAN 77に制限しますか？ Fortran 95/2003では、ユーザー定義の型を作成し、その型の配列変数を作成できます。次に、作業したい要素のインデックスを渡します。ユーザー定義タイプは、複雑な変数グループにすることができます。変数は、サブルーチンへの引数またはモジュール変数のいずれかになります。