3465 FOR J=1 TO NVI