FORTRANのＣＯＭＭＯＮについて

質問

最近、ＦＯＲＴＲＡＮについての勉強を始めたものですが
いまいち「ＣＯＭＭＯＮ」の意味が理解出来ません。

例えば下のようなプログラムで（簡単に書きすぎてすいません）

　　（Ａグループ）
　　　　　　ＣＯＭＭＯＮ　Ｘ
　　　　　　　　Ｘ＝10

　　（Ｂグループ）
　　　　　　ＣＯＭＭＯＮ　Ｙ

　　　（ＵＥＸＴＥＲＮＡＬ）
　　　　　　ＣＯＭＭＯＮ　Ｘ.　Ｙ。

　　　　ＷＲＩＴＥ　Ｘ　

　　　Ｘ＝10と出力されるのでしょうか？

分る範囲でいいのでお願いします。

回答No.1

ymmasayan · ベストアンサー

ずいぶん昔（３０年ほど前）にやっただけなので浦島太郎ですが。

ＣＯＭＭＯＮは複数のプログラム間でデータを共有する手法ですね。
ＣＯＭＭＯＮ宣言は順序だけが意味を持ちます。

Ａグループ　Ｘ
Ｂグループ　Ｙ
Ｃグループ　Ｘ　Ｙ
と定義したとするとＣグループのＹは「ままこ」で
ＸａとＹｂとＸｃは同じエリアを指します。

ご質問どおり、write　Ｘは　Ｘ＝１０ですが、これはＸだからではなく、１個目の変数だからと言う事です。

もし、Ｂグループで、Ｙ＝５をやれば、write　Ｘは　５となります。

余談ですが、ＣＯＭＭＯＮエリアはハイ・メモリーから逆順に取られていた記憶があります。今でもそうなんでしょうかね。

回答No.2

noname#21649

無名共通領域の宣言ですから．多分お話のようになると思いますが．
無名共通領域の取り扱いで．変数名は土のように変えても良いのですが．領域の大きさを同じにする必要があったかと思います（機種依存性かも）。
つまり．暗黙の変数型を使用しているとして．A.B共に４バイト割り当てています。
しかし．最後のCOMMON文では８バイト割り当てています。すると．場合によっては変数の共食い（方言の可能性あり）でYの数値を操作した時にXの値も変化してしまうとかのおかしなことが発生する場合があります。