3520 FOR J=1 TO NP