4040 FOR J=I+1 TO NXX