困りましたなぁ。まだkyufuでひっかかっています。
ifortでは1行も実行せずにセグメンテーション違反です。g77でもあいかわらず。
COMMONな変数にカキコできないわけではないので，規模が大きすぎるのか，リンクの問題なのか。切り分けできません。そもそもVine3.0の環境がまずいとかそういう話だったら困るなぁ。
Fortran90準拠でズバっと書き直していったほうが速いような気もするなりな。
COMMON排除してぇ〜。
とにかくちょっとずつ動くところまで削っていくしかないべ・・・
以下は作業メモ。
2005/04/20
ifortでmakeを試みた。
ソースの継続行を表す&が行頭にあると，ifortはエラーと認識するらしい。
g77ではだいじょうぶだったのか？
数十箇所の&を修正。
makeに成功したが，起動するといきなりセグメンテーション違反；；
idbでも見てみたが，@main.fでreadする前に
Thread received signal SEGV
stopped at [
function for__once_private(…) 0x0811d9fa]
とのこと。
困ったのぉ。
COMMONの問題があやしいとすれば，-saveオプションをつければよいはず。
しかしだめだ。現象変わらず@ifort
for__は，どうやらスタートアップルーチンあたりにカンケイするものらしい。
先頭に KEY = 1 のような行を追加しても@main.f，，現象変わらないので，
これはもうメモリ関係あるいは初期化コード，スタートアップ関連な問題なので，
ややウザイ。
ここで目先を変えてg77へ戻ることにする。-saveオプション@ifortは，
ついでに，-malign-doubleもつけた。
Program received signal SIGSEGV, Segmentation fault.
0x4002ef39 in rd_I () from /usr/lib/libg2c.so.0
やっぱりだめぽ。
ついでのついでに，main.fの先頭10行と，sepsの先頭数行だけのソース一式をつくって
動かしてみたが，問題ない。やっぱり規模の問題か，変数の配置の問題かも。
つ〜か，メンドクなってきた。
エトセトラリンク：
-fno-automaticでがんばったひと
http://www.mlb.co.jp/linux/science/mopac7/g77.html
-malign-doubleに関するドキュ。えげつないのぉ。
http://www.caf.dk/cafonly/gnu/cygwin/g77_19.html#SEC589
Intelの開発者フォーラム
http://softwareforums.intel.com/ids/board/message?board.id=11&message.id=2337
ウォーニングだから心配するな。
ほんとかよ。
よろづ相談室
http://www.codecomments.com/archive271-2004-3-157604.html
COMMONやめとけってか。
http://groups.google.co.jp/groups?hl=ja&lr=&client=firefox-a&rls=org.mozilla:ja-JP:official&threadm=3d79Wa%24JT3%40bbs.csie.nctu.edu.tw&rnum=1&prev=/groups%3Fq%3DBecause%2Bof%2BCOMMON,%2Bthe%2Balignment%2Bof%2Bobject%2Bis%2Binconsistent%2Bwith%2Bits%2Btype%26hl%3Dja%26lr%3D%26client%3Dfirefox-a%26rls%3Dorg.mozilla:ja-JP:official%26selm%3D3d79Wa%2524JT3%2540bbs.csie.nctu.edu.tw%26rnum%3D1
中国人，がんがってくれ。
http://groups.google.co.jp/groups?hl=ja&lr=&client=firefox-a&rls=org.mozilla:ja-JP:official&threadm=qDmKd.23%24te7.19%40newsfe1-win.ntli.net&rnum=3&prev=/groups%3Fq%3DBecause%2Bof%2BCOMMON,%2Bthe%2Balignment%2Bof%2Bobject%2Bis%2Binconsistent%2Bwith%2Bits%2Btype%26hl%3Dja%26lr%3D%26client%3Dfirefox-a%26rls%3Dorg.mozilla:ja-JP:official%26selm%3DqDmKd.23%2524te7.19%2540newsfe1-win.ntli.net%26rnum%3D3
http://groups.google.co.jp/groups?hl=ja&lr=&client=firefox-a&rls=org.mozilla:ja-JP:official&threadm=359BBFBB.41C6%40larc.nasa.gov&rnum=6&prev=/groups%3Fq%3DBecause%2Bof%2BCOMMON,%2Bthe%2Balignment%2Bof%2Bobject%2Bis%2Binconsistent%2Bwith%2Bits%2Btype%26hl%3Dja%26lr%3D%26client%3Dfirefox-a%26rls%3Dorg.mozilla:ja-JP:official%26selm%3D359BBFBB.41C6%2540larc.nasa.gov%26rnum%3D6
