2850 FOR J=1 TO NCM : VY(J)=0 : NEXT J