FORループ用の変数に、Iを2回使っていることが原因。メインルーチンでもサブルーチンでも代入されるからうまくいかない。 よって、このどちらかのIを別の変数にすればいい。ここでは、修正する数の少ないメインルーチンのIをKにしている。 でいいのだろうか