メインルーチン、サブルーチンでFORのインデックスに同じ変数を使っているからですかね。