3840 FOR J=I+1 TO NXX