3730 FOR J=I+1 TO NXX