2165 FOR I=1 TO KP : IGL=IGL-KF(I) : NEXT I