06/02/19 12:47:24
>>181
COMMONブロック P の先頭から順に実数型変数 P, GAMMA, GPH が割り当てられる。
（同じプログラム単位中でP, GAMMA, GPHの定義がない場合）
COMMONブロック M は変数名の並びがコメントアウトされているので無効？
（エラーになる？）
モジュールにするとこんな感じ
module hoge
implicit none
private
!integer, public, save :: N, LZ
real, public, save :: P, GAMMA, GPH
end module hoge
但し、他のプログラム単位中でCOMMONブロックM, Pが他の用途に使われていたり
P, GAMMA, GPHの並びが違っていたりすると正常に動作しないことがある。