2305 FOR J= 1 TO NCK