08/03/09 11:51:38
>>205
レス有難うございます。
今writeでデバッグした限りですが、同じファイルを2回openはしてないように見えます。
流れとしては、メインprogramから、
open(unit=24, file='gomi.txt', status='unknown')
↓
サブルーチンをcall
↓
open(2,file='input.dat',status='old')
↓
close(2)
↓
サブルーチンからreturn
↓
close(24)
となっています。
>>206
レス有難うございます。
アドバイスの通りg77で'-fno-automatic'を付けてみたらNANが無くなりました！
URLﾘﾝｸ(www-jlc.kek.jp)
＞-fno-automatic: を指定すると、変数を static にアロケート します。
＞これは、全てのルーチンに SAVE を付けるのと同値です。
大変感謝です。2週間これで詰まってました。
sabu含むすべてのサブルーチンでSAVEはありませんでした。