>>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が無くなりました！

http://www-jlc.kek.jp/~fujiik/mklinux/memo/g77/porting3-j.html
＞-fno-automatic: を指定すると、変数を static にアロケート します。
＞これは、全てのルーチンに SAVE を付けるのと同値です。

大変感謝です。2週間これで詰まってました。
sabu含むすべてのサブルーチンでSAVEはありませんでした。