1885 FOR L=0 TO NA STEP KP