2635 FOR JJ=1 TO K