2350 FOR J=1 TO NCK