5765 FOR JJ=1 TO K