6985 FOR J=1 TO NG